From a96b45be9c2f9debf55ad109cfd6d0f21a1603ec Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Mon, 1 Sep 2014 21:22:35 +0200 Subject: [PATCH] wrapped in new testing macro --- .../2htdp/tests/bitmap-as-image-in-universe.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git 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 index 1480fb5b39..15421e7a1f 100644 --- 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 @@ -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)))])))