rackt/draw: fix internal error on too-large bitmap

original commit: 71bbe6ca9cac9bf853a36d5ce8744ce42f1c452b
2014-06-12 07:37:48 +01:00 · 2014-06-12 07:37:48 +01:00 · bfe669e216
commit bfe669e216
parent 583b8b040a
1 changed files with 5 additions and 0 deletions
--- a/pkgs/gui-pkgs/gui-test/tests/gracket/dc.rktl
+++ b/pkgs/gui-pkgs/gui-test/tests/gracket/dc.rktl
@ -811,6 +811,11 @@
                   load-file
                   p)))

+;; ----------------------------------------
+;; No error on too-large bitmap:
+
+(st #f (make-bitmap 1000000 1000000) ok?)
+
 ;; ----------------------------------------

 (report-errs)