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-actual 1)
(make-check-expected 2))) (make-check-expected 2)))
(get-output-string p)) (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 (define output
(with-output-to-string (with-output-to-string
(lambda () (lambda ()
(parameterize ([current-error-port (current-output-port)]) (parameterize ([current-error-port (current-output-port)])
(define-check (check3) (define-check (check3)
(fail-check)) (fail-check))
(run-tests (test-suite "tests" (let ((foo check3)) (foo)))))))) (run-tests (test-suite "tests" (let ((foo check3)) (foo))))))))
(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))

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

@ -39,11 +39,10 @@ Outta here!
-------------------- --------------------
-------------------- --------------------
FAILURE 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
-------------------- --------------------
@ -65,22 +64,22 @@ Second Outta here!
-------------------- --------------------
-------------------- --------------------
FAILURE FAILURE
name: check-eq? name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 19 12 520 15) location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 19 12 520 15)
expression: (check-eq? 1 2) expression: (check-eq? 1 2)
actual: 1 actual: 1
expected: 2 expected: 2
Check failure Check failure
-------------------- --------------------
-------------------- --------------------
failure failure
FAILURE FAILURE
name: check-eq? name: check-eq?
location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 20 21 558 15) location: (#<path:PLTHOME/collects/tests/rackunit/standalone-test-case-test.rkt> 20 21 558 15)
expression: (check-eq? 1 2) expression: (check-eq? 1 2)
actual: 1 actual: 1
expected: 2 expected: 2
Check failure 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)))) (let ((op (with-all-output-to-string (failing-test))))
(check string-contains (check string-contains
op op
"location: text-ui-test.rkt")))) "location: text-ui-test.rkt"))))
(test-case (test-case
"Name and location displayed before actual/expected" "Name and location displayed before actual/expected"