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

tests for bitmaps as images in universe

Browse Source
This commit is contained in:
Matthias Felleisen 2014-02-17 17:23:55 -05:00
parent 0010a8ebae
commit f944251099
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/htdp-pkgs/htdp-test/2htdp/tests/bitmap-as-image-in-universe.rkt Normal file
View File

@ -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)))]))

1
pkgs/htdp-pkgs/htdp-test/2htdp/xtest
View File

@ -10,6 +10,7 @@ run() {
cd tests cd tests
run bitmap-as-image-in-universe.rkt
run key-error.rkt run key-error.rkt
run run-movie.rkt run run-movie.rkt
run bad-draw.rkt run bad-draw.rkt