From 2c07f6a8e64a40c63da8533439ecc95f7bffe678 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 8 Feb 2011 13:46:25 -0500 Subject: [PATCH] some progress on the failing test --- collects/2htdp/tests/record-stop-when.rkt | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/collects/2htdp/tests/record-stop-when.rkt b/collects/2htdp/tests/record-stop-when.rkt index 5843869c76..2c5ba4d9eb 100644 --- a/collects/2htdp/tests/record-stop-when.rkt +++ b/collects/2htdp/tests/record-stop-when.rkt @@ -3,12 +3,10 @@ (require 2htdp/universe 2htdp/image (only-in lang/imageeq image=?)) (define (draw-number n) - (place-image (text (number->string n) 44 'red) - 50 50 - (empty-scene 100 100))) + (place-image (text (number->string n) 44 'red) 50 50 (empty-scene 100 100))) (define (draw-stop n) - stop) + (place-image stop 50 50 (empty-scene 100 100))) (define stop (text "STOP" 44 'red)) @@ -28,7 +26,7 @@ (on-draw draw-number) (record? dir))) (sleep 1) -(unless (image=? (bitmap "images0/i1.png") (draw-number 0)) +(unless (image=? (bitmap "images0/i1.png") (draw-stop 5)) (fprintf (current-error-port) - "this test needs to be revised -- image=? doesn't work\n")) + "this test needs to be revised -- the way 'world' writes images adds an extra pixel -- think! \n"))