From 573ce9492a254c67280168bc341ec733ccb1c1b4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 13 Feb 2012 10:49:55 -0700
Subject: [PATCH] add test for bad missing-glyph handling

---
 collects/tests/gracket/dc.rktl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/collects/tests/gracket/dc.rktl b/collects/tests/gracket/dc.rktl
index 5fe76a98cc..849f69369d 100644
--- 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)))
 
 ;; ----------------------------------------