From a5ad0d011ea7a0844896d64f4c2fce0ea3459652 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 28 Mar 2015 09:35:18 -0600 Subject: [PATCH] test for `get-char-width` and `get-char-height` --- gui-test/tests/gracket/dc.rktl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/gui-test/tests/gracket/dc.rktl b/gui-test/tests/gracket/dc.rktl index da20a6d6..b9541346 100644 --- a/gui-test/tests/gracket/dc.rktl +++ b/gui-test/tests/gracket/dc.rktl @@ -838,6 +838,20 @@ load-file p))) +;; ---------------------------------------- +;; Check `get-char-width` and backing scales: + +(let ([dc1 (send (make-bitmap 10 10) make-dc)] + [dc2 (send (make-bitmap 10 10 #:backing-scale 2) make-dc)]) + ;; Sizes don't have to be the same, since they can depend on resolution, + ;; but they should be close: + (test (round (send dc1 get-char-width)) + 'scale-2-width + (round (send dc2 get-char-width))) + (test (round (send dc1 get-char-height)) + 'scale-2-height + (round (send dc2 get-char-height)))) + ;; ---------------------------------------- ;; No error on too-large bitmap: