From 28acece484b050cd42f57c3826e47d92bde31aee 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. --- collects/meta/props | 1 + collects/tests/typed-scheme/optimizer/run.rkt | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/meta/props b/collects/meta/props index 4c3cf7aadf..0a68daf973 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1861,6 +1861,7 @@ path/s is either such a string or a list of them. "collects/tests/typed-scheme/fail" drdr:command-line #f "collects/tests/typed-scheme/fail/with-type3.rkt" responsible (sstrickl) "collects/tests/typed-scheme/nightly-run.rkt" drdr:command-line #f +"collects/tests/typed-scheme/optimizer" responsible (stamourv) "collects/tests/typed-scheme/run.rkt" drdr:command-line (racket "-t" * "--" "--nightly") drdr:timeout 1200 "collects/tests/typed-scheme/xfail" drdr:command-line #f "collects/tests/units" responsible (sstrickl) diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index 331f371222..1ff2c4c8e9 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))))