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
tests/eli-tester)
(test
(with-output-to-string
(define output
(with-output-to-string
(lambda ()
(parameterize ([current-error-port (current-output-port)])
(define-check (check3)
(fail-check))
(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")
(run-tests (test-suite "tests" (let ((foo check3)) (foo))))))))
(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))