suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Revert "Fixing Rackunit tests after alignment"

Browse Source 
This reverts commit 4497c8ce5e,
because the tests were correctly reporting a bug that I
introduced.
This commit is contained in:
Matthew Flatt 2012-08-15 09:34:17 -06:00
parent 6e2bb58cce
commit b95b1b9366
4 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/rackunit/pr10950.rkt
View File

@ -15,8 +15,8 @@
(test (test
(regexp-match (regexp-match
(regexp (regexp (format "~a.*~a.*~a"
(format "~a.*~a" (regexp-quote "--------------------\ntests > #f\nUnnamed test \nFAILURE\nname: check3\nlocation: ")
(regexp-quote "--------------------\ntests > #f\nUnnamed test \nFAILURE\n name: check3\n location: pr10950.rkt:14:50\n params: \nCheck failure\n context...:\n") (regexp-quote "pr10950.rkt:14:51")
(regexp-quote "\n--------------------\n0 success(es) 1 failure(s) 0 error(s) 1 test(s) run\n"))) (regexp-quote "0 success(es) 1 failure(s) 0 error(s) 1 test(s) run\n")))
output)) output))

3
collects/tests/rackunit/standalone.rkt
View File

@ -42,8 +42,7 @@ FAILURE
name: check name: check
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-check-test.rkt> 44 0 1344 17) location: (#<path:PLTHOME/collects/tests/rackunit/standalone-check-test.rkt> 44 0 1344 17)
expression: (check = 1 2) expression: (check = 1 2)
params: (#<procedure:=> 1 2) params: (#<procedure:=> 1 2)\nmessage: 0.0
message: 0.0
Check failure Check failure
-------------------- --------------------