suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add test for bad missing-glyph handling

Browse Source
This commit is contained in:
Matthew Flatt 2012-02-13 10:49:55 -07:00
parent af9bab7426
commit 573ce9492a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/gracket/dc.rktl
View File

@ -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)))
;; ----------------------------------------