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

run from anywhere

Browse Source
This commit is contained in:
Jay McCarthy 2015-12-22 06:37:07 -05:00
parent eee52585ed
commit a0d78ecadd
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rackunit-test/tests/rackunit/pr/13.rkt
View File

@ -3,7 +3,10 @@
rackunit/text-ui rackunit/text-ui
racket/port racket/port
racket/match racket/match
racket/system) racket/system
racket/runtime-path)
(define-runtime-path me "13.rkt")
(define a (define a
(test-suite "Test Suite" (test-suite "Test Suite"
@ -30,5 +33,5 @@
(check-equal? (check-equal?
(parameterize ([current-output-port (open-output-nowhere)]) (parameterize ([current-output-port (open-output-nowhere)])
(parameterize ([current-error-port (current-output-port)]) (parameterize ([current-error-port (current-output-port)])
(system/exit-code "raco test 13.rkt"))) (system/exit-code (format "raco test ~a" me))))
1))])) 1))]))