diff --git a/test-conform-browser.rkt b/test-conform-browser.rkt index 66350f5..60c81e4 100644 --- a/test-conform-browser.rkt +++ b/test-conform-browser.rkt @@ -5,6 +5,8 @@ racket/port racket/runtime-path) +(define-runtime-path conform-path (build-path "tests" "conform")) + (define evaluate (make-evaluate (lambda (program op) @@ -45,5 +47,5 @@ EOF (printf " ok (~a milliseconds)\n" (evaluated-t result))))))])) -(test (read (open-input-file "tests/conform/program0.sch")) - (port->string (open-input-file "tests/conform/expected0.txt"))) \ No newline at end of file +(test (read (open-input-file (build-path conform-path "program0.sch"))) + (port->string (open-input-file (build-path conform-path "expected0.txt")))) \ No newline at end of file