tests for bitmaps as images in universe

2014-02-17 17:23:55 -05:00 · 2014-02-17 17:23:55 -05:00 · f944251099
commit f944251099
parent 0010a8ebae
2 changed files with 10 additions and 0 deletions
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt
@ -0,0 +1,9 @@
+#lang racket
+
+(require pict (only-in 2htdp/universe big-bang on-tick to-draw) rackunit)
+
+(check-equal?
+ 103 
+ (big-bang 100
+           [on-tick add1 1/28 3]
+           [to-draw (lambda (w) (pict->bitmap (circle w)))]))
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/xtest
@ -10,6 +10,7 @@ run() {

 cd tests 

+run bitmap-as-image-in-universe.rkt
 run key-error.rkt
 run run-movie.rkt
 run bad-draw.rkt