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

wrapped in new testing macro

Browse Source
This commit is contained in:
Matthias Felleisen 2014-09-01 21:22:35 +02:00
parent 4ba0451caf
commit a96b45be9c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,10 @@
#lang racket
(require pict (only-in 2htdp/universe big-bang on-tick to-draw) rackunit)
(require pict (only-in 2htdp/universe big-bang on-tick to-draw) "test-aux.rkt")
(check-equal?
103
(big-bang 100
[on-tick add1 1/28 3]
[to-draw (lambda (w) (pict->bitmap (circle w)))]))
(testing
(check-equal?
103
(big-bang 100
[on-tick add1 1/28 3]
[to-draw (lambda (w) (pict->bitmap (circle w)))])))