From 82d11cfa6cd74d4404ca552ac5d11577ab9140ac Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 28 Oct 2010 17:12:18 -0500 Subject: [PATCH] fix up Matthias's tests so they are more drdr friendly --- collects/2htdp/tests/record-stop-when.rkt | 3 ++- collects/meta/props | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/2htdp/tests/record-stop-when.rkt b/collects/2htdp/tests/record-stop-when.rkt index cda9803e55..5843869c76 100644 --- a/collects/2htdp/tests/record-stop-when.rkt +++ b/collects/2htdp/tests/record-stop-when.rkt @@ -29,5 +29,6 @@ (record? dir))) (sleep 1) (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")) diff --git a/collects/meta/props b/collects/meta/props index 9750d6ec45..a3114ca56b 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -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-whack.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/stop.rkt" drdr:command-line (gracket *) "collects/2htdp/tests/test-image.rkt" responsible (robby) drdr:command-line (gracket-text "-t" *)