From 01c507c1ffb4732c88bc0fae843c61254c9abeb6 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 6 Jan 2010 18:42:52 +0000
Subject: [PATCH] added a test

svn: r17498
---
 collects/2htdp/tests/test-image.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/2htdp/tests/test-image.ss b/collects/2htdp/tests/test-image.ss
index 0274f65f35..1db8667df5 100644
--- 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)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;