racket/draw: fix return value of load-file' from bitmap%'

original commit: 64bac4e573c9677b69958e331ee170881bb201a2
2012-10-01 18:13:50 -06:00 · 2012-10-01 18:13:50 -06:00 · 4bf6588d14
commit 4bf6588d14
parent 7ed282f2a5
1 changed files with 5 additions and 0 deletions
--- 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)