From 4bf6588d148e32e650fd146a3b84f8b80afba011 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 1 Oct 2012 18:13:50 -0600
Subject: [PATCH] racket/draw: fix return value of `load-file' from `bitmap%'

original commit: 64bac4e573c9677b69958e331ee170881bb201a2
---
 collects/tests/gracket/dc.rktl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/collects/tests/gracket/dc.rktl b/collects/tests/gracket/dc.rktl
index 21da9ad3..fde2dc63 100644
--- a/collects/tests/gracket/dc.rktl
+++ b/collects/tests/gracket/dc.rktl
@@ -620,4 +620,9 @@
 
 ;; ----------------------------------------
 
+(let ([bm (make-object bitmap% 1 1)])
+  (test #t 'load-file (send bm load-file (collection-file-path "sk.jpg" "icons"))))
+
+;; ----------------------------------------
+
 (report-errs)