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

fix up Matthias's tests so they are more drdr friendly

Browse Source
This commit is contained in:
Robby Findler 2010-10-28 17:12:18 -05:00
parent ebe486886c
commit 82d11cfa6c
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/2htdp/tests/record-stop-when.rkt
View File

@ -29,5 +29,6 @@
(record? dir))) (record? dir)))
(sleep 1) (sleep 1)
(unless (image=? (bitmap "images0/i1.png") (draw-number 0)) (unless (image=? (bitmap "images0/i1.png") (draw-number 0))
(printf "this test needs to be revised -- image=? doesn't work\n")) (fprintf (current-error-port)
"this test needs to be revised -- image=? doesn't work\n"))

2
collects/meta/props
View File

@ -558,6 +558,8 @@ path/s is either such a string or a list of them.
"collects/2htdp/tests/perform-robby.rkt" drdr:command-line (gracket *) "collects/2htdp/tests/perform-robby.rkt" drdr:command-line (gracket *)
"collects/2htdp/tests/perform-whack.rkt" drdr:command-line #f "collects/2htdp/tests/perform-whack.rkt" drdr:command-line #f
"collects/2htdp/tests/profile-robby.rkt" drdr:command-line #f "collects/2htdp/tests/profile-robby.rkt" drdr:command-line #f
"collects/2htdp/tests/record-stop-when.rkt" drdr:command-line (gracket *)
"collects/2htdp/tests/record.rkt" drdr:command-line (gracket *)
"collects/2htdp/tests/release.rkt" drdr:command-line (gracket "-t" *) "collects/2htdp/tests/release.rkt" drdr:command-line (gracket "-t" *)
"collects/2htdp/tests/stop.rkt" drdr:command-line (gracket *) "collects/2htdp/tests/stop.rkt" drdr:command-line (gracket *)
"collects/2htdp/tests/test-image.rkt" responsible (robby) drdr:command-line (gracket-text "-t" *) "collects/2htdp/tests/test-image.rkt" responsible (robby) drdr:command-line (gracket-text "-t" *)