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

2
collects/tests/rackunit/format-test.rkt
View File

@ -20,5 +20,5 @@
(make-check-actual 1)
(make-check-expected 2)))
(get-output-string p))
" name: \"foo\"\n actual: 1\n expected: 2\n\n"))))
"name: \"foo\"\nactual: 1\nexpected: 2\n\n"))))
))

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

@ -6,17 +6,17 @@
(define output
(with-output-to-string
(lambda ()
(parameterize ([current-error-port (current-output-port)])
(define-check (check3)
(fail-check))
(lambda ()
(parameterize ([current-error-port (current-output-port)])
(define-check (check3)
(fail-check))
(run-tests (test-suite "tests" (let ((foo check3)) (foo))))))))
(run-tests (test-suite "tests" (let ((foo check3)) (foo))))))))
(test
(regexp-match
(regexp
(format "~a.*~a"
(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 "\n--------------------\n0 success(es) 1 failure(s) 0 error(s) 1 test(s) run\n")))
(regexp (format "~a.*~a.*~a"
(regexp-quote "--------------------\ntests > #f\nUnnamed test \nFAILURE\nname: check3\nlocation: ")
(regexp-quote "pr10950.rkt:14:51")
(regexp-quote "0 success(es) 1 failure(s) 0 error(s) 1 test(s) run\n")))
output))

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

@ -39,11 +39,10 @@ Outta here!
--------------------
--------------------
FAILURE
name: check
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-check-test.rkt> 44 0 1344 17)
name: check
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-check-test.rkt> 44 0 1344 17)
expression: (check = 1 2)
params: (#<procedure:=> 1 2)
message: 0.0
params: (#<procedure:=> 1 2)\nmessage: 0.0
Check failure
--------------------
@ -65,22 +64,22 @@ Second Outta here!
--------------------
--------------------
FAILURE
name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 19 12 520 15)
name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 19 12 520 15)
expression: (check-eq? 1 2)
actual: 1
expected: 2
actual: 1
expected: 2
Check failure
--------------------
--------------------
failure
FAILURE
name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 20 21 558 15)
name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 20 21 558 15)
expression: (check-eq? 1 2)
actual: 1
expected: 2
actual: 1
expected: 2
Check failure
--------------------

2
collects/tests/rackunit/text-ui-test.rkt
View File

@ -139,7 +139,7 @@
(let ((op (with-all-output-to-string (failing-test))))
(check string-contains
op
"location: text-ui-test.rkt"))))
"location: text-ui-test.rkt"))))
(test-case
"Name and location displayed before actual/expected"