PR 10581

svn: r17210

collects/htdp/image.ss

@@ -407,7 +407,7 @@ plt/collects/tests/mzscheme/htdp-image.ss
   (cond
     [(string=? str "")
      (let-values ([(tw th) (get-text-size size "dummyX")])
-       (rectangle 0 th 'solid 'black))]
+       (put-pinhole (rectangle 0 th 'solid 'black) 0 0))]
     [else
      (let ([color (make-color% color-in)])
        (let-values ([(tw th) (get-text-size size str)])

collects/tests/mzscheme/htdp-image.ss

@@ -830,6 +830,10 @@
       'ph-text
       (list (pinhole-x (text "10" 10 'red))
             (pinhole-y (text "10" 10 'red))))
+(test (list 0 0)
+      'ph-text
+      (list (pinhole-x (text "" 10 'red))
+            (pinhole-y (text "" 10 'red))))
 
 (test (list 3 3)
       'ph-add-line