From bfe669e216963d288ead715de84795f1277ecf23 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 12 Jun 2014 07:37:48 +0100
Subject: [PATCH] rackt/draw: fix internal error on too-large bitmap

original commit: 71bbe6ca9cac9bf853a36d5ce8744ce42f1c452b
---
 pkgs/gui-pkgs/gui-test/tests/gracket/dc.rktl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/pkgs/gui-pkgs/gui-test/tests/gracket/dc.rktl b/pkgs/gui-pkgs/gui-test/tests/gracket/dc.rktl
index a7459986..c6808de5 100644
--- 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)