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

added a test

Browse Source 
svn: r17498
This commit is contained in:
Robby Findler 2010-01-06 18:42:52 +00:00
parent a45c788749
commit 01c507c1ff
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -797,7 +797,10 @@
=> =>
(image-snip->image (make-object image-snip% blue-20x10-bitmap))) (image-snip->image (make-object image-snip% blue-20x10-bitmap)))
;; there was a bug in the bounding box computation for scaled bitmaps that this test exposes
(test (image-width (frame (rotate 90 (scale 1/2 (bitmap icons/plt-logo-red-diffuse.png)))))
=>
128)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;