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