From 87a169a33ef87941789a9cfe79dc9b2934ed1060 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 17 Oct 2009 02:17:09 +0000 Subject: [PATCH] drdr props to ignore Windows-only files; svn:ignore; make plot/run-tests.ss independent of where they are running from svn: r16346 --- collects/tests/plot/run-tests.ss | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/tests/plot/run-tests.ss b/collects/tests/plot/run-tests.ss index c57b2bd5c7..cf9f673ee5 100755 --- a/collects/tests/plot/run-tests.ss +++ b/collects/tests/plot/run-tests.ss @@ -3,7 +3,9 @@ exec mred "$0" "$@" |# #lang scheme -(require plot mzlib/md5) +(require plot mzlib/md5 scheme/runtime-path) + +(define-runtime-path here "./") (define (read-file file) (with-input-from-file file (lambda () (read-bytes (file-size file))))) @@ -11,8 +13,10 @@ exec mred "$0" "$@" (define-syntax run-test (syntax-rules () [(_ description (plot args ...) file-name) - (let* ([result-file-name (string-append file-name "-out.png")] - [expected-file-name (string-append file-name ".png")]) + (let* ([result-file-name + (build-path here (string-append file-name "-out.png"))] + [expected-file-name + (build-path here (string-append file-name ".png"))]) (plot args ... #:out-file result-file-name) ;; WILL COMPARE by MD5 hash. (printf "testing \"~a\" ... " description)