fix pinhole bug created by recent cache-image-snip% changes

svn: r12975
2009-01-02 20:19:36 +00:00 · 2009-01-02 20:19:36 +00:00 · c7acb6d9ef
commit c7acb6d9ef
parent f402605fed
1 changed files with 4 additions and 0 deletions
--- a/collects/tests/mzscheme/htdp-image.ss
+++ b/collects/tests/mzscheme/htdp-image.ss
@ -1021,6 +1021,10 @@
      (image? image-snip2))
 (test #t
      'bs-image=?
+      (image=? image-snip1 (send image-snip1 copy)))
+(test #f
+      'bs-image=?
+      ;; They have different masks:
      (image=? image-snip1 image-snip2))
 (test 2
      'bs-image-width