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

drdr props to ignore Windows-only files; svn:ignore; make plot/run-tests.ss independent of where they are running from

Browse Source 
svn: r16346
This commit is contained in:
Eli Barzilay 2009-10-17 02:17:09 +00:00
parent ba99cb4dbf
commit 87a169a33e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/plot/run-tests.ss
View File

@ -3,7 +3,9 @@
exec mred "$0" "$@" exec mred "$0" "$@"
|# |#
#lang scheme #lang scheme
(require plot mzlib/md5) (require plot mzlib/md5 scheme/runtime-path)
(define-runtime-path here "./")
(define (read-file file) (define (read-file file)
(with-input-from-file file (lambda () (read-bytes (file-size file))))) (with-input-from-file file (lambda () (read-bytes (file-size file)))))
@ -11,8 +13,10 @@ exec mred "$0" "$@"
(define-syntax run-test (define-syntax run-test
(syntax-rules () (syntax-rules ()
[(_ description (plot args ...) file-name) [(_ description (plot args ...) file-name)
(let* ([result-file-name (string-append file-name "-out.png")] (let* ([result-file-name
[expected-file-name (string-append file-name ".png")]) (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) (plot args ... #:out-file result-file-name)
;; WILL COMPARE by MD5 hash. ;; WILL COMPARE by MD5 hash.
(printf "testing \"~a\" ... " description) (printf "testing \"~a\" ... " description)