Less verbose tests,
make size test image be what it comes out of on a VNC screen. svn: r1640
This commit is contained in:
parent
49343d2417
commit
76a8157f35
|
@ -20,7 +20,7 @@ exec mred -u "$0" "$@"
|
|||
[expected-file-name (string-append file-name ".png")])
|
||||
(plot args ... (out-file result-file-name))
|
||||
;; WILL COMPARE by MD5 hash.
|
||||
(printf "testing \"~a\" : ~a ... " description '(plot args ...) )
|
||||
(printf "testing \"~a\" ... " description)
|
||||
(if (equal? (md5 (read-file result-file-name))
|
||||
(md5 (read-file expected-file-name)))
|
||||
(begin (display "passed\n") (delete-file result-file-name))
|
||||
|
|
Binary file not shown.
Before Width: | Height: | Size: 890 B After Width: | Height: | Size: 890 B |
Loading…
Reference in New Issue
Block a user