From c7acb6d9efae3cdc50c3931473b470ce5be22414 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Jan 2009 20:19:36 +0000
Subject: [PATCH] fix pinhole bug created by recent cache-image-snip% changes

svn: r12975
---
 collects/tests/mzscheme/htdp-image.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.ss
index de263a5da9..4b0469c9d9 100644
--- 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