From db81a50276a65160b252a2db455a713f5afde365 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 25 Jun 2010 13:24:29 -0400 Subject: [PATCH] Fixed Typed Scheme's optimizer's test harness to work with drdr. original commit: 28acece484b050cd42f57c3826e47d92bde31aee --- collects/tests/typed-scheme/optimizer/run.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index 331f3712..1ff2c4c8 100644 --- a/collects/tests/typed-scheme/optimizer/run.rkt +++ b/collects/tests/typed-scheme/optimizer/run.rkt @@ -1,4 +1,5 @@ #lang racket +(require racket/runtime-path) ;; since Typed Scheme's optimizer does source to source transformations, ;; we compare the expansion of automatically optimized and hand optimized @@ -20,13 +21,15 @@ (begin (printf "~a failed\n\n" name) #f)))) +(define-runtime-path here ".") + (let ((n-failures (if (> (vector-length (current-command-line-arguments)) 0) (if (test (format "generic/~a.rkt" (vector-ref (current-command-line-arguments) 0))) 0 1) (for/fold ((n-failures 0)) - ((gen (in-directory "generic"))) + ((gen (in-directory (build-path here "generic")))) (+ n-failures (if (test gen) 0 1)))))) (unless (= n-failures 0) (error (format "~a tests failed." n-failures))))