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

This test relied on the old source location losing behavior of Rackunit

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-25 11:38:43 -05:00
parent 81cb890323
commit e081af2aef
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,13 +4,19 @@
racket/port racket/port
tests/eli-tester) tests/eli-tester)
(test (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))))))))
=>
"--------------------\ntests > #f\nUnnamed test \nFAILURE\nname: check3\nlocation: unknown:?:?\nparams: \n--------------------\n0 success(es) 1 failure(s) 0 error(s) 1 test(s) run\n") (test
(regexp-match
(regexp (format "~a.*~a"
(regexp-quote "--------------------\ntests > #f\nUnnamed test \nFAILURE\nname: check3\nlocation: ")
(regexp-quote "/collects/tests/rackunit/pr10950.rkt:14:51\nparams: \n--------------------\n0 success(es) 1 failure(s) 0 error(s) 1 test(s) run\n")))
output))