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

current-directory fix to the conform-browser test

Browse Source
This commit is contained in:
Danny Yoo 2011-05-19 16:30:06 -04:00
parent 3198c18b7d
commit 128a3fa940
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test-conform-browser.rkt
View File

@ -5,6 +5,8 @@
racket/port racket/port
racket/runtime-path) racket/runtime-path)
(define-runtime-path conform-path (build-path "tests" "conform"))
(define evaluate (make-evaluate (define evaluate (make-evaluate
(lambda (program op) (lambda (program op)
@ -45,5 +47,5 @@ EOF
(printf " ok (~a milliseconds)\n" (evaluated-t result))))))])) (printf " ok (~a milliseconds)\n" (evaluated-t result))))))]))
(test (read (open-input-file "tests/conform/program0.sch")) (test (read (open-input-file (build-path conform-path "program0.sch")))
(port->string (open-input-file "tests/conform/expected0.txt"))) (port->string (open-input-file (build-path conform-path "expected0.txt"))))