Less verbose tests,

make size test image be what it comes out of on a VNC screen.

svn: r1640
This commit is contained in:
Eli Barzilay 2005-12-18 08:33:11 +00:00
parent 49343d2417
commit 76a8157f35
2 changed files with 1 additions and 1 deletions

View File

@ -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