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

added empty-string test for text

Browse Source 
svn: r10156
This commit is contained in:
Matthias Felleisen 2008-06-05 21:15:37 +00:00
parent 641560451b
commit 4af4565d2a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/mzscheme/htdp-image.ss
View File

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