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

added failing test

Browse Source 
svn: r16652
This commit is contained in:
Robby Findler 2009-11-10 14:08:28 +00:00
parent a9345c4fe1
commit add9374636
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/2htdp/test-image.ss
View File

@ -557,10 +557,16 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; misc stuff
;; text
;;
(check-equal? (beside/places "baseline"
(text "a" 18 "black")
(text "b" 18 "black"))
(text "ab" 18 "black"))
(check-equal? (image-width (rotate 45 (text "One" 18 'black)))
(let ([t (text "One" 18 'black)])
(image-width (rotate 45 (rectangle (image-width t)
(image-height t)
'solid 'black)))))