From c1198d0687c95629b38608b43fbfc3281e5b586e Mon Sep 17 00:00:00 2001 From: Casey Klein Date: Fri, 22 Jul 2011 11:37:34 -0500 Subject: [PATCH] Makes tests executable from outside their directory --- collects/redex/tests/bitmap-test-util.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/redex/tests/bitmap-test-util.rkt b/collects/redex/tests/bitmap-test-util.rkt index e394a37249..9cf06fa920 100644 --- a/collects/redex/tests/bitmap-test-util.rkt +++ b/collects/redex/tests/bitmap-test-util.rkt @@ -1,6 +1,7 @@ #lang scheme/gui (require framework slideshow/pict + racket/runtime-path "../pict.rkt" "../reduction-semantics.rkt") @@ -22,11 +23,13 @@ (λ () test-exp) bitmap-filename)])) +(define-runtime-path bmps-dir (format "bmps-~a" (system-type))) + (define (test/proc line-number pict-thunk raw-bitmap-filename) (set! tests (+ tests 1)) (let* ([pict (set-fonts/call pict-thunk)] [bitmap-filename - (build-path (format "bmps-~a" (system-type)) + (build-path bmps-dir raw-bitmap-filename)] [old-bitmap (if (file-exists? bitmap-filename) (make-object bitmap% bitmap-filename)