added a test

svn: r17498
2010-01-06 18:42:52 +00:00 · 2010-01-06 18:42:52 +00:00 · 01c507c1ff
commit 01c507c1ff
parent a45c788749
1 changed files with 4 additions and 1 deletions
--- a/collects/2htdp/tests/test-image.ss
+++ b/collects/2htdp/tests/test-image.ss
@ -797,7 +797,10 @@
      =>
      (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)

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;