From 2c19677358f2e36134927655a6f2df8a90ab4432 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Tue, 19 Jun 2012 03:18:23 -0400
Subject: [PATCH] Make some .rktl tests run with "racket".

With this commit, all of the leftover mentions of gracket in
`drdr:command-line' are things that pop up windows.
---
 collects/meta/props                              | 8 ++++----
 collects/tests/gracket/dc.rktl                   | 2 ++
 collects/tests/gracket/editor.rktl               | 2 ++
 collects/tests/htdp-lang/htdp-image.rktl         | 3 ++-
 collects/tests/racket/cache-image-snip-test.rktl | 3 ++-
 5 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/collects/meta/props b/collects/meta/props
index 9e28e987bd..fc9cbfb3d1 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -1045,9 +1045,9 @@ path/s is either such a string or a list of them.
 "collects/tests/gracket" responsible (mflatt)
 "collects/tests/gracket/auto.rktl" drdr:command-line #f
 "collects/tests/gracket/blits.rkt" drdr:command-line #f
-"collects/tests/gracket/dc.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/dc.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/gracket/draw.rkt" drdr:command-line (mzc *)
-"collects/tests/gracket/editor.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/gracket/editor.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/gracket/flush-stress.rkt" drdr:command-line #f
 "collects/tests/gracket/gui-main.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/gracket/gui.rktl" drdr:command-line (racket "-f" *)
@@ -1074,7 +1074,7 @@ path/s is either such a string or a list of them.
 "collects/tests/htdp-lang/bega-adv.rktl" drdr:command-line #f
 "collects/tests/htdp-lang/beginner-abbr.rktl" drdr:command-line (racket "-f" *) drdr:timeout 300
 "collects/tests/htdp-lang/beginner.rktl" drdr:command-line (racket "-f" *)
-"collects/tests/htdp-lang/htdp-image.rktl" responsible (robby) drdr:command-line (gracket "-f" *)
+"collects/tests/htdp-lang/htdp-image.rktl" responsible (robby) drdr:command-line (racket "-f" *)
 "collects/tests/htdp-lang/htdp-test.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/htdp-lang/htdp.rktl" drdr:command-line #f
 "collects/tests/htdp-lang/intermediate-lambda.rktl" drdr:command-line (racket "-f" *) drdr:timeout 360
@@ -1328,7 +1328,7 @@ path/s is either such a string or a list of them.
 "collects/tests/racket/benchmarks/shootout/typed/wordfreq.rktl" drdr:command-line #f
 "collects/tests/racket/binc.rktl" drdr:command-line #f
 "collects/tests/racket/boundmap-test.rktl" drdr:command-line (racket "-f" *)
-"collects/tests/racket/cache-image-snip-test.rktl" drdr:command-line (gracket "-f" *)
+"collects/tests/racket/cache-image-snip-test.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/racket/censor.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/racket/chaperone.rktl" drdr:command-line #f
 "collects/tests/racket/char-set.rktl" drdr:command-line (racket "-f" *)
diff --git a/collects/tests/gracket/dc.rktl b/collects/tests/gracket/dc.rktl
index ec57195665..52834a1f9f 100644
--- a/collects/tests/gracket/dc.rktl
+++ b/collects/tests/gracket/dc.rktl
@@ -1,6 +1,8 @@
 
 (load-relative "loadtest.rktl")
 
+(require racket/gui/base)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                               DC Tests                                     ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/collects/tests/gracket/editor.rktl b/collects/tests/gracket/editor.rktl
index a36aae409e..41532ae582 100644
--- a/collects/tests/gracket/editor.rktl
+++ b/collects/tests/gracket/editor.rktl
@@ -1,6 +1,8 @@
 
 (load-relative "loadtest.rktl")
 
+(require racket/gui/base)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                            Editor Tests                                    ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/collects/tests/htdp-lang/htdp-image.rktl b/collects/tests/htdp-lang/htdp-image.rktl
index 96812bde9a..bda03fa5e8 100644
--- a/collects/tests/htdp-lang/htdp-image.rktl
+++ b/collects/tests/htdp-lang/htdp-image.rktl
@@ -1,7 +1,8 @@
 ;; Load this one with GRacket
 
 (load-relative "../racket/loadtest.rktl")
-(require teachpack/htdp/image
+(require racket/gui/base
+         teachpack/htdp/image
          htdp/error
          lang/posn
          mzlib/list
diff --git a/collects/tests/racket/cache-image-snip-test.rktl b/collects/tests/racket/cache-image-snip-test.rktl
index 0bfa98b6e4..169cd19950 100644
--- a/collects/tests/racket/cache-image-snip-test.rktl
+++ b/collects/tests/racket/cache-image-snip-test.rktl
@@ -1,6 +1,7 @@
 (load-relative "loadtest.rktl")
 
-(require mrlib/cache-image-snip
+(require racket/gui/base
+         mrlib/cache-image-snip
          mzlib/unit)
 
 (invoke-unit