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

some progress on the failing test

Browse Source
This commit is contained in:
Matthias Felleisen 2011-02-08 13:46:25 -05:00
parent eed8ca10cd
commit 2c07f6a8e6
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,12 +3,10 @@
(require 2htdp/universe 2htdp/image (only-in lang/imageeq image=?)) (require 2htdp/universe 2htdp/image (only-in lang/imageeq image=?))
(define (draw-number n) (define (draw-number n)
(place-image (text (number->string n) 44 'red) (place-image (text (number->string n) 44 'red) 50 50 (empty-scene 100 100)))
50 50
(empty-scene 100 100)))
(define (draw-stop n) (define (draw-stop n)
stop) (place-image stop 50 50 (empty-scene 100 100)))
(define stop (text "STOP" 44 'red)) (define stop (text "STOP" 44 'red))
@ -28,7 +26,7 @@
(on-draw draw-number) (on-draw draw-number)
(record? dir))) (record? dir)))
(sleep 1) (sleep 1)
(unless (image=? (bitmap "images0/i1.png") (draw-number 0)) (unless (image=? (bitmap "images0/i1.png") (draw-stop 5))
(fprintf (current-error-port) (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"))