add test for bad missing-glyph handling

original commit: 573ce9492a254c67280168bc341ec733ccb1c1b4
2012-02-13 10:49:55 -07:00 · 2012-02-13 10:49:55 -07:00 · 05101401af
commit 05101401af
parent 8af50844a0
1 changed files with 8 additions and 0 deletions
--- a/collects/tests/gracket/dc.rktl
+++ b/collects/tests/gracket/dc.rktl
@ -491,6 +491,14 @@

  (void))

+;; ----------------------------------------
+
+(let ()
+  (define bm (make-screen-bitmap 100 100))
+  (define dc (make-object bitmap-dc% bm))
+  (define-values (aw ah aa ad) (send dc get-text-extent "x " #f #t))
+  (define-values (bw bh ba bd) (send dc get-text-extent "x ⇒ y" #f #t))
+  (test #t 'no-missing-glyph-truncation (bw . > . aw)))

 ;; ----------------------------------------