suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make some .rktl tests run with "racket".

Browse Source 
With this commit, all of the leftover mentions of gracket in
`drdr:command-line' are things that pop up windows.
This commit is contained in:
Eli Barzilay 2012-06-19 03:18:23 -04:00
parent 52d4777bac
commit 2c19677358
5 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/meta/props
View File

@ -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" *)

2
collects/tests/gracket/dc.rktl
View File

@ -1,6 +1,8 @@
(load-relative "loadtest.rktl")
(require racket/gui/base)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DC Tests ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2
collects/tests/gracket/editor.rktl
View File

@ -1,6 +1,8 @@
(load-relative "loadtest.rktl")
(require racket/gui/base)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Editor Tests ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

3
collects/tests/htdp-lang/htdp-image.rktl
View File

@ -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

3
collects/tests/racket/cache-image-snip-test.rktl
View File

@ -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