use .rktl suffix for files meant to be 'load'ed
This commit is contained in:
Matthew Flatt
parent
cb5c83c5a7
commit
e504acb726
|
|
@ -1,6 +1,6 @@
|
||||||
#!/bin/sh
|
#!/bin/sh
|
||||||
#| -*- scheme -*-
|
#| -*- scheme -*-
|
||||||
exec mzscheme -um "$0" "$@"
|
exec racket -um "$0" "$@"
|
||||||
|#
|
|#
|
||||||
#lang scheme/base
|
#lang scheme/base
|
||||||
|
|
||||||
|
|
@ -374,7 +374,8 @@ path/s is either such a string or a list of them.
|
||||||
`([("help" "h" "-h" "--help") "help: show this help" ,help]
|
`([("help" "h" "-h" "--help") "help: show this help" ,help]
|
||||||
[("get") "get <prop> <path/s>" ,get]
|
[("get") "get <prop> <path/s>" ,get]
|
||||||
[("set") "set <prop> <val> <path/s>" ,set]
|
[("set") "set <prop> <val> <path/s>" ,set]
|
||||||
[("del") "del <prop> <path/s>" ,del]))
|
[("del") "del <prop> <path/s>" ,del]
|
||||||
|
[("mv") "mv <path> <path>" ,mv]))
|
||||||
(define (find-root)
|
(define (find-root)
|
||||||
(let loop ([p this-file] [n 3]) ; look only a few level up
|
(let loop ([p this-file] [n 3]) ; look only a few level up
|
||||||
(let-values ([(base _1 _2) (split-path p)])
|
(let-values ([(base _1 _2) (split-path p)])
|
||||||
|
|
@ -416,6 +417,16 @@ path/s is either such a string or a list of them.
|
||||||
(define (del prop path . paths)
|
(define (del prop path . paths)
|
||||||
(del-prop! (paths->list path paths) (string->symbol prop))
|
(del-prop! (paths->list path paths) (string->symbol prop))
|
||||||
(write-props))
|
(write-props))
|
||||||
|
(define (mv from to)
|
||||||
|
(let ([nonesuch (gensym 'none)]
|
||||||
|
[from (paths->list from null)]
|
||||||
|
[to (paths->list to null)])
|
||||||
|
(for ([p (in-list (map prop-name known-props))])
|
||||||
|
(let ([v (get-prop from p (lambda () nonesuch) #:strict? #t #:as-string? #t)])
|
||||||
|
(unless (eq? v nonesuch)
|
||||||
|
(set-prop! to p v #:as-string? #t)
|
||||||
|
(del-prop! from p)))))
|
||||||
|
(write-props))
|
||||||
(set! running-as-script? #t)
|
(set! running-as-script? #t)
|
||||||
(let* ([verb (if (pair? args) (car args) (usage "missing subcommand"))]
|
(let* ([verb (if (pair? args) (car args) (usage "missing subcommand"))]
|
||||||
[args (cdr args)]
|
[args (cdr args)]
|
||||||
|
|
@ -1296,15 +1307,15 @@ path/s is either such a string or a list of them.
|
||||||
"collects/test-engine/test-tool.scm" drdr:command-line "mred-text -t ~s"
|
"collects/test-engine/test-tool.scm" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests" responsible (eli)
|
"collects/tests" responsible (eli)
|
||||||
"collects/tests/aligned-pasteboard" responsible (unknown)
|
"collects/tests/aligned-pasteboard" responsible (unknown)
|
||||||
"collects/tests/aligned-pasteboard/example.rkt" drdr:command-line ""
|
"collects/tests/aligned-pasteboard/example.rktl" drdr:command-line ""
|
||||||
"collects/tests/aligned-pasteboard/old-bugs/big-min.rkt" drdr:command-line ""
|
"collects/tests/aligned-pasteboard/old-bugs/big-min.rktl" drdr:command-line ""
|
||||||
"collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt" drdr:command-line ""
|
"collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl" drdr:command-line ""
|
||||||
"collects/tests/aligned-pasteboard/snip-dumper.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/aligned-pasteboard/snip-dumper.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/aligned-pasteboard/test-alignment.rkt" drdr:command-line ""
|
"collects/tests/aligned-pasteboard/test-alignment.rktl" drdr:command-line ""
|
||||||
"collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt" drdr:command-line ""
|
"collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl" drdr:command-line ""
|
||||||
"collects/tests/aligned-pasteboard/test-snip-lib.rkt" drdr:command-line ""
|
"collects/tests/aligned-pasteboard/test-snip-lib.rktl" drdr:command-line ""
|
||||||
"collects/tests/aligned-pasteboard/test.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/aligned-pasteboard/test.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/aligned-pasteboard/test2.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/aligned-pasteboard/test2.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/compiler" responsible (jay)
|
"collects/tests/compiler" responsible (jay)
|
||||||
"collects/tests/compiler/regression.rkt" responsible (mflatt)
|
"collects/tests/compiler/regression.rkt" responsible (mflatt)
|
||||||
"collects/tests/compiler/zo-test.rkt" drdr:command-line "mzscheme -t ~s -- -I -S -t 60 -v -R"
|
"collects/tests/compiler/zo-test.rkt" drdr:command-line "mzscheme -t ~s -- -I -S -t 60 -v -R"
|
||||||
|
|
@ -1347,7 +1358,7 @@ path/s is either such a string or a list of them.
|
||||||
"collects/tests/framework/search.rkt" drdr:command-line "mzc -k ~s"
|
"collects/tests/framework/search.rkt" drdr:command-line "mzc -k ~s"
|
||||||
"collects/tests/framework/test-suite-utils.rkt" drdr:command-line "mzc -k ~s"
|
"collects/tests/framework/test-suite-utils.rkt" drdr:command-line "mzc -k ~s"
|
||||||
"collects/tests/framework/text.rkt" drdr:command-line "mzc -k ~s"
|
"collects/tests/framework/text.rkt" drdr:command-line "mzc -k ~s"
|
||||||
"collects/tests/framework/utils.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/framework/utils.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/frtime" responsible (gcooper jay)
|
"collects/tests/frtime" responsible (gcooper jay)
|
||||||
"collects/tests/frtime/time.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/frtime/time.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/future" responsible (jamesswaine mflatt robby)
|
"collects/tests/future" responsible (jamesswaine mflatt robby)
|
||||||
|
|
@ -1361,33 +1372,33 @@ path/s is either such a string or a list of them.
|
||||||
"collects/tests/macro-debugger/tests/collects.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/macro-debugger/tests/collects.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/match" responsible (samth)
|
"collects/tests/match" responsible (samth)
|
||||||
"collects/tests/mred" responsible (mflatt)
|
"collects/tests/mred" responsible (mflatt)
|
||||||
"collects/tests/mred/auto.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/auto.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/blits.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/blits.rkt" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/dc.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/dc.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/draw.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/mred/draw.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/mred/editor.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/editor.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/gui-main.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/gui-main.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/gui.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/gui.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/item.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/mred/item.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/mred/loadtest.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/loadtest.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/mem.rkt" drdr:command-line ""
|
"collects/tests/mred/mem.rktl" drdr:command-line ""
|
||||||
"collects/tests/mred/paramz.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/paramz.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/png.rkt" drdr:command-line ""
|
"collects/tests/mred/png.rktl" drdr:command-line ""
|
||||||
"collects/tests/mred/random.rkt" drdr:command-line ""
|
"collects/tests/mred/random.rktl" drdr:command-line ""
|
||||||
"collects/tests/mred/showkey.rkt" drdr:command-line ""
|
"collects/tests/mred/showkey.rktl" drdr:command-line ""
|
||||||
"collects/tests/mred/sixlib.rkt" drdr:command-line ""
|
"collects/tests/mred/sixlib.rktl" drdr:command-line ""
|
||||||
"collects/tests/mred/test-editor-admin.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/mred/test-editor-admin.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/mred/testing.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/testing.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/text-scale.rkt" drdr:command-line ""
|
"collects/tests/mred/text-scale.rktl" drdr:command-line ""
|
||||||
"collects/tests/mred/windowing.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/mred/windowing.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/mred/wxme-doc-random.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/mred/wxme-doc-random.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/mred/wxme-random.rkt" drdr:command-line ""
|
"collects/tests/mred/wxme-random.rkt" drdr:command-line ""
|
||||||
"collects/tests/mred/wxme.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/mred/wxme.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/mysterx" responsible (mflatt)
|
"collects/tests/mysterx" responsible (mflatt)
|
||||||
"collects/tests/mysterx/dhtmltests.rkt" drdr:command-line ""
|
"collects/tests/mysterx/dhtmltests.rktl" drdr:command-line ""
|
||||||
"collects/tests/mysterx/mystests.rkt" drdr:command-line ""
|
"collects/tests/mysterx/mystests.rktl" drdr:command-line ""
|
||||||
"collects/tests/mzcom" responsible (mflatt)
|
"collects/tests/mzcom" responsible (mflatt)
|
||||||
"collects/tests/mzcom/test.rkt" drdr:command-line ""
|
"collects/tests/mzcom/test.rktl" drdr:command-line ""
|
||||||
"collects/tests/plai" responsible (jay)
|
"collects/tests/plai" responsible (jay)
|
||||||
"collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line ""
|
"collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line ""
|
||||||
"collects/tests/plai/gc/bad-mutators/mutator0.rkt" drdr:command-line ""
|
"collects/tests/plai/gc/bad-mutators/mutator0.rkt" drdr:command-line ""
|
||||||
|
|
@ -1404,18 +1415,18 @@ path/s is either such a string or a list of them.
|
||||||
"collects/tests/plot/run-tests.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/plot/run-tests.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/r6rs" responsible (mflatt)
|
"collects/tests/r6rs" responsible (mflatt)
|
||||||
"collects/tests/racket" responsible (mflatt)
|
"collects/tests/racket" responsible (mflatt)
|
||||||
"collects/tests/racket/advanced.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/advanced.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/all.rkt" drdr:command-line ""
|
"collects/tests/racket/all.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/async-channel.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/async-channel.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/awk.rkt" drdr:command-line ""
|
"collects/tests/racket/awk.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/basic.rkt" drdr:command-line ""
|
"collects/tests/racket/basic.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/beg-adv.rkt" drdr:command-line ""
|
"collects/tests/racket/beg-adv.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/beg-bega.rkt" drdr:command-line ""
|
"collects/tests/racket/beg-bega.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/beg-intm.rkt" drdr:command-line ""
|
"collects/tests/racket/beg-intm.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/beg-intml.rkt" drdr:command-line ""
|
"collects/tests/racket/beg-intml.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/bega-adv.rkt" drdr:command-line ""
|
"collects/tests/racket/bega-adv.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/beginner-abbr.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/beginner-abbr.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/beginner.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/beginner.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/benchmarks/common/auto.rkt" drdr:command-line "racket ~s -- racket ctak"
|
"collects/tests/racket/benchmarks/common/auto.rkt" drdr:command-line "racket ~s -- racket ctak"
|
||||||
"collects/tests/racket/benchmarks/common/conform.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/conform.rkt" drdr:command-line ""
|
||||||
"collects/tests/racket/benchmarks/common/ctak.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/ctak.rkt" drdr:command-line ""
|
||||||
|
|
@ -1428,14 +1439,14 @@ path/s is either such a string or a list of them.
|
||||||
"collects/tests/racket/benchmarks/common/maze.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/maze.rkt" drdr:command-line ""
|
||||||
"collects/tests/racket/benchmarks/common/maze2.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/racket/benchmarks/common/maze2.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/racket/benchmarks/common/mazefun.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/racket/benchmarks/common/mazefun.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/racket/benchmarks/common/mk-bigloo.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/mk-bigloo.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/benchmarks/common/mk-chicken.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/mk-chicken.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/benchmarks/common/mk-gambit.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/mk-gambit.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/benchmarks/common/nestedloop.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/racket/benchmarks/common/nestedloop.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/racket/benchmarks/common/nqueens.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/racket/benchmarks/common/nqueens.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/racket/benchmarks/common/paraffins.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/racket/benchmarks/common/paraffins.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/racket/benchmarks/common/peval.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/peval.rkt" drdr:command-line ""
|
||||||
"collects/tests/racket/benchmarks/common/r5rs-wrap.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/benchmarks/common/r5rs-wrap.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/benchmarks/common/scheme.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/scheme.rkt" drdr:command-line ""
|
||||||
"collects/tests/racket/benchmarks/common/scheme2.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/racket/benchmarks/common/scheme2.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/racket/benchmarks/common/sort1.rkt" drdr:command-line ""
|
"collects/tests/racket/benchmarks/common/sort1.rkt" drdr:command-line ""
|
||||||
|
|
@ -1481,199 +1492,199 @@ path/s is either such a string or a list of them.
|
||||||
"collects/tests/racket/benchmarks/shootout/spellcheck.rkt" drdr:command-line "mzc ~s"
|
"collects/tests/racket/benchmarks/shootout/spellcheck.rkt" drdr:command-line "mzc ~s"
|
||||||
"collects/tests/racket/benchmarks/shootout/strcat.rkt" drdr:command-line "racket -t ~s -- 25"
|
"collects/tests/racket/benchmarks/shootout/strcat.rkt" drdr:command-line "racket -t ~s -- 25"
|
||||||
"collects/tests/racket/benchmarks/shootout/thread-ring.rkt" drdr:command-line "racket -t ~s -- 25"
|
"collects/tests/racket/benchmarks/shootout/thread-ring.rkt" drdr:command-line "racket -t ~s -- 25"
|
||||||
"collects/tests/racket/binc.rkt" drdr:command-line ""
|
"collects/tests/racket/binc.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/boundmap-test.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/boundmap-test.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/cache-image-snip-test.rkt" drdr:command-line "mred -f ~s"
|
"collects/tests/racket/cache-image-snip-test.rktl" drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/racket/censor.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/censor.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/chaperone.rkt" drdr:command-line ""
|
"collects/tests/racket/chaperone.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/char-set.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/char-set.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/chez-module.rkt" drdr:command-line ""
|
"collects/tests/racket/chez-module.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/cm.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/cm.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/cmdline.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/cmdline.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/compat.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/compat.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/compile.rkt" drdr:command-line ""
|
"collects/tests/racket/compile.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/contmark.rkt" drdr:command-line ""
|
"collects/tests/racket/contmark.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/contract-mzlib-test.rkt" drdr:command-line ""
|
"collects/tests/racket/contract-mzlib-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/contract-opt-tests.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/contract-opt-tests.rkt" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/contract-test.rkt" responsible (robby) drdr:command-line ""
|
"collects/tests/racket/contract-test.rktl" responsible (robby) drdr:command-line ""
|
||||||
"collects/tests/racket/control.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/control.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/date.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/date.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/deep.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/deep.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/dict.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/dict.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/embed-in-c.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/embed-in-c.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/embed-me4.rkt" drdr:command-line ""
|
"collects/tests/racket/embed-me4.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/embed-me5.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/racket/embed-me5.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/racket/embed-me7.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/racket/embed-me7.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/racket/embed-me9.rkt" drdr:command-line ""
|
"collects/tests/racket/embed-me9.rkt" drdr:command-line ""
|
||||||
"collects/tests/racket/embed.rkt" drdr:command-line ""
|
"collects/tests/racket/embed.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/etc.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/etc.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/expand.rkt" drdr:command-line ""
|
"collects/tests/racket/expand.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/fact.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/fact.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/file.rkt" drdr:command-line ""
|
"collects/tests/racket/file.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/filelib.rkt" drdr:command-line "" drdr:timeout 360
|
"collects/tests/racket/filelib.rktl" drdr:command-line "" drdr:timeout 360
|
||||||
"collects/tests/racket/fixnum.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360
|
"collects/tests/racket/fixnum.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360
|
||||||
"collects/tests/racket/for.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/for.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/foreign-test.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/foreign-test.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/function.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/function.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/head.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/head.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/htdp-image.rkt" responsible (robby) drdr:command-line "mred -f ~s"
|
"collects/tests/racket/htdp-image.rktl" responsible (robby) drdr:command-line "mred -f ~s"
|
||||||
"collects/tests/racket/htdp-test.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/htdp-test.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/htdp.rkt" drdr:command-line ""
|
"collects/tests/racket/htdp.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/id-table-test.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/id-table-test.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/imap.rkt" drdr:command-line ""
|
"collects/tests/racket/imap.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/intermediate-lambda.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/intermediate-lambda.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/intermediate.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/intermediate.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/intm-adv.rkt" drdr:command-line ""
|
"collects/tests/racket/intm-adv.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/intm-intml.rkt" drdr:command-line ""
|
"collects/tests/racket/intm-intml.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/intmlam-adv.rkt" drdr:command-line ""
|
"collects/tests/racket/intmlam-adv.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/ktest.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/ktest.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/kw.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/kw.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/list.rkt" drdr:command-line ""
|
"collects/tests/racket/list.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/loadable.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/loadable.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/loadtest.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/loadtest.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/logger.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/logger.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/loop.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/loop.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/ltest.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/ltest.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/macro.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/macro.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/macrolib.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/macrolib.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/makeflat.rkt" drdr:command-line ""
|
"collects/tests/racket/makeflat.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/makeflats.rkt" drdr:command-line ""
|
"collects/tests/racket/makeflats.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/math.rkt" drdr:command-line ""
|
"collects/tests/racket/math.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/moddep.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/moddep.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/modprot.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/modprot.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/module-reader.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/module-reader.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/module.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/module.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/mpair.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/mpair.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/mz-tests.rkt" drdr:command-line ""
|
"collects/tests/racket/mz-tests.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/mzlib-tests.rkt" drdr:command-line ""
|
"collects/tests/racket/mzlib-tests.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/mzq.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/mzq.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/name.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/name.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/namespac.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/namespac.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/nch.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/nch.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/net.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/net.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/number.rkt" drdr:command-line ""
|
"collects/tests/racket/number.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/numstrs.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/numstrs.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/object-old.rkt" drdr:command-line ""
|
"collects/tests/racket/object-old.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/object.rkt" drdr:command-line ""
|
"collects/tests/racket/object.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/oe.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/oe.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/openssl.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/openssl.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/optimize.rkt" drdr:command-line ""
|
"collects/tests/racket/optimize.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/pack.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/pack.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/package-gen.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/package-gen.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/package.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/package.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/parallel.rkt" drdr:command-line ""
|
"collects/tests/racket/parallel.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/param.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/param.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/path.rkt" drdr:command-line ""
|
"collects/tests/racket/path.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/pathlib.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/pathlib.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/pconvert.rkt" drdr:command-line ""
|
"collects/tests/racket/pconvert.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/place-channel.rkt" drdr:command-line ""
|
"collects/tests/racket/place-channel.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/port.rkt" drdr:command-line ""
|
"collects/tests/racket/port.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/portlib.rkt" drdr:command-line ""
|
"collects/tests/racket/portlib.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/pp-regression.rkt" drdr:command-line ""
|
"collects/tests/racket/pp-regression.rkt" drdr:command-line ""
|
||||||
"collects/tests/racket/pretty.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/pretty.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/procs.rkt" drdr:command-line ""
|
"collects/tests/racket/procs.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/prompt-tests.rkt" drdr:command-line ""
|
"collects/tests/racket/prompt-tests.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/prompt.rkt" drdr:command-line ""
|
"collects/tests/racket/prompt.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/quiet.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360
|
"collects/tests/racket/quiet.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360
|
||||||
"collects/tests/racket/read.rkt" drdr:command-line ""
|
"collects/tests/racket/read.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/readtable.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/readtable.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/restart.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/restart.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/runflats.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/runflats.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/rx.rkt" drdr:command-line ""
|
"collects/tests/racket/rx.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/sandbox.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/sandbox.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/scheme-tests.rkt" drdr:command-line ""
|
"collects/tests/racket/scheme-tests.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/serialize.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/serialize.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/set.rkt" drdr:command-line ""
|
"collects/tests/racket/set.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/shared-tests.rkt" drdr:command-line ""
|
"collects/tests/racket/shared-tests.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/shared.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/shared.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/srfi.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/srfi.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/stream.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/stream.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/string-mzlib.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/string-mzlib.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/string.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/string.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/struct.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/struct.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/structlib.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/structlib.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/stx.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/stx.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/subprocess.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/subprocess.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/sync.rkt" drdr:command-line ""
|
"collects/tests/racket/sync.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/syntax-tests.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/syntax-tests.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/syntax.rkt" drdr:command-line ""
|
"collects/tests/racket/syntax.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/tcp.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/tcp.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/testing.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/testing.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/thread.rkt" drdr:command-line ""
|
"collects/tests/racket/thread.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/threadlib.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/threadlib.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/thrport.rkt" drdr:command-line ""
|
"collects/tests/racket/thrport.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/trace.rkt" drdr:command-line ""
|
"collects/tests/racket/trace.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/trait.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/trait.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/ttt/listlib.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/ttt/listlib.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/ttt/tic-bang.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/ttt/tic-bang.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/ttt/tic-func.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/ttt/tic-func.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/ttt/ttt.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/ttt/ttt.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/ttt/uinc4.rkt" drdr:command-line ""
|
"collects/tests/racket/ttt/uinc4.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/ttt/veclib.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/ttt/veclib.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/udp.rkt" drdr:command-line ""
|
"collects/tests/racket/udp.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/uinc.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/uinc.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/uinc2.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/uinc2.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/uinc3.rkt" drdr:command-line ""
|
"collects/tests/racket/uinc3.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/uni-norm.rkt" drdr:command-line ""
|
"collects/tests/racket/uni-norm.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/unicode.rkt" drdr:command-line ""
|
"collects/tests/racket/unicode.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/unit.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/unit.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/unitsig.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/unitsig.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/unsafe.rkt" drdr:command-line ""
|
"collects/tests/racket/unsafe.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/vector.rkt" drdr:command-line ""
|
"collects/tests/racket/vector.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/version.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/version.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/will.rkt" drdr:command-line "racket -f ~s"
|
"collects/tests/racket/will.rktl" drdr:command-line "racket -f ~s"
|
||||||
"collects/tests/racket/zo-marshal.rkt" drdr:command-line ""
|
"collects/tests/racket/zo-marshal.rktl" drdr:command-line ""
|
||||||
"collects/tests/racket/ztest.rkt" drdr:command-line ""
|
"collects/tests/racket/ztest.rktl" drdr:command-line ""
|
||||||
"collects/tests/raclog" responsible (jay)
|
"collects/tests/raclog" responsible (jay)
|
||||||
"collects/tests/racunit" responsible (jay noel)
|
"collects/tests/racunit" responsible (jay noel)
|
||||||
"collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600
|
"collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600
|
||||||
"collects/tests/scribble" responsible (eli mflatt)
|
"collects/tests/scribble" responsible (eli mflatt)
|
||||||
"collects/tests/slatex" responsible (jay sstrickl)
|
"collects/tests/slatex" responsible (jay sstrickl)
|
||||||
"collects/tests/srfi" responsible (noel chongkai jay)
|
"collects/tests/srfi" responsible (noel chongkai jay)
|
||||||
"collects/tests/srfi/1/run-tests.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/srfi/1/run-tests.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/srfi/40/run-tests.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/srfi/40/run-tests.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/srfi/43/run-tests.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/srfi/43/run-tests.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/srfi/load-srfis.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/srfi/load-srfis.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/srpersist" responsible (unknown)
|
"collects/tests/srpersist" responsible (unknown)
|
||||||
"collects/tests/srpersist/srptests.rkt" drdr:command-line ""
|
"collects/tests/srpersist/srptests.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper" responsible (clements)
|
"collects/tests/stepper" responsible (clements)
|
||||||
"collects/tests/stepper/already-defined.rkt" drdr:command-line ""
|
"collects/tests/stepper/already-defined.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/bad-letrec-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/bad-letrec-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/constructor-redexes.rkt" drdr:command-line ""
|
"collects/tests/stepper/constructor-redexes.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/global-prim-reduction.rkt" drdr:command-line ""
|
"collects/tests/stepper/global-prim-reduction.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/image-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/image-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/intermediate-y.rkt" drdr:command-line ""
|
"collects/tests/stepper/intermediate-y.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/jump-to-ui-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/jump-to-ui-test.rkt" drdr:command-line ""
|
||||||
"collects/tests/stepper/lambda-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/lambda-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/let-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/let-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/letrec-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/letrec-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/local-define-struct.rkt" drdr:command-line ""
|
"collects/tests/stepper/local-define-struct.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/local-test-2.rkt" drdr:command-line ""
|
"collects/tests/stepper/local-test-2.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/local-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/local-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/long-error-message.rkt" drdr:command-line ""
|
"collects/tests/stepper/long-error-message.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/multiply-defined.rkt" drdr:command-line ""
|
"collects/tests/stepper/multiply-defined.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/name-chaining.rkt" drdr:command-line ""
|
"collects/tests/stepper/name-chaining.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/no-else-clause.rkt" drdr:command-line ""
|
"collects/tests/stepper/no-else-clause.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/non-procedure.rkt" drdr:command-line ""
|
"collects/tests/stepper/non-procedure.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/print-convert-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/print-convert-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/printing-reducing-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/printing-reducing-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/procedure-display.rkt" drdr:command-line ""
|
"collects/tests/stepper/procedure-display.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/right-redex.rkt" drdr:command-line ""
|
"collects/tests/stepper/right-redex.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/structures.rkt" drdr:command-line ""
|
"collects/tests/stepper/structures.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/symbol-identifier.rkt" drdr:command-line ""
|
"collects/tests/stepper/symbol-identifier.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/symbols.rkt" drdr:command-line ""
|
"collects/tests/stepper/symbols.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/syntax-error-ordering.rkt" drdr:command-line ""
|
"collects/tests/stepper/syntax-error-ordering.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/test-or.rkt" drdr:command-line ""
|
"collects/tests/stepper/test-or.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/two-tests.rkt" drdr:command-line ""
|
"collects/tests/stepper/two-tests.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/unannotated.rkt" drdr:command-line ""
|
"collects/tests/stepper/unannotated.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/undefined.rkt" drdr:command-line ""
|
"collects/tests/stepper/undefined.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/world-test.rkt" drdr:command-line ""
|
"collects/tests/stepper/world-test.rktl" drdr:command-line ""
|
||||||
"collects/tests/stepper/write-display.rkt" drdr:command-line ""
|
"collects/tests/stepper/write-display.rktl" drdr:command-line ""
|
||||||
"collects/tests/stxparse" responsible (ryanc)
|
"collects/tests/stxparse" responsible (ryanc)
|
||||||
"collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/syntax-color" responsible (sowens mflatt)
|
"collects/tests/syntax-color" responsible (sowens mflatt)
|
||||||
"collects/tests/syntax-color/paren-tree.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/syntax-color/paren-tree.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/syntax-color/token-tree.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/syntax-color/token-tree.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/test-engine" responsible (kathyg)
|
"collects/tests/test-engine" responsible (kathyg)
|
||||||
"collects/tests/typed-scheme" responsible (samth)
|
"collects/tests/typed-scheme" responsible (samth)
|
||||||
"collects/tests/typed-scheme/fail" drdr:command-line ""
|
"collects/tests/typed-scheme/fail" drdr:command-line ""
|
||||||
|
|
@ -1682,15 +1693,15 @@ path/s is either such a string or a list of them.
|
||||||
"collects/tests/typed-scheme/run.rkt" drdr:command-line "" drdr:timeout 600
|
"collects/tests/typed-scheme/run.rkt" drdr:command-line "" drdr:timeout 600
|
||||||
"collects/tests/typed-scheme/xfail" drdr:command-line ""
|
"collects/tests/typed-scheme/xfail" drdr:command-line ""
|
||||||
"collects/tests/units" responsible (sstrickl)
|
"collects/tests/units" responsible (sstrickl)
|
||||||
"collects/tests/units/multi-mod-sigs.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/units/multi-mod-sigs.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/units/test-cert.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/units/test-cert.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/units/test-exptime.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/units/test-exptime.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/units/test-harness.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/units/test-harness.rkt" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/units/test-runtime.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/units/test-runtime.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/units/test-unit-contracts.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/units/test-unit-contracts.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/units/test-unit.rkt" drdr:command-line "mzscheme -f ~s"
|
"collects/tests/units/test-unit.rktl" drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/unstable/generics.rkt" responsible (jay)
|
"collects/tests/unstable/generics.rkt" responsible (jay)
|
||||||
"collects/tests/unstable/srcloc.rkt" responsible (cce) drdr:command-line "mzscheme -f ~s"
|
"collects/tests/unstable/srcloc.rktl" responsible (cce) drdr:command-line "mzscheme -f ~s"
|
||||||
"collects/tests/utils" responsible (unknown)
|
"collects/tests/utils" responsible (unknown)
|
||||||
"collects/tests/utils/gui.rkt" drdr:command-line "mred-text -t ~s"
|
"collects/tests/utils/gui.rkt" drdr:command-line "mred-text -t ~s"
|
||||||
"collects/tests/web-server" responsible (jay)
|
"collects/tests/web-server" responsible (jay)
|
||||||
|
|
|
||||||
|
|
@ -206,16 +206,16 @@ tempted to put just
|
||||||
(substring str 4 7))
|
(substring str 4 7))
|
||||||
]
|
]
|
||||||
|
|
||||||
into @filepath{extract.scm} and run @exec{racket} with
|
into @filepath{extract.rktl} and run @exec{racket} with
|
||||||
|
|
||||||
@interaction[
|
@interaction[
|
||||||
#:eval piece-eval
|
#:eval piece-eval
|
||||||
(eval:alts (load "extract.scm") (void))
|
(eval:alts (load "extract.rktl") (void))
|
||||||
(extract "the dog out")
|
(extract "the dog out")
|
||||||
]
|
]
|
||||||
|
|
||||||
That will work, because @exec{racket} is willing to imitate a
|
That will work, because @exec{racket} is willing to imitate a
|
||||||
traditional Scheme environment, but we strongly recommend against using
|
traditional Lisp environment, but we strongly recommend against using
|
||||||
@racket[load] or writing programs outside of a module.
|
@racket[load] or writing programs outside of a module.
|
||||||
|
|
||||||
Writing definitions outside of a module leads to bad error messages,
|
Writing definitions outside of a module leads to bad error messages,
|
||||||
|
|
|
||||||
|
|
@ -76,7 +76,7 @@ by @racket[kind], which must be one of the following:
|
||||||
|
|
||||||
@item{@|AllUnix|: @indexed-file{.racketrc}}
|
@item{@|AllUnix|: @indexed-file{.racketrc}}
|
||||||
|
|
||||||
@item{Windows: @indexed-file{racketrc.rkts}}
|
@item{Windows: @indexed-file{racketrc.rktl}}
|
||||||
|
|
||||||
]}
|
]}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +0,0 @@
|
||||||
|
|
||||||
(load-relative "editor.rkt")
|
|
||||||
(load-relative "paramz.rkt")
|
|
||||||
(load-relative "dc.rkt")
|
|
||||||
(load-relative "windowing.rkt")
|
|
||||||
5
collects/tests/mred/auto.rktl
Normal file
5
collects/tests/mred/auto.rktl
Normal file
|
|
@ -0,0 +1,5 @@
|
||||||
|
|
||||||
|
(load-relative "editor.rktl")
|
||||||
|
(load-relative "paramz.rktl")
|
||||||
|
(load-relative "dc.rktl")
|
||||||
|
(load-relative "windowing.rktl")
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; DC Tests ;;
|
;; DC Tests ;;
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Editor Tests ;;
|
;; Editor Tests ;;
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
(let ([f (load-relative "gui-main.rkt")])
|
(let ([f (load-relative "gui-main.rktl")])
|
||||||
(thread
|
(thread
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(f "New" "Save" mred:console-frame%))))
|
(f "New" "Save" mred:console-frame%))))
|
||||||
|
|
@ -2,4 +2,4 @@
|
||||||
(unless (with-handlers ([exn:fail? (lambda (x) #f)])
|
(unless (with-handlers ([exn:fail? (lambda (x) #f)])
|
||||||
(namespace-variable-binding 'SECTION)
|
(namespace-variable-binding 'SECTION)
|
||||||
#t)
|
#t)
|
||||||
(load-relative "testing.rkt"))
|
(load-relative "testing.rktl"))
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Yield Tests ;;
|
;; Yield Tests ;;
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(define shorter? #t)
|
(define shorter? #t)
|
||||||
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
;; Basic checks for the advanced language. See also
|
;; Basic checks for the advanced language. See also
|
||||||
;; beginner.ss
|
;; beginner.ss
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;; Don't need these:
|
;; Don't need these:
|
||||||
(define no-extra-if-tests? #t)
|
(define no-extra-if-tests? #t)
|
||||||
|
|
@ -22,13 +22,13 @@
|
||||||
docs))
|
docs))
|
||||||
|
|
||||||
(define current-htdp-lang 'lang/htdp-advanced)
|
(define current-htdp-lang 'lang/htdp-advanced)
|
||||||
(load-relative "htdp-test.rkt")
|
(load-relative "htdp-test.rktl")
|
||||||
|
|
||||||
(require (lib "htdp-advanced.rkt" "lang"))
|
(require (lib "htdp-advanced.rkt" "lang"))
|
||||||
|
|
||||||
(load-relative "beg-adv.rkt")
|
(load-relative "beg-adv.rktl")
|
||||||
(load-relative "bega-adv.rkt")
|
(load-relative "bega-adv.rktl")
|
||||||
(load-relative "intm-adv.rkt")
|
(load-relative "intm-adv.rktl")
|
||||||
|
|
||||||
(define (f6 a) (a))
|
(define (f6 a) (a))
|
||||||
(test (void) f6 void)
|
(test (void) f6 void)
|
||||||
|
|
@ -190,7 +190,7 @@
|
||||||
(htdp-test 13 'loop (recur f ([f 13]) f))
|
(htdp-test 13 'loop (recur f ([f 13]) f))
|
||||||
(htdp-test 14 'loop (let ([f 14]) (recur f ([f f]) f)))
|
(htdp-test 14 'loop (let ([f 14]) (recur f ([f f]) f)))
|
||||||
|
|
||||||
(load (build-path (collection-path "tests" "racket") "shared-tests.rkt"))
|
(load (build-path (collection-path "tests" "racket") "shared-tests.rktl"))
|
||||||
|
|
||||||
(htdp-test #t 'equal? (equal? (vector (list 10) 'apple) (vector (list 10) 'apple)))
|
(htdp-test #t 'equal? (equal? (vector (list 10) 'apple) (vector (list 10) 'apple)))
|
||||||
(htdp-test #t 'equal? (equal? (shared ([x (cons 10 x)]) x) (shared ([x (cons 10 x)]) x)))
|
(htdp-test #t 'equal? (equal? (shared ([x (cons 10 x)]) x) (shared ([x (cons 10 x)]) x)))
|
||||||
|
|
@ -1,9 +0,0 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
|
||||||
(load-relative "mz-tests.rkt")
|
|
||||||
(load-relative "scheme-tests.rkt")
|
|
||||||
(load-relative "mzlib-tests.rkt")
|
|
||||||
(load-relative "syntax-tests.rkt")
|
|
||||||
(load-in-sandbox "version.rkt")
|
|
||||||
(load-in-sandbox "foreign-test.rkt")
|
|
||||||
(load-in-sandbox "uni-norm.rkt")
|
|
||||||
9
collects/tests/racket/all.rktl
Normal file
9
collects/tests/racket/all.rktl
Normal file
|
|
@ -0,0 +1,9 @@
|
||||||
|
|
||||||
|
(load-relative "loadtest.rktl")
|
||||||
|
(load-relative "mz-tests.rktl")
|
||||||
|
(load-relative "scheme-tests.rktl")
|
||||||
|
(load-relative "mzlib-tests.rktl")
|
||||||
|
(load-relative "syntax-tests.rktl")
|
||||||
|
(load-in-sandbox "version.rktl")
|
||||||
|
(load-in-sandbox "foreign-test.rktl")
|
||||||
|
(load-in-sandbox "uni-norm.rktl")
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
|
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(require scheme/async-channel)
|
(require scheme/async-channel)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'awk)
|
(Section 'awk)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'basic)
|
(Section 'basic)
|
||||||
|
|
||||||
|
|
@ -10,7 +10,7 @@
|
||||||
;; Don't try to run other tests from the test suite after loading this
|
;; Don't try to run other tests from the test suite after loading this
|
||||||
;; one into a particular namespace.
|
;; one into a particular namespace.
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;; Don't need these:
|
;; Don't need these:
|
||||||
(define no-extra-if-tests? #t)
|
(define no-extra-if-tests? #t)
|
||||||
|
|
@ -20,14 +20,14 @@
|
||||||
exn:fail:contract?))
|
exn:fail:contract?))
|
||||||
|
|
||||||
(define current-htdp-lang 'lang/htdp-beginner-abbr)
|
(define current-htdp-lang 'lang/htdp-beginner-abbr)
|
||||||
(load-relative "htdp-test.rkt")
|
(load-relative "htdp-test.rktl")
|
||||||
|
|
||||||
(require (lib "htdp-beginner-abbr.rkt" "lang"))
|
(require (lib "htdp-beginner-abbr.rkt" "lang"))
|
||||||
|
|
||||||
(load-relative "beg-adv.rkt")
|
(load-relative "beg-adv.rktl")
|
||||||
(load-relative "beg-intml.rkt")
|
(load-relative "beg-intml.rktl")
|
||||||
(load-relative "beg-intm.rkt")
|
(load-relative "beg-intm.rktl")
|
||||||
(load-relative "beg-bega.rkt")
|
(load-relative "beg-bega.rktl")
|
||||||
(load-relative "bega-adv.rkt")
|
(load-relative "bega-adv.rktl")
|
||||||
|
|
||||||
(report-errs)
|
(report-errs)
|
||||||
|
|
@ -49,7 +49,7 @@
|
||||||
;; removes the last <n> added expressions
|
;; removes the last <n> added expressions
|
||||||
;;
|
;;
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;; Check that expansion doesn't introduce non-equal ids that
|
;; Check that expansion doesn't introduce non-equal ids that
|
||||||
;; claim to be "original" at the same place
|
;; claim to be "original" at the same place
|
||||||
|
|
@ -82,14 +82,14 @@
|
||||||
(require (only-in mzscheme exn:fail? exn:fail:contract?))
|
(require (only-in mzscheme exn:fail? exn:fail:contract?))
|
||||||
|
|
||||||
(define current-htdp-lang 'lang/htdp-beginner)
|
(define current-htdp-lang 'lang/htdp-beginner)
|
||||||
(load-relative "htdp-test.rkt")
|
(load-relative "htdp-test.rktl")
|
||||||
|
|
||||||
(require (lib "htdp-beginner.rkt" "lang"))
|
(require (lib "htdp-beginner.rkt" "lang"))
|
||||||
|
|
||||||
(load-relative "beg-adv.rkt")
|
(load-relative "beg-adv.rktl")
|
||||||
(load-relative "beg-intml.rkt")
|
(load-relative "beg-intml.rktl")
|
||||||
(load-relative "beg-intm.rkt")
|
(load-relative "beg-intm.rktl")
|
||||||
(load-relative "beg-bega.rkt")
|
(load-relative "beg-bega.rktl")
|
||||||
|
|
||||||
(htdp-syntax-test #'quote)
|
(htdp-syntax-test #'quote)
|
||||||
(htdp-syntax-test #''1)
|
(htdp-syntax-test #''1)
|
||||||
|
|
@ -42,9 +42,9 @@ Files that end in ".sch" are supposed to be standard Scheme plus `time'.
|
||||||
Files that end in ".rkt" are Racket wrapper modules or helper scripts.
|
Files that end in ".rkt" are Racket wrapper modules or helper scripts.
|
||||||
|
|
||||||
To build <benchmark>.sch directly with Gambit, Bigloo, or Chicken:
|
To build <benchmark>.sch directly with Gambit, Bigloo, or Chicken:
|
||||||
racket -qr mk-gambit.rkt <benchmark> ; gsi -:m10000 <benchmark>.o1
|
racket -f mk-gambit.rktl <benchmark> ; gsi -:m10000 <benchmark>.o1
|
||||||
racket -qr mk-bigloo.rkt <benchmark> ; <benchmark>
|
racket -f mk-bigloo.rktl <benchmark> ; <benchmark>
|
||||||
racket -qr mk-chicken.rkt <benchmark> ; <benchmark>
|
racket -f mk-chicken.rktl <benchmark> ; <benchmark>
|
||||||
|
|
||||||
Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark,
|
Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark,
|
||||||
but the "auto.rkt" script will do that for you.
|
but the "auto.rkt" script will do that for you.
|
||||||
|
|
|
||||||
|
|
@ -59,7 +59,7 @@ exec racket -qu "$0" ${1+"$@"}
|
||||||
(with-output-to-file (format "~a.scm" bm)
|
(with-output-to-file (format "~a.scm" bm)
|
||||||
#:exists 'replace
|
#:exists 'replace
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(printf "(load \"r5rs-wrap.rkt\")\n(load \"~a.sch\")\n" bm)))
|
(printf "(load \"r5rs-wrap.rktl\")\n(load \"~a.sch\")\n" bm)))
|
||||||
;; To get compilation time:
|
;; To get compilation time:
|
||||||
(parameterize ([current-namespace (make-base-empty-namespace)])
|
(parameterize ([current-namespace (make-base-empty-namespace)])
|
||||||
(namespace-require 'r5rs)
|
(namespace-require 'r5rs)
|
||||||
|
|
@ -399,21 +399,21 @@ exec racket -qu "$0" ${1+"$@"}
|
||||||
mutable-pair-progs))
|
mutable-pair-progs))
|
||||||
(make-impl 'chicken
|
(make-impl 'chicken
|
||||||
void
|
void
|
||||||
(run-mk "mk-chicken.rkt")
|
(run-mk "mk-chicken.rktl")
|
||||||
run-exe
|
run-exe
|
||||||
extract-chicken-times
|
extract-chicken-times
|
||||||
clean-up-bin
|
clean-up-bin
|
||||||
'(scheme2 takr2))
|
'(scheme2 takr2))
|
||||||
(make-impl 'bigloo
|
(make-impl 'bigloo
|
||||||
void
|
void
|
||||||
(run-mk "mk-bigloo.rkt")
|
(run-mk "mk-bigloo.rktl")
|
||||||
run-exe
|
run-exe
|
||||||
extract-bigloo-times
|
extract-bigloo-times
|
||||||
clean-up-bin
|
clean-up-bin
|
||||||
'(cpstack takr2))
|
'(cpstack takr2))
|
||||||
(make-impl 'gambit
|
(make-impl 'gambit
|
||||||
void
|
void
|
||||||
(run-mk "mk-gambit.rkt")
|
(run-mk "mk-gambit.rktl")
|
||||||
run-gambit-exe
|
run-gambit-exe
|
||||||
extract-gambit-times
|
extract-gambit-times
|
||||||
clean-up-o1
|
clean-up-o1
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(require syntax/boundmap)
|
(require syntax/boundmap)
|
||||||
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(require mrlib/cache-image-snip
|
(require mrlib/cache-image-snip
|
||||||
mzlib/unit)
|
mzlib/unit)
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
|
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
(Section 'chaperones)
|
(Section 'chaperones)
|
||||||
|
|
||||||
;; ----------------------------------------
|
;; ----------------------------------------
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'char-set/srfi-14)
|
(Section 'char-set/srfi-14)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'cm)
|
(Section 'cm)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'command-line)
|
(Section 'command-line)
|
||||||
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
|
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'compat)
|
(Section 'compat)
|
||||||
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
; Tests compilation and writing/reading compiled code
|
; Tests compilation and writing/reading compiled code
|
||||||
; by setting the eval handler and running all tests
|
; by setting the eval handler and running all tests
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(namespace-variable-value
|
(namespace-variable-value
|
||||||
'compile-load
|
'compile-load
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
|
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'continuation-marks)
|
(Section 'continuation-marks)
|
||||||
|
|
||||||
|
|
@ -1,12 +1,12 @@
|
||||||
#|
|
#|
|
||||||
|
|
||||||
This file started out as a copy of contract-test.rkt.
|
This file started out as a copy of contract-test.rktl.
|
||||||
Its purpose is to try to ensure that the mzlib version
|
Its purpose is to try to ensure that the mzlib version
|
||||||
of the contract library does not change over time.
|
of the contract library does not change over time.
|
||||||
|
|
||||||
|#
|
|#
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
(Section 'mzlib/contract)
|
(Section 'mzlib/contract)
|
||||||
|
|
||||||
(parameterize ([error-print-width 200])
|
(parameterize ([error-print-width 200])
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
(Section 'contract)
|
(Section 'contract)
|
||||||
|
|
||||||
(parameterize ([error-print-width 200])
|
(parameterize ([error-print-width 200])
|
||||||
|
|
@ -4,7 +4,7 @@
|
||||||
;; aka. -F- through +F+
|
;; aka. -F- through +F+
|
||||||
;; $Id: delim-control-n.scm 815 2005-09-05 23:02:12Z oleg $
|
;; $Id: delim-control-n.scm 815 2005-09-05 23:02:12Z oleg $
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'control)
|
(Section 'control)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'date)
|
(Section 'date)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'deep)
|
(Section 'deep)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'dict)
|
(Section 'dict)
|
||||||
|
|
||||||
|
|
@ -2,7 +2,7 @@
|
||||||
;; Almost works for Mac OS X.
|
;; Almost works for Mac OS X.
|
||||||
;; Assumes 3m.
|
;; Assumes 3m.
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'embed-in-c)
|
(Section 'embed-in-c)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'embed)
|
(Section 'embed)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'etc)
|
(Section 'etc)
|
||||||
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
|
|
||||||
(require syntax/toplevel)
|
(require syntax/toplevel)
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;; test that expansion preserves source location information
|
;; test that expansion preserves source location information
|
||||||
;; for fully expanded terms
|
;; for fully expanded terms
|
||||||
|
|
@ -1,9 +1,9 @@
|
||||||
(require mzlib/os)
|
(require mzlib/os)
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'file)
|
(Section 'file)
|
||||||
|
|
||||||
(define testing.rkt (build-path (current-load-relative-directory) "testing.rkt"))
|
(define testing.rktl (build-path (current-load-relative-directory) "testing.rktl"))
|
||||||
|
|
||||||
(test #t input-port? (current-input-port))
|
(test #t input-port? (current-input-port))
|
||||||
(test #t output-port? (current-output-port))
|
(test #t output-port? (current-output-port))
|
||||||
|
|
@ -11,14 +11,14 @@
|
||||||
(test (void) current-input-port (current-input-port))
|
(test (void) current-input-port (current-input-port))
|
||||||
(test (void) current-output-port (current-output-port))
|
(test (void) current-output-port (current-output-port))
|
||||||
(test (void) current-error-port (current-error-port))
|
(test (void) current-error-port (current-error-port))
|
||||||
(test #t call-with-input-file testing.rkt input-port?)
|
(test #t call-with-input-file testing.rktl input-port?)
|
||||||
(define this-file (open-input-file testing.rkt))
|
(define this-file (open-input-file testing.rktl))
|
||||||
(test #t input-port? this-file)
|
(test #t input-port? this-file)
|
||||||
(close-input-port this-file)
|
(close-input-port this-file)
|
||||||
(define this-file (open-input-file testing.rkt #:mode 'binary))
|
(define this-file (open-input-file testing.rktl #:mode 'binary))
|
||||||
(test #t input-port? this-file)
|
(test #t input-port? this-file)
|
||||||
(close-input-port this-file)
|
(close-input-port this-file)
|
||||||
(define this-file (open-input-file testing.rkt #:mode 'text))
|
(define this-file (open-input-file testing.rktl #:mode 'text))
|
||||||
(test #t input-port? this-file)
|
(test #t input-port? this-file)
|
||||||
(arity-test input-port? 1 1)
|
(arity-test input-port? 1 1)
|
||||||
(arity-test output-port? 1 1)
|
(arity-test output-port? 1 1)
|
||||||
|
|
@ -1144,7 +1144,7 @@
|
||||||
rest
|
rest
|
||||||
(cons c rest))]))])))
|
(cons c rest))]))])))
|
||||||
|
|
||||||
(define with-censor (load-relative "censor.rkt"))
|
(define with-censor (load-relative "censor.rktl"))
|
||||||
|
|
||||||
; test for all bad tags; the string we generate shouldn't
|
; test for all bad tags; the string we generate shouldn't
|
||||||
; be printed to a terminal directly because it can contain contain
|
; be printed to a terminal directly because it can contain contain
|
||||||
|
|
@ -1243,7 +1243,7 @@
|
||||||
(cust-test (lambda ()
|
(cust-test (lambda ()
|
||||||
(open-input-file
|
(open-input-file
|
||||||
(build-path (current-load-relative-directory)
|
(build-path (current-load-relative-directory)
|
||||||
"file.rkt")))))
|
"file.rktl")))))
|
||||||
|
|
||||||
;; Too time-consuming, does bad things to the network:
|
;; Too time-consuming, does bad things to the network:
|
||||||
'(let* ( [l (tcp-listen 0)]
|
'(let* ( [l (tcp-listen 0)]
|
||||||
|
|
@ -1315,7 +1315,7 @@
|
||||||
;; UDP
|
;; UDP
|
||||||
|
|
||||||
(unless (eq? 'macos (system-type))
|
(unless (eq? 'macos (system-type))
|
||||||
(load-relative "udp.rkt"))
|
(load-relative "udp.rktl"))
|
||||||
|
|
||||||
(when (eq? 'macos (system-type))
|
(when (eq? 'macos (system-type))
|
||||||
(err/rt-test (udp-open-socket) exn:misc:unsupported?)
|
(err/rt-test (udp-open-socket) exn:misc:unsupported?)
|
||||||
|
|
@ -1324,7 +1324,7 @@
|
||||||
|
|
||||||
(test #f udp? 5)
|
(test #f udp? 5)
|
||||||
|
|
||||||
;; more type tests in udp.rkt, where we have UDP socket values
|
;; more type tests in udp.rktl, where we have UDP socket values
|
||||||
(err/rt-test (udp-close 5))
|
(err/rt-test (udp-close 5))
|
||||||
(err/rt-test (udp-bound? 5))
|
(err/rt-test (udp-bound? 5))
|
||||||
(err/rt-test (udp-connected? 5))
|
(err/rt-test (udp-connected? 5))
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'filelib)
|
(Section 'filelib)
|
||||||
|
|
||||||
|
|
@ -60,12 +60,12 @@
|
||||||
(let ([rel (find-files values)]
|
(let ([rel (find-files values)]
|
||||||
[abs (find-files values (current-directory))])
|
[abs (find-files values (current-directory))])
|
||||||
(test #t = (length rel) (sub1 (length abs)))
|
(test #t = (length rel) (sub1 (length abs)))
|
||||||
(test #f member "filelib.rkt" abs)
|
(test #f member "filelib.rktl" abs)
|
||||||
(test #f null? (member "filelib.rkt" rel))
|
(test #f null? (member "filelib.rktl" rel))
|
||||||
(test #f null? (member (build-path (current-directory) "filelib.rkt") abs))
|
(test #f null? (member (build-path (current-directory) "filelib.rktl") abs))
|
||||||
|
|
||||||
(test (list (string->path "filelib.rkt")) find-files (lambda (f) (regexp-match "^filelib[.]rkt$" (path->string f))))
|
(test (list (string->path "filelib.rktl")) find-files (lambda (f) (regexp-match "^filelib[.]rkt$" (path->string f))))
|
||||||
(test (list (build-path (current-directory) "filelib.rkt"))
|
(test (list (build-path (current-directory) "filelib.rktl"))
|
||||||
find-files (lambda (f) (regexp-match "filelib[.]rkt$" (path->string f)))
|
find-files (lambda (f) (regexp-match "filelib[.]rkt$" (path->string f)))
|
||||||
(current-directory))
|
(current-directory))
|
||||||
|
|
||||||
|
|
@ -81,7 +81,7 @@
|
||||||
(test #t equal? (sort rel) (sort rel2))
|
(test #t equal? (sort rel) (sort rel2))
|
||||||
|
|
||||||
(unless (eq? (system-type) 'windows)
|
(unless (eq? (system-type) 'windows)
|
||||||
(make-file-or-directory-link "filelib.rkt" "filelib-link")
|
(make-file-or-directory-link "filelib.rktl" "filelib-link")
|
||||||
(make-file-or-directory-link "." "loop-link")
|
(make-file-or-directory-link "." "loop-link")
|
||||||
|
|
||||||
(test (+ 2 (length rel2))
|
(test (+ 2 (length rel2))
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
(Section 'fixnum)
|
(Section 'fixnum)
|
||||||
(require scheme/fixnum
|
(require scheme/fixnum
|
||||||
scheme/unsafe/ops
|
scheme/unsafe/ops
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'for)
|
(Section 'for)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'foreign)
|
(Section 'foreign)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'function)
|
(Section 'function)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;;
|
;;
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
;; Load this one with MrEd
|
;; Load this one with MrEd
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
(require teachpack/htdp/image
|
(require teachpack/htdp/image
|
||||||
htdp/error
|
htdp/error
|
||||||
lang/posn
|
lang/posn
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(load-in-sandbox "beginner.ss")
|
(load-in-sandbox "beginner.ss")
|
||||||
(load-in-sandbox "beginner-abbr.ss")
|
(load-in-sandbox "beginner-abbr.ss")
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(require syntax/id-table
|
(require syntax/id-table
|
||||||
scheme/dict)
|
scheme/dict)
|
||||||
|
|
@ -6,7 +6,7 @@
|
||||||
read))
|
read))
|
||||||
(define mailbox-name "INBOX.tmp") ;; !!! ALL CONTENT WILL BE DELETED !!!
|
(define mailbox-name "INBOX.tmp") ;; !!! ALL CONTENT WILL BE DELETED !!!
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'imap)
|
(Section 'imap)
|
||||||
|
|
||||||
|
|
@ -1,8 +1,8 @@
|
||||||
|
|
||||||
;; Basic checks for the intermediate language. See also
|
;; Basic checks for the intermediate language. See also
|
||||||
;; beginner.rkt
|
;; beginner.rktl
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;; Don't need these:
|
;; Don't need these:
|
||||||
(define no-extra-if-tests? #t)
|
(define no-extra-if-tests? #t)
|
||||||
|
|
@ -21,14 +21,14 @@
|
||||||
docs))
|
docs))
|
||||||
|
|
||||||
(define current-htdp-lang 'lang/htdp-intermediate-lambda)
|
(define current-htdp-lang 'lang/htdp-intermediate-lambda)
|
||||||
(load-relative "htdp-test.rkt")
|
(load-relative "htdp-test.rktl")
|
||||||
|
|
||||||
(require (lib "htdp-intermediate-lambda.rkt" "lang"))
|
(require (lib "htdp-intermediate-lambda.rkt" "lang"))
|
||||||
|
|
||||||
(load-relative "beg-adv.rkt")
|
(load-relative "beg-adv.rktl")
|
||||||
(load-relative "beg-intml.rkt")
|
(load-relative "beg-intml.rktl")
|
||||||
(load-relative "bega-adv.rkt")
|
(load-relative "bega-adv.rktl")
|
||||||
(load-relative "intm-intml.rkt")
|
(load-relative "intm-intml.rktl")
|
||||||
(load-relative "intm-adv.rkt")
|
(load-relative "intm-adv.rktl")
|
||||||
|
|
||||||
(report-errs)
|
(report-errs)
|
||||||
|
|
@ -1,8 +1,8 @@
|
||||||
|
|
||||||
;; Basic checks for the intermediate language. See also
|
;; Basic checks for the intermediate language. See also
|
||||||
;; beginner.rkt
|
;; beginner.rktl
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
;; Don't need these:
|
;; Don't need these:
|
||||||
(define no-extra-if-tests? #t)
|
(define no-extra-if-tests? #t)
|
||||||
|
|
@ -21,15 +21,15 @@
|
||||||
docs))
|
docs))
|
||||||
|
|
||||||
(define current-htdp-lang 'lang/htdp-intermediate)
|
(define current-htdp-lang 'lang/htdp-intermediate)
|
||||||
(load-relative "htdp-test.rkt")
|
(load-relative "htdp-test.rktl")
|
||||||
|
|
||||||
(require (lib "htdp-intermediate.rkt" "lang"))
|
(require (lib "htdp-intermediate.rkt" "lang"))
|
||||||
|
|
||||||
(load-relative "beg-adv.rkt")
|
(load-relative "beg-adv.rktl")
|
||||||
(load-relative "beg-intml.rkt")
|
(load-relative "beg-intml.rktl")
|
||||||
(load-relative "beg-intm.rkt")
|
(load-relative "beg-intm.rktl")
|
||||||
(load-relative "bega-adv.rkt")
|
(load-relative "bega-adv.rktl")
|
||||||
(load-relative "intm-intml.rkt")
|
(load-relative "intm-intml.rktl")
|
||||||
(load-relative "intm-adv.rkt")
|
(load-relative "intm-adv.rktl")
|
||||||
|
|
||||||
(report-errs)
|
(report-errs)
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'kw)
|
(Section 'kw)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'list)
|
(Section 'list)
|
||||||
|
|
||||||
|
|
@ -1,3 +1,3 @@
|
||||||
|
|
||||||
(unless (namespace-variable-value 'Section #f (lambda () #f))
|
(unless (namespace-variable-value 'Section #f (lambda () #f))
|
||||||
(load-relative "testing.rkt"))
|
(load-relative "testing.rktl"))
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'logger)
|
(Section 'logger)
|
||||||
|
|
||||||
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
(load-relative "loadtest.rkt")
|
(load-relative "loadtest.rktl")
|
||||||
|
|
||||||
(Section 'macro)
|
(Section 'macro)
|
||||||
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user