From 4af4565d2a7e16414b6154f367ef29b59c603178 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 5 Jun 2008 21:15:37 +0000 Subject: [PATCH] added empty-string test for text svn: r10156 --- collects/tests/mzscheme/htdp-image.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.ss index 47c198558f..3ea4b20921 100644 --- a/collects/tests/mzscheme/htdp-image.ss +++ b/collects/tests/mzscheme/htdp-image.ss @@ -1158,6 +1158,7 @@ (err/rt-name-test (add-line image-snip1 10 10 #f #f #f) "fourth") (err/rt-name-test (add-line image-snip1 10 10 11 #f #f) "fifth") (err/rt-name-test (add-line image-snip1 10 10 11 11 #f) "sixth") +(err/rt-name-test (text "" 12 'red) "first") (err/rt-name-test (text #f #f #f) "first") (err/rt-name-test (text "abc" #f #f) "second") (err/rt-name-test (text "abc" 10 #f) "third") @@ -1198,9 +1199,11 @@ (err/rt-name-test (overlay/xy (rectangle 100 200 'outline 'red) -inf.0 +inf.0 #f) "second") (parameterize ((current-namespace (make-base-namespace))) - (err/rt-test (eval '(module m (lib "htdp-beginner.ss" "lang") (require (lib "image.ss" "teachpack" "htdp")) overlay)) - (lambda (exn) - (regexp-match #rx"must be applied to arguments" - (exn-message exn))))) + (err/rt-test + (eval '(module m (lib "htdp-beginner.ss" "lang") + (require (lib "image.ss" "teachpack" "htdp")) overlay)) + (lambda (exn) + (regexp-match #rx"must be applied to arguments" + (exn-message exn))))) (report-errs)