diff --git a/collects/meta/props b/collects/meta/props index 05454f143e..6f1ef378d1 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1,6 +1,6 @@ #!/bin/sh #| -*- scheme -*- -exec mzscheme -um "$0" "$@" +exec racket -um "$0" "$@" |# #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] [("get") "get " ,get] [("set") "set " ,set] - [("del") "del " ,del])) + [("del") "del " ,del] + [("mv") "mv " ,mv])) (define (find-root) (let loop ([p this-file] [n 3]) ; look only a few level up (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) (del-prop! (paths->list path paths) (string->symbol prop)) (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) (let* ([verb (if (pair? args) (car args) (usage "missing subcommand"))] [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/tests" responsible (eli) "collects/tests/aligned-pasteboard" responsible (unknown) -"collects/tests/aligned-pasteboard/example.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/big-min.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/example.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/big-min.rktl" 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/test-alignment.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-snip-lib.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/test.rkt" drdr:command-line "mred -f ~s" -"collects/tests/aligned-pasteboard/test2.rkt" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/test-alignment.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-snip-lib.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test.rktl" 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/regression.rkt" responsible (mflatt) "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/test-suite-utils.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/time.rkt" drdr:command-line "mred-text -t ~s" "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/match" responsible (samth) "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/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/editor.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui-main.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/editor.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui-main.rktl" 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/loadtest.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/mem.rkt" drdr:command-line "" -"collects/tests/mred/paramz.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/png.rkt" drdr:command-line "" -"collects/tests/mred/random.rkt" drdr:command-line "" -"collects/tests/mred/showkey.rkt" drdr:command-line "" -"collects/tests/mred/sixlib.rkt" drdr:command-line "" +"collects/tests/mred/loadtest.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/mem.rktl" drdr:command-line "" +"collects/tests/mred/paramz.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/png.rktl" drdr:command-line "" +"collects/tests/mred/random.rktl" drdr:command-line "" +"collects/tests/mred/showkey.rktl" 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/testing.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/text-scale.rkt" drdr:command-line "" -"collects/tests/mred/windowing.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/testing.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/text-scale.rktl" drdr:command-line "" +"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-random.rkt" drdr:command-line "" "collects/tests/mred/wxme.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/mysterx" responsible (mflatt) -"collects/tests/mysterx/dhtmltests.rkt" drdr:command-line "" -"collects/tests/mysterx/mystests.rkt" drdr:command-line "" +"collects/tests/mysterx/dhtmltests.rktl" drdr:command-line "" +"collects/tests/mysterx/mystests.rktl" drdr:command-line "" "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/gc/bad-mutators/mut-1.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/r6rs" responsible (mflatt) "collects/tests/racket" responsible (mflatt) -"collects/tests/racket/advanced.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/all.rkt" drdr:command-line "" -"collects/tests/racket/async-channel.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/awk.rkt" drdr:command-line "" -"collects/tests/racket/basic.rkt" drdr:command-line "" -"collects/tests/racket/beg-adv.rkt" drdr:command-line "" -"collects/tests/racket/beg-bega.rkt" drdr:command-line "" -"collects/tests/racket/beg-intm.rkt" drdr:command-line "" -"collects/tests/racket/beg-intml.rkt" drdr:command-line "" -"collects/tests/racket/bega-adv.rkt" drdr:command-line "" -"collects/tests/racket/beginner-abbr.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/beginner.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/advanced.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/all.rktl" drdr:command-line "" +"collects/tests/racket/async-channel.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/awk.rktl" drdr:command-line "" +"collects/tests/racket/basic.rktl" drdr:command-line "" +"collects/tests/racket/beg-adv.rktl" drdr:command-line "" +"collects/tests/racket/beg-bega.rktl" drdr:command-line "" +"collects/tests/racket/beg-intm.rktl" drdr:command-line "" +"collects/tests/racket/beg-intml.rktl" drdr:command-line "" +"collects/tests/racket/bega-adv.rktl" drdr:command-line "" +"collects/tests/racket/beginner-abbr.rktl" 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/conform.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/maze2.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-chicken.rkt" drdr:command-line "" -"collects/tests/racket/benchmarks/common/mk-gambit.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-bigloo.rktl" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-chicken.rktl" 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/nqueens.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/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/scheme2.rkt" drdr:command-line "mzc ~s" "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/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/binc.rkt" drdr:command-line "" -"collects/tests/racket/boundmap-test.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/cache-image-snip-test.rkt" drdr:command-line "mred -f ~s" -"collects/tests/racket/censor.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/chaperone.rkt" drdr:command-line "" -"collects/tests/racket/char-set.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/chez-module.rkt" drdr:command-line "" -"collects/tests/racket/cm.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/cmdline.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/compat.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/compile.rkt" drdr:command-line "" -"collects/tests/racket/contmark.rkt" drdr:command-line "" -"collects/tests/racket/contract-mzlib-test.rkt" drdr:command-line "" +"collects/tests/racket/binc.rktl" drdr:command-line "" +"collects/tests/racket/boundmap-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/cache-image-snip-test.rktl" drdr:command-line "mred -f ~s" +"collects/tests/racket/censor.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/chaperone.rktl" drdr:command-line "" +"collects/tests/racket/char-set.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/chez-module.rktl" drdr:command-line "" +"collects/tests/racket/cm.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/cmdline.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/compat.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/compile.rktl" drdr:command-line "" +"collects/tests/racket/contmark.rktl" 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-test.rkt" responsible (robby) drdr:command-line "" -"collects/tests/racket/control.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/date.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/deep.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/dict.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/embed-in-c.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/embed-me4.rkt" drdr:command-line "" +"collects/tests/racket/contract-test.rktl" responsible (robby) drdr:command-line "" +"collects/tests/racket/control.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/date.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/deep.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/dict.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-in-c.rktl" drdr:command-line "racket -f ~s" +"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-me7.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/racket/embed-me9.rkt" drdr:command-line "" -"collects/tests/racket/embed.rkt" drdr:command-line "" -"collects/tests/racket/etc.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/expand.rkt" drdr:command-line "" -"collects/tests/racket/fact.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/file.rkt" drdr:command-line "" -"collects/tests/racket/filelib.rkt" drdr:command-line "" drdr:timeout 360 -"collects/tests/racket/fixnum.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 -"collects/tests/racket/for.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/foreign-test.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/function.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/head.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/htdp-image.rkt" responsible (robby) drdr:command-line "mred -f ~s" -"collects/tests/racket/htdp-test.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/htdp.rkt" drdr:command-line "" -"collects/tests/racket/id-table-test.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/imap.rkt" drdr:command-line "" -"collects/tests/racket/intermediate-lambda.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/intermediate.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/intm-adv.rkt" drdr:command-line "" -"collects/tests/racket/intm-intml.rkt" drdr:command-line "" -"collects/tests/racket/intmlam-adv.rkt" drdr:command-line "" -"collects/tests/racket/ktest.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/kw.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/list.rkt" drdr:command-line "" -"collects/tests/racket/loadable.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/loadtest.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/logger.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/loop.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ltest.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/macro.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/macrolib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/makeflat.rkt" drdr:command-line "" -"collects/tests/racket/makeflats.rkt" drdr:command-line "" -"collects/tests/racket/math.rkt" drdr:command-line "" -"collects/tests/racket/moddep.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/modprot.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/module-reader.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/module.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/mpair.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/mz-tests.rkt" drdr:command-line "" -"collects/tests/racket/mzlib-tests.rkt" drdr:command-line "" -"collects/tests/racket/mzq.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/name.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/namespac.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/nch.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/net.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/number.rkt" drdr:command-line "" -"collects/tests/racket/numstrs.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/object-old.rkt" drdr:command-line "" -"collects/tests/racket/object.rkt" drdr:command-line "" -"collects/tests/racket/oe.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/openssl.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/optimize.rkt" drdr:command-line "" -"collects/tests/racket/pack.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/package-gen.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/package.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/parallel.rkt" drdr:command-line "" -"collects/tests/racket/param.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/path.rkt" drdr:command-line "" -"collects/tests/racket/pathlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/pconvert.rkt" drdr:command-line "" -"collects/tests/racket/place-channel.rkt" drdr:command-line "" -"collects/tests/racket/port.rkt" drdr:command-line "" -"collects/tests/racket/portlib.rkt" drdr:command-line "" +"collects/tests/racket/embed.rktl" drdr:command-line "" +"collects/tests/racket/etc.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/expand.rktl" drdr:command-line "" +"collects/tests/racket/fact.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/file.rktl" drdr:command-line "" +"collects/tests/racket/filelib.rktl" drdr:command-line "" drdr:timeout 360 +"collects/tests/racket/fixnum.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/for.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/foreign-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/function.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/head.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp-image.rktl" responsible (robby) drdr:command-line "mred -f ~s" +"collects/tests/racket/htdp-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp.rktl" drdr:command-line "" +"collects/tests/racket/id-table-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/imap.rktl" drdr:command-line "" +"collects/tests/racket/intermediate-lambda.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/intermediate.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/intm-adv.rktl" drdr:command-line "" +"collects/tests/racket/intm-intml.rktl" drdr:command-line "" +"collects/tests/racket/intmlam-adv.rktl" drdr:command-line "" +"collects/tests/racket/ktest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/kw.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/list.rktl" drdr:command-line "" +"collects/tests/racket/loadable.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/loadtest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/logger.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/loop.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ltest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/macro.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/macrolib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/makeflat.rktl" drdr:command-line "" +"collects/tests/racket/makeflats.rktl" drdr:command-line "" +"collects/tests/racket/math.rktl" drdr:command-line "" +"collects/tests/racket/moddep.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/modprot.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/module-reader.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/module.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/mpair.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/mz-tests.rktl" drdr:command-line "" +"collects/tests/racket/mzlib-tests.rktl" drdr:command-line "" +"collects/tests/racket/mzq.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/name.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/namespac.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/nch.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/net.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/number.rktl" drdr:command-line "" +"collects/tests/racket/numstrs.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/object-old.rktl" drdr:command-line "" +"collects/tests/racket/object.rktl" drdr:command-line "" +"collects/tests/racket/oe.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/openssl.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/optimize.rktl" drdr:command-line "" +"collects/tests/racket/pack.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/package-gen.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/package.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/parallel.rktl" drdr:command-line "" +"collects/tests/racket/param.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/path.rktl" drdr:command-line "" +"collects/tests/racket/pathlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/pconvert.rktl" drdr:command-line "" +"collects/tests/racket/place-channel.rktl" drdr:command-line "" +"collects/tests/racket/port.rktl" drdr:command-line "" +"collects/tests/racket/portlib.rktl" 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/procs.rkt" drdr:command-line "" -"collects/tests/racket/prompt-tests.rkt" drdr:command-line "" -"collects/tests/racket/prompt.rkt" drdr:command-line "" -"collects/tests/racket/quiet.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 -"collects/tests/racket/read.rkt" drdr:command-line "" -"collects/tests/racket/readtable.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/restart.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/runflats.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/rx.rkt" drdr:command-line "" -"collects/tests/racket/sandbox.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/scheme-tests.rkt" drdr:command-line "" -"collects/tests/racket/serialize.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/set.rkt" drdr:command-line "" -"collects/tests/racket/shared-tests.rkt" drdr:command-line "" -"collects/tests/racket/shared.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/srfi.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/stream.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/string-mzlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/string.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/struct.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/structlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/stx.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/subprocess.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/sync.rkt" drdr:command-line "" -"collects/tests/racket/syntax-tests.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/syntax.rkt" drdr:command-line "" -"collects/tests/racket/tcp.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/testing.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/thread.rkt" drdr:command-line "" -"collects/tests/racket/threadlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/thrport.rkt" drdr:command-line "" -"collects/tests/racket/trace.rkt" drdr:command-line "" -"collects/tests/racket/trait.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/listlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/tic-bang.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/tic-func.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/ttt.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/uinc4.rkt" drdr:command-line "" -"collects/tests/racket/ttt/veclib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/udp.rkt" drdr:command-line "" -"collects/tests/racket/uinc.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/uinc2.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/uinc3.rkt" drdr:command-line "" -"collects/tests/racket/uni-norm.rkt" drdr:command-line "" -"collects/tests/racket/unicode.rkt" drdr:command-line "" -"collects/tests/racket/unit.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/unitsig.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/unsafe.rkt" drdr:command-line "" -"collects/tests/racket/vector.rkt" drdr:command-line "" -"collects/tests/racket/version.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/will.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/zo-marshal.rkt" drdr:command-line "" -"collects/tests/racket/ztest.rkt" drdr:command-line "" +"collects/tests/racket/pretty.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/procs.rktl" drdr:command-line "" +"collects/tests/racket/prompt-tests.rktl" drdr:command-line "" +"collects/tests/racket/prompt.rktl" drdr:command-line "" +"collects/tests/racket/quiet.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/read.rktl" drdr:command-line "" +"collects/tests/racket/readtable.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/restart.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/runflats.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/rx.rktl" drdr:command-line "" +"collects/tests/racket/sandbox.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/scheme-tests.rktl" drdr:command-line "" +"collects/tests/racket/serialize.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/set.rktl" drdr:command-line "" +"collects/tests/racket/shared-tests.rktl" drdr:command-line "" +"collects/tests/racket/shared.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/srfi.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/stream.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/string-mzlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/string.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/struct.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/structlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/stx.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/subprocess.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/sync.rktl" drdr:command-line "" +"collects/tests/racket/syntax-tests.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/syntax.rktl" drdr:command-line "" +"collects/tests/racket/tcp.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/testing.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/thread.rktl" drdr:command-line "" +"collects/tests/racket/threadlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/thrport.rktl" drdr:command-line "" +"collects/tests/racket/trace.rktl" drdr:command-line "" +"collects/tests/racket/trait.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/listlib.rktl" 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.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/ttt.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/uinc4.rktl" drdr:command-line "" +"collects/tests/racket/ttt/veclib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/udp.rktl" drdr:command-line "" +"collects/tests/racket/uinc.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc2.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc3.rktl" drdr:command-line "" +"collects/tests/racket/uni-norm.rktl" drdr:command-line "" +"collects/tests/racket/unicode.rktl" drdr:command-line "" +"collects/tests/racket/unit.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/unitsig.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/unsafe.rktl" drdr:command-line "" +"collects/tests/racket/vector.rktl" drdr:command-line "" +"collects/tests/racket/version.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/will.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/zo-marshal.rktl" drdr:command-line "" +"collects/tests/racket/ztest.rktl" drdr:command-line "" "collects/tests/raclog" responsible (jay) "collects/tests/racunit" responsible (jay noel) "collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600 "collects/tests/scribble" responsible (eli mflatt) "collects/tests/slatex" responsible (jay sstrickl) "collects/tests/srfi" responsible (noel chongkai jay) -"collects/tests/srfi/1/run-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/40/run-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/43/run-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/load-srfis.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.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/43/run-tests.rktl" 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/srptests.rkt" drdr:command-line "" +"collects/tests/srpersist/srptests.rktl" drdr:command-line "" "collects/tests/stepper" responsible (clements) -"collects/tests/stepper/already-defined.rkt" drdr:command-line "" -"collects/tests/stepper/bad-letrec-test.rkt" drdr:command-line "" -"collects/tests/stepper/constructor-redexes.rkt" drdr:command-line "" -"collects/tests/stepper/global-prim-reduction.rkt" drdr:command-line "" -"collects/tests/stepper/image-test.rkt" drdr:command-line "" -"collects/tests/stepper/intermediate-y.rkt" drdr:command-line "" +"collects/tests/stepper/already-defined.rktl" drdr:command-line "" +"collects/tests/stepper/bad-letrec-test.rktl" drdr:command-line "" +"collects/tests/stepper/constructor-redexes.rktl" drdr:command-line "" +"collects/tests/stepper/global-prim-reduction.rktl" drdr:command-line "" +"collects/tests/stepper/image-test.rktl" 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/lambda-test.rkt" drdr:command-line "" -"collects/tests/stepper/let-test.rkt" drdr:command-line "" -"collects/tests/stepper/letrec-test.rkt" drdr:command-line "" -"collects/tests/stepper/local-define-struct.rkt" drdr:command-line "" -"collects/tests/stepper/local-test-2.rkt" drdr:command-line "" -"collects/tests/stepper/local-test.rkt" drdr:command-line "" -"collects/tests/stepper/long-error-message.rkt" drdr:command-line "" -"collects/tests/stepper/multiply-defined.rkt" drdr:command-line "" -"collects/tests/stepper/name-chaining.rkt" drdr:command-line "" -"collects/tests/stepper/no-else-clause.rkt" drdr:command-line "" -"collects/tests/stepper/non-procedure.rkt" drdr:command-line "" -"collects/tests/stepper/print-convert-test.rkt" drdr:command-line "" -"collects/tests/stepper/printing-reducing-test.rkt" drdr:command-line "" -"collects/tests/stepper/procedure-display.rkt" drdr:command-line "" -"collects/tests/stepper/right-redex.rkt" drdr:command-line "" -"collects/tests/stepper/structures.rkt" drdr:command-line "" -"collects/tests/stepper/symbol-identifier.rkt" drdr:command-line "" -"collects/tests/stepper/symbols.rkt" drdr:command-line "" -"collects/tests/stepper/syntax-error-ordering.rkt" drdr:command-line "" -"collects/tests/stepper/test-or.rkt" drdr:command-line "" -"collects/tests/stepper/two-tests.rkt" drdr:command-line "" -"collects/tests/stepper/unannotated.rkt" drdr:command-line "" -"collects/tests/stepper/undefined.rkt" drdr:command-line "" -"collects/tests/stepper/world-test.rkt" drdr:command-line "" -"collects/tests/stepper/write-display.rkt" drdr:command-line "" +"collects/tests/stepper/lambda-test.rktl" drdr:command-line "" +"collects/tests/stepper/let-test.rktl" drdr:command-line "" +"collects/tests/stepper/letrec-test.rktl" drdr:command-line "" +"collects/tests/stepper/local-define-struct.rktl" drdr:command-line "" +"collects/tests/stepper/local-test-2.rktl" drdr:command-line "" +"collects/tests/stepper/local-test.rktl" drdr:command-line "" +"collects/tests/stepper/long-error-message.rktl" drdr:command-line "" +"collects/tests/stepper/multiply-defined.rktl" drdr:command-line "" +"collects/tests/stepper/name-chaining.rktl" drdr:command-line "" +"collects/tests/stepper/no-else-clause.rktl" drdr:command-line "" +"collects/tests/stepper/non-procedure.rktl" drdr:command-line "" +"collects/tests/stepper/print-convert-test.rktl" drdr:command-line "" +"collects/tests/stepper/printing-reducing-test.rktl" drdr:command-line "" +"collects/tests/stepper/procedure-display.rktl" drdr:command-line "" +"collects/tests/stepper/right-redex.rktl" drdr:command-line "" +"collects/tests/stepper/structures.rktl" drdr:command-line "" +"collects/tests/stepper/symbol-identifier.rktl" drdr:command-line "" +"collects/tests/stepper/symbols.rktl" drdr:command-line "" +"collects/tests/stepper/syntax-error-ordering.rktl" drdr:command-line "" +"collects/tests/stepper/test-or.rktl" drdr:command-line "" +"collects/tests/stepper/two-tests.rktl" drdr:command-line "" +"collects/tests/stepper/unannotated.rktl" drdr:command-line "" +"collects/tests/stepper/undefined.rktl" drdr:command-line "" +"collects/tests/stepper/world-test.rktl" drdr:command-line "" +"collects/tests/stepper/write-display.rktl" drdr:command-line "" "collects/tests/stxparse" responsible (ryanc) "collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/syntax-color" responsible (sowens mflatt) -"collects/tests/syntax-color/paren-tree.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/syntax-color/token-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.rktl" drdr:command-line "mzscheme -f ~s" "collects/tests/test-engine" responsible (kathyg) "collects/tests/typed-scheme" responsible (samth) "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/xfail" drdr:command-line "" "collects/tests/units" responsible (sstrickl) -"collects/tests/units/multi-mod-sigs.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-cert.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-exptime.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.rktl" 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-runtime.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit-contracts.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit.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.rktl" 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/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/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/web-server" responsible (jay) diff --git a/collects/scribblings/guide/welcome.scrbl b/collects/scribblings/guide/welcome.scrbl index f6321872cc..0e63dd81cd 100644 --- a/collects/scribblings/guide/welcome.scrbl +++ b/collects/scribblings/guide/welcome.scrbl @@ -206,16 +206,16 @@ tempted to put just (substring str 4 7)) ] -into @filepath{extract.scm} and run @exec{racket} with +into @filepath{extract.rktl} and run @exec{racket} with @interaction[ #:eval piece-eval -(eval:alts (load "extract.scm") (void)) +(eval:alts (load "extract.rktl") (void)) (extract "the dog out") ] 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. Writing definitions outside of a module leads to bad error messages, diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index 99ebff5760..7d3de0c066 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -76,7 +76,7 @@ by @racket[kind], which must be one of the following: @item{@|AllUnix|: @indexed-file{.racketrc}} - @item{Windows: @indexed-file{racketrc.rkts}} + @item{Windows: @indexed-file{racketrc.rktl}} ]} diff --git a/collects/tests/aligned-pasteboard/example.rkt b/collects/tests/aligned-pasteboard/example.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/example.rkt rename to collects/tests/aligned-pasteboard/example.rktl diff --git a/collects/tests/aligned-pasteboard/old-bugs/big-min.rkt b/collects/tests/aligned-pasteboard/old-bugs/big-min.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/old-bugs/big-min.rkt rename to collects/tests/aligned-pasteboard/old-bugs/big-min.rktl diff --git a/collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt b/collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt rename to collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl diff --git a/collects/tests/aligned-pasteboard/test-alignment.rkt b/collects/tests/aligned-pasteboard/test-alignment.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test-alignment.rkt rename to collects/tests/aligned-pasteboard/test-alignment.rktl diff --git a/collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt b/collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt rename to collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl diff --git a/collects/tests/aligned-pasteboard/test-snip-lib.rkt b/collects/tests/aligned-pasteboard/test-snip-lib.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test-snip-lib.rkt rename to collects/tests/aligned-pasteboard/test-snip-lib.rktl diff --git a/collects/tests/aligned-pasteboard/test.rkt b/collects/tests/aligned-pasteboard/test.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test.rkt rename to collects/tests/aligned-pasteboard/test.rktl diff --git a/collects/tests/aligned-pasteboard/test2.rkt b/collects/tests/aligned-pasteboard/test2.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test2.rkt rename to collects/tests/aligned-pasteboard/test2.rktl diff --git a/collects/tests/framework/utils.rkt b/collects/tests/framework/utils.rktl similarity index 100% rename from collects/tests/framework/utils.rkt rename to collects/tests/framework/utils.rktl diff --git a/collects/tests/mred/auto.rkt b/collects/tests/mred/auto.rkt deleted file mode 100644 index 8f37aef12c..0000000000 --- a/collects/tests/mred/auto.rkt +++ /dev/null @@ -1,5 +0,0 @@ - -(load-relative "editor.rkt") -(load-relative "paramz.rkt") -(load-relative "dc.rkt") -(load-relative "windowing.rkt") diff --git a/collects/tests/mred/auto.rktl b/collects/tests/mred/auto.rktl new file mode 100644 index 0000000000..947989f728 --- /dev/null +++ b/collects/tests/mred/auto.rktl @@ -0,0 +1,5 @@ + +(load-relative "editor.rktl") +(load-relative "paramz.rktl") +(load-relative "dc.rktl") +(load-relative "windowing.rktl") diff --git a/collects/tests/mred/dc.rkt b/collects/tests/mred/dc.rktl similarity index 99% rename from collects/tests/mred/dc.rkt rename to collects/tests/mred/dc.rktl index 064603f23e..2ce39dbeaa 100644 --- a/collects/tests/mred/dc.rkt +++ b/collects/tests/mred/dc.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; DC Tests ;; diff --git a/collects/tests/mred/editor.rkt b/collects/tests/mred/editor.rktl similarity index 99% rename from collects/tests/mred/editor.rkt rename to collects/tests/mred/editor.rktl index e9219151c0..7c498d209d 100644 --- a/collects/tests/mred/editor.rkt +++ b/collects/tests/mred/editor.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Editor Tests ;; diff --git a/collects/tests/mred/gui-main.rkt b/collects/tests/mred/gui-main.rktl similarity index 100% rename from collects/tests/mred/gui-main.rkt rename to collects/tests/mred/gui-main.rktl diff --git a/collects/tests/mred/gui.rkt b/collects/tests/mred/gui.rktl similarity index 62% rename from collects/tests/mred/gui.rkt rename to collects/tests/mred/gui.rktl index 1cc35d6ee7..d4a8d9ed09 100644 --- a/collects/tests/mred/gui.rkt +++ b/collects/tests/mred/gui.rktl @@ -1,4 +1,4 @@ -(let ([f (load-relative "gui-main.rkt")]) +(let ([f (load-relative "gui-main.rktl")]) (thread (lambda () (f "New" "Save" mred:console-frame%)))) diff --git a/collects/tests/mred/loadtest.rkt b/collects/tests/mred/loadtest.rktl similarity index 75% rename from collects/tests/mred/loadtest.rkt rename to collects/tests/mred/loadtest.rktl index 117c1de3ae..698e61e065 100644 --- a/collects/tests/mred/loadtest.rkt +++ b/collects/tests/mred/loadtest.rktl @@ -2,4 +2,4 @@ (unless (with-handlers ([exn:fail? (lambda (x) #f)]) (namespace-variable-binding 'SECTION) #t) - (load-relative "testing.rkt")) + (load-relative "testing.rktl")) diff --git a/collects/tests/mred/mem.rkt b/collects/tests/mred/mem.rktl similarity index 100% rename from collects/tests/mred/mem.rkt rename to collects/tests/mred/mem.rktl diff --git a/collects/tests/mred/paramz.rkt b/collects/tests/mred/paramz.rktl similarity index 98% rename from collects/tests/mred/paramz.rkt rename to collects/tests/mred/paramz.rktl index e78265adf4..02f362f384 100644 --- a/collects/tests/mred/paramz.rkt +++ b/collects/tests/mred/paramz.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Yield Tests ;; diff --git a/collects/tests/mred/png.rkt b/collects/tests/mred/png.rktl similarity index 100% rename from collects/tests/mred/png.rkt rename to collects/tests/mred/png.rktl diff --git a/collects/tests/mred/random.rkt b/collects/tests/mred/random.rktl similarity index 100% rename from collects/tests/mred/random.rkt rename to collects/tests/mred/random.rktl diff --git a/collects/tests/mred/showkey.rkt b/collects/tests/mred/showkey.rktl similarity index 100% rename from collects/tests/mred/showkey.rkt rename to collects/tests/mred/showkey.rktl diff --git a/collects/tests/mred/sixlib.rkt b/collects/tests/mred/sixlib.rktl similarity index 100% rename from collects/tests/mred/sixlib.rkt rename to collects/tests/mred/sixlib.rktl diff --git a/collects/tests/mred/testing.rkt b/collects/tests/mred/testing.rktl similarity index 100% rename from collects/tests/mred/testing.rkt rename to collects/tests/mred/testing.rktl diff --git a/collects/tests/mred/text-scale.rkt b/collects/tests/mred/text-scale.rktl similarity index 100% rename from collects/tests/mred/text-scale.rkt rename to collects/tests/mred/text-scale.rktl diff --git a/collects/tests/mred/windowing.rkt b/collects/tests/mred/windowing.rktl similarity index 99% rename from collects/tests/mred/windowing.rkt rename to collects/tests/mred/windowing.rktl index 6bda22354c..7ba3760112 100644 --- a/collects/tests/mred/windowing.rkt +++ b/collects/tests/mred/windowing.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (define shorter? #t) diff --git a/collects/tests/mysterx/dhtmltests.rkt b/collects/tests/mysterx/dhtmltests.rktl similarity index 100% rename from collects/tests/mysterx/dhtmltests.rkt rename to collects/tests/mysterx/dhtmltests.rktl diff --git a/collects/tests/mysterx/mystests.rkt b/collects/tests/mysterx/mystests.rktl similarity index 100% rename from collects/tests/mysterx/mystests.rkt rename to collects/tests/mysterx/mystests.rktl diff --git a/collects/tests/mzcom/test.rkt b/collects/tests/mzcom/test.rktl similarity index 100% rename from collects/tests/mzcom/test.rkt rename to collects/tests/mzcom/test.rktl diff --git a/collects/tests/racket/advanced.rkt b/collects/tests/racket/advanced.rktl similarity index 97% rename from collects/tests/racket/advanced.rkt rename to collects/tests/racket/advanced.rktl index c2db397f69..f8fb57155e 100644 --- a/collects/tests/racket/advanced.rkt +++ b/collects/tests/racket/advanced.rktl @@ -2,7 +2,7 @@ ;; Basic checks for the advanced language. See also ;; beginner.ss -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -22,13 +22,13 @@ docs)) (define current-htdp-lang 'lang/htdp-advanced) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-advanced.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "bega-adv.rkt") -(load-relative "intm-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "bega-adv.rktl") +(load-relative "intm-adv.rktl") (define (f6 a) (a)) (test (void) f6 void) @@ -190,7 +190,7 @@ (htdp-test 13 'loop (recur f ([f 13]) 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? (shared ([x (cons 10 x)]) x) (shared ([x (cons 10 x)]) x))) diff --git a/collects/tests/racket/all.rkt b/collects/tests/racket/all.rkt deleted file mode 100644 index 10f8b0c607..0000000000 --- a/collects/tests/racket/all.rkt +++ /dev/null @@ -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") diff --git a/collects/tests/racket/all.rktl b/collects/tests/racket/all.rktl new file mode 100644 index 0000000000..f006abd912 --- /dev/null +++ b/collects/tests/racket/all.rktl @@ -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") diff --git a/collects/tests/racket/async-channel.rkt b/collects/tests/racket/async-channel.rktl similarity index 98% rename from collects/tests/racket/async-channel.rkt rename to collects/tests/racket/async-channel.rktl index 98bda5747b..2bbbbedf92 100644 --- a/collects/tests/racket/async-channel.rkt +++ b/collects/tests/racket/async-channel.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/async-channel) diff --git a/collects/tests/racket/awk.rkt b/collects/tests/racket/awk.rktl similarity index 96% rename from collects/tests/racket/awk.rkt rename to collects/tests/racket/awk.rktl index ecbbf6b3e4..73d00c8873 100644 --- a/collects/tests/racket/awk.rkt +++ b/collects/tests/racket/awk.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'awk) diff --git a/collects/tests/racket/basic.rkt b/collects/tests/racket/basic.rktl similarity index 99% rename from collects/tests/racket/basic.rkt rename to collects/tests/racket/basic.rktl index 79abf4cb5f..cc9fbc3a18 100644 --- a/collects/tests/racket/basic.rkt +++ b/collects/tests/racket/basic.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'basic) diff --git a/collects/tests/racket/beg-adv.rkt b/collects/tests/racket/beg-adv.rktl similarity index 100% rename from collects/tests/racket/beg-adv.rkt rename to collects/tests/racket/beg-adv.rktl diff --git a/collects/tests/racket/beg-bega.rkt b/collects/tests/racket/beg-bega.rktl similarity index 100% rename from collects/tests/racket/beg-bega.rkt rename to collects/tests/racket/beg-bega.rktl diff --git a/collects/tests/racket/beg-intm.rkt b/collects/tests/racket/beg-intm.rktl similarity index 100% rename from collects/tests/racket/beg-intm.rkt rename to collects/tests/racket/beg-intm.rktl diff --git a/collects/tests/racket/beg-intml.rkt b/collects/tests/racket/beg-intml.rktl similarity index 100% rename from collects/tests/racket/beg-intml.rkt rename to collects/tests/racket/beg-intml.rktl diff --git a/collects/tests/racket/bega-adv.rkt b/collects/tests/racket/bega-adv.rktl similarity index 100% rename from collects/tests/racket/bega-adv.rkt rename to collects/tests/racket/bega-adv.rktl diff --git a/collects/tests/racket/beginner-abbr.rkt b/collects/tests/racket/beginner-abbr.rktl similarity index 75% rename from collects/tests/racket/beginner-abbr.rkt rename to collects/tests/racket/beginner-abbr.rktl index 5088f74a78..5734eda027 100644 --- a/collects/tests/racket/beginner-abbr.rkt +++ b/collects/tests/racket/beginner-abbr.rktl @@ -10,7 +10,7 @@ ;; Don't try to run other tests from the test suite after loading this ;; one into a particular namespace. -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -20,14 +20,14 @@ exn:fail:contract?)) (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")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "beg-intm.rkt") -(load-relative "beg-bega.rkt") -(load-relative "bega-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "beg-intm.rktl") +(load-relative "beg-bega.rktl") +(load-relative "bega-adv.rktl") (report-errs) diff --git a/collects/tests/racket/beginner.rkt b/collects/tests/racket/beginner.rktl similarity index 94% rename from collects/tests/racket/beginner.rkt rename to collects/tests/racket/beginner.rktl index e0869696d3..3596800eff 100644 --- a/collects/tests/racket/beginner.rkt +++ b/collects/tests/racket/beginner.rktl @@ -49,7 +49,7 @@ ;; removes the last added expressions ;; -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Check that expansion doesn't introduce non-equal ids that ;; claim to be "original" at the same place @@ -82,14 +82,14 @@ (require (only-in mzscheme exn:fail? exn:fail:contract?)) (define current-htdp-lang 'lang/htdp-beginner) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-beginner.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "beg-intm.rkt") -(load-relative "beg-bega.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "beg-intm.rktl") +(load-relative "beg-bega.rktl") (htdp-syntax-test #'quote) (htdp-syntax-test #''1) diff --git a/collects/tests/racket/benchmarks/common/README.txt b/collects/tests/racket/benchmarks/common/README.txt index a1b4bc7719..f8782da7de 100644 --- a/collects/tests/racket/benchmarks/common/README.txt +++ b/collects/tests/racket/benchmarks/common/README.txt @@ -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. To build .sch directly with Gambit, Bigloo, or Chicken: - racket -qr mk-gambit.rkt ; gsi -:m10000 .o1 - racket -qr mk-bigloo.rkt ; - racket -qr mk-chicken.rkt ; + racket -f mk-gambit.rktl ; gsi -:m10000 .o1 + racket -f mk-bigloo.rktl ; + racket -f mk-chicken.rktl ; Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark, but the "auto.rkt" script will do that for you. diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt index 160259b01b..ef3cc92274 100755 --- a/collects/tests/racket/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -59,7 +59,7 @@ exec racket -qu "$0" ${1+"$@"} (with-output-to-file (format "~a.scm" bm) #:exists 'replace (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: (parameterize ([current-namespace (make-base-empty-namespace)]) (namespace-require 'r5rs) @@ -399,21 +399,21 @@ exec racket -qu "$0" ${1+"$@"} mutable-pair-progs)) (make-impl 'chicken void - (run-mk "mk-chicken.rkt") + (run-mk "mk-chicken.rktl") run-exe extract-chicken-times clean-up-bin '(scheme2 takr2)) (make-impl 'bigloo void - (run-mk "mk-bigloo.rkt") + (run-mk "mk-bigloo.rktl") run-exe extract-bigloo-times clean-up-bin '(cpstack takr2)) (make-impl 'gambit void - (run-mk "mk-gambit.rkt") + (run-mk "mk-gambit.rktl") run-gambit-exe extract-gambit-times clean-up-o1 diff --git a/collects/tests/racket/benchmarks/common/mk-bigloo.rkt b/collects/tests/racket/benchmarks/common/mk-bigloo.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/mk-bigloo.rkt rename to collects/tests/racket/benchmarks/common/mk-bigloo.rktl diff --git a/collects/tests/racket/benchmarks/common/mk-chicken.rkt b/collects/tests/racket/benchmarks/common/mk-chicken.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/mk-chicken.rkt rename to collects/tests/racket/benchmarks/common/mk-chicken.rktl diff --git a/collects/tests/racket/benchmarks/common/mk-gambit.rkt b/collects/tests/racket/benchmarks/common/mk-gambit.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/mk-gambit.rkt rename to collects/tests/racket/benchmarks/common/mk-gambit.rktl diff --git a/collects/tests/racket/benchmarks/common/r5rs-wrap.rkt b/collects/tests/racket/benchmarks/common/r5rs-wrap.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/r5rs-wrap.rkt rename to collects/tests/racket/benchmarks/common/r5rs-wrap.rktl diff --git a/collects/tests/racket/binc.rkt b/collects/tests/racket/binc.rktl similarity index 100% rename from collects/tests/racket/binc.rkt rename to collects/tests/racket/binc.rktl diff --git a/collects/tests/racket/boundmap-test.rkt b/collects/tests/racket/boundmap-test.rktl similarity index 99% rename from collects/tests/racket/boundmap-test.rkt rename to collects/tests/racket/boundmap-test.rktl index b10346dfd7..2ef792c012 100644 --- a/collects/tests/racket/boundmap-test.rkt +++ b/collects/tests/racket/boundmap-test.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require syntax/boundmap) diff --git a/collects/tests/racket/cache-image-snip-test.rkt b/collects/tests/racket/cache-image-snip-test.rktl similarity index 99% rename from collects/tests/racket/cache-image-snip-test.rkt rename to collects/tests/racket/cache-image-snip-test.rktl index 4dbc72776e..0bfa98b6e4 100644 --- a/collects/tests/racket/cache-image-snip-test.rkt +++ b/collects/tests/racket/cache-image-snip-test.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mrlib/cache-image-snip mzlib/unit) diff --git a/collects/tests/racket/censor.rkt b/collects/tests/racket/censor.rktl similarity index 100% rename from collects/tests/racket/censor.rkt rename to collects/tests/racket/censor.rktl diff --git a/collects/tests/racket/chaperone.rkt b/collects/tests/racket/chaperone.rktl similarity index 99% rename from collects/tests/racket/chaperone.rkt rename to collects/tests/racket/chaperone.rktl index 0c7004b5d0..3face65c7d 100644 --- a/collects/tests/racket/chaperone.rkt +++ b/collects/tests/racket/chaperone.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'chaperones) ;; ---------------------------------------- diff --git a/collects/tests/racket/char-set.rkt b/collects/tests/racket/char-set.rktl similarity index 99% rename from collects/tests/racket/char-set.rkt rename to collects/tests/racket/char-set.rktl index 7f2a62f395..9cb119e050 100644 --- a/collects/tests/racket/char-set.rkt +++ b/collects/tests/racket/char-set.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'char-set/srfi-14) diff --git a/collects/tests/racket/chez-module.rkt b/collects/tests/racket/chez-module.rktl similarity index 100% rename from collects/tests/racket/chez-module.rkt rename to collects/tests/racket/chez-module.rktl diff --git a/collects/tests/racket/cm.rkt b/collects/tests/racket/cm.rktl similarity index 99% rename from collects/tests/racket/cm.rkt rename to collects/tests/racket/cm.rktl index b3f810bc20..f6c00cee8e 100644 --- a/collects/tests/racket/cm.rkt +++ b/collects/tests/racket/cm.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'cm) diff --git a/collects/tests/racket/cmdline.rkt b/collects/tests/racket/cmdline.rktl similarity index 99% rename from collects/tests/racket/cmdline.rkt rename to collects/tests/racket/cmdline.rktl index 40ce7cc5d4..4be0d33084 100644 --- a/collects/tests/racket/cmdline.rkt +++ b/collects/tests/racket/cmdline.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'command-line) diff --git a/collects/tests/racket/compat.rkt b/collects/tests/racket/compat.rktl similarity index 94% rename from collects/tests/racket/compat.rkt rename to collects/tests/racket/compat.rktl index b83e7ad31c..5e25b8334f 100644 --- a/collects/tests/racket/compat.rkt +++ b/collects/tests/racket/compat.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'compat) diff --git a/collects/tests/racket/compile.rkt b/collects/tests/racket/compile.rktl similarity index 99% rename from collects/tests/racket/compile.rkt rename to collects/tests/racket/compile.rktl index 1bdae04083..4c7e05c750 100644 --- a/collects/tests/racket/compile.rkt +++ b/collects/tests/racket/compile.rktl @@ -2,7 +2,7 @@ ; Tests compilation and writing/reading compiled code ; by setting the eval handler and running all tests -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (namespace-variable-value 'compile-load diff --git a/collects/tests/racket/contmark.rkt b/collects/tests/racket/contmark.rktl similarity index 99% rename from collects/tests/racket/contmark.rkt rename to collects/tests/racket/contmark.rktl index cad2e6831e..9ac86b327f 100644 --- a/collects/tests/racket/contmark.rkt +++ b/collects/tests/racket/contmark.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'continuation-marks) diff --git a/collects/tests/racket/contract-mzlib-test.rkt b/collects/tests/racket/contract-mzlib-test.rktl similarity index 99% rename from collects/tests/racket/contract-mzlib-test.rkt rename to collects/tests/racket/contract-mzlib-test.rktl index a748a6e5cd..9789df32a1 100644 --- a/collects/tests/racket/contract-mzlib-test.rkt +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -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 of the contract library does not change over time. |# -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'mzlib/contract) (parameterize ([error-print-width 200]) diff --git a/collects/tests/racket/contract-test.rkt b/collects/tests/racket/contract-test.rktl similarity index 99% rename from collects/tests/racket/contract-test.rkt rename to collects/tests/racket/contract-test.rktl index c80799ae28..4a10e315e3 100644 --- a/collects/tests/racket/contract-test.rkt +++ b/collects/tests/racket/contract-test.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'contract) (parameterize ([error-print-width 200]) diff --git a/collects/tests/racket/control.rkt b/collects/tests/racket/control.rktl similarity index 99% rename from collects/tests/racket/control.rkt rename to collects/tests/racket/control.rktl index c02e87453d..b955b7e49f 100644 --- a/collects/tests/racket/control.rkt +++ b/collects/tests/racket/control.rktl @@ -4,7 +4,7 @@ ;; aka. -F- through +F+ ;; $Id: delim-control-n.scm 815 2005-09-05 23:02:12Z oleg $ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'control) diff --git a/collects/tests/racket/date.rkt b/collects/tests/racket/date.rktl similarity index 97% rename from collects/tests/racket/date.rkt rename to collects/tests/racket/date.rktl index 65ee2b0642..2e24303fa0 100644 --- a/collects/tests/racket/date.rkt +++ b/collects/tests/racket/date.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'date) diff --git a/collects/tests/racket/deep.rkt b/collects/tests/racket/deep.rktl similarity index 99% rename from collects/tests/racket/deep.rkt rename to collects/tests/racket/deep.rktl index 9c12b89da7..7b9b12644f 100644 --- a/collects/tests/racket/deep.rkt +++ b/collects/tests/racket/deep.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'deep) diff --git a/collects/tests/racket/dict.rkt b/collects/tests/racket/dict.rktl similarity index 99% rename from collects/tests/racket/dict.rkt rename to collects/tests/racket/dict.rktl index 1afaebbce5..5fb3787514 100644 --- a/collects/tests/racket/dict.rkt +++ b/collects/tests/racket/dict.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'dict) diff --git a/collects/tests/racket/embed-in-c.rkt b/collects/tests/racket/embed-in-c.rktl similarity index 98% rename from collects/tests/racket/embed-in-c.rkt rename to collects/tests/racket/embed-in-c.rktl index bb11600367..1341f2f0f7 100644 --- a/collects/tests/racket/embed-in-c.rkt +++ b/collects/tests/racket/embed-in-c.rktl @@ -2,7 +2,7 @@ ;; Almost works for Mac OS X. ;; Assumes 3m. -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'embed-in-c) diff --git a/collects/tests/racket/embed-me4.rkt b/collects/tests/racket/embed-me4.rktl similarity index 100% rename from collects/tests/racket/embed-me4.rkt rename to collects/tests/racket/embed-me4.rktl diff --git a/collects/tests/racket/embed.rkt b/collects/tests/racket/embed.rktl similarity index 99% rename from collects/tests/racket/embed.rkt rename to collects/tests/racket/embed.rktl index 9b835a68d7..06fd331cb4 100644 --- a/collects/tests/racket/embed.rkt +++ b/collects/tests/racket/embed.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'embed) diff --git a/collects/tests/racket/etc.rkt b/collects/tests/racket/etc.rktl similarity index 97% rename from collects/tests/racket/etc.rkt rename to collects/tests/racket/etc.rktl index 129200204c..4b462e947b 100644 --- a/collects/tests/racket/etc.rkt +++ b/collects/tests/racket/etc.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'etc) diff --git a/collects/tests/racket/expand.rkt b/collects/tests/racket/expand.rktl similarity index 99% rename from collects/tests/racket/expand.rkt rename to collects/tests/racket/expand.rktl index e32e0ea9c7..903542ad5e 100644 --- a/collects/tests/racket/expand.rkt +++ b/collects/tests/racket/expand.rktl @@ -1,7 +1,7 @@ (require syntax/toplevel) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; test that expansion preserves source location information ;; for fully expanded terms diff --git a/collects/tests/racket/fact.rkt b/collects/tests/racket/fact.rktl similarity index 100% rename from collects/tests/racket/fact.rkt rename to collects/tests/racket/fact.rktl diff --git a/collects/tests/racket/file.rkt b/collects/tests/racket/file.rktl similarity index 98% rename from collects/tests/racket/file.rkt rename to collects/tests/racket/file.rktl index ee507340fe..5c4d840c70 100644 --- a/collects/tests/racket/file.rkt +++ b/collects/tests/racket/file.rktl @@ -1,9 +1,9 @@ (require mzlib/os) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (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 output-port? (current-output-port)) @@ -11,14 +11,14 @@ (test (void) current-input-port (current-input-port)) (test (void) current-output-port (current-output-port)) (test (void) current-error-port (current-error-port)) -(test #t call-with-input-file testing.rkt input-port?) -(define this-file (open-input-file testing.rkt)) +(test #t call-with-input-file testing.rktl input-port?) +(define this-file (open-input-file testing.rktl)) (test #t 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) (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) (arity-test input-port? 1 1) (arity-test output-port? 1 1) @@ -1144,7 +1144,7 @@ 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 ; be printed to a terminal directly because it can contain contain @@ -1243,7 +1243,7 @@ (cust-test (lambda () (open-input-file (build-path (current-load-relative-directory) - "file.rkt"))))) + "file.rktl"))))) ;; Too time-consuming, does bad things to the network: '(let* ( [l (tcp-listen 0)] @@ -1315,7 +1315,7 @@ ;; UDP (unless (eq? 'macos (system-type)) - (load-relative "udp.rkt")) + (load-relative "udp.rktl")) (when (eq? 'macos (system-type)) (err/rt-test (udp-open-socket) exn:misc:unsupported?) @@ -1324,7 +1324,7 @@ (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-bound? 5)) (err/rt-test (udp-connected? 5)) diff --git a/collects/tests/racket/filelib.rkt b/collects/tests/racket/filelib.rktl similarity index 91% rename from collects/tests/racket/filelib.rkt rename to collects/tests/racket/filelib.rktl index 512a0f2efc..42cfa13006 100644 --- a/collects/tests/racket/filelib.rkt +++ b/collects/tests/racket/filelib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'filelib) @@ -60,12 +60,12 @@ (let ([rel (find-files values)] [abs (find-files values (current-directory))]) (test #t = (length rel) (sub1 (length abs))) - (test #f member "filelib.rkt" abs) - (test #f null? (member "filelib.rkt" rel)) - (test #f null? (member (build-path (current-directory) "filelib.rkt") abs)) + (test #f member "filelib.rktl" abs) + (test #f null? (member "filelib.rktl" rel)) + (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 (build-path (current-directory) "filelib.rkt")) + (test (list (string->path "filelib.rktl")) find-files (lambda (f) (regexp-match "^filelib[.]rkt$" (path->string f)))) + (test (list (build-path (current-directory) "filelib.rktl")) find-files (lambda (f) (regexp-match "filelib[.]rkt$" (path->string f))) (current-directory)) @@ -81,7 +81,7 @@ (test #t equal? (sort rel) (sort rel2)) (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") (test (+ 2 (length rel2)) diff --git a/collects/tests/racket/fixnum.rkt b/collects/tests/racket/fixnum.rktl similarity index 99% rename from collects/tests/racket/fixnum.rkt rename to collects/tests/racket/fixnum.rktl index 3ae1cb2b91..d2fd999ecf 100644 --- a/collects/tests/racket/fixnum.rkt +++ b/collects/tests/racket/fixnum.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'fixnum) (require scheme/fixnum scheme/unsafe/ops diff --git a/collects/tests/racket/for.rkt b/collects/tests/racket/for.rktl similarity index 99% rename from collects/tests/racket/for.rkt rename to collects/tests/racket/for.rktl index f54275a7db..2be4f39133 100644 --- a/collects/tests/racket/for.rkt +++ b/collects/tests/racket/for.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'for) diff --git a/collects/tests/racket/foreign-test.rkt b/collects/tests/racket/foreign-test.rktl similarity index 99% rename from collects/tests/racket/foreign-test.rkt rename to collects/tests/racket/foreign-test.rktl index ffbfaf11e5..fe1405af3a 100644 --- a/collects/tests/racket/foreign-test.rkt +++ b/collects/tests/racket/foreign-test.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'foreign) diff --git a/collects/tests/racket/function.rkt b/collects/tests/racket/function.rktl similarity index 99% rename from collects/tests/racket/function.rkt rename to collects/tests/racket/function.rktl index 0cd44e71af..7b065b4dc1 100644 --- a/collects/tests/racket/function.rkt +++ b/collects/tests/racket/function.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'function) diff --git a/collects/tests/racket/head.rkt b/collects/tests/racket/head.rktl similarity index 98% rename from collects/tests/racket/head.rkt rename to collects/tests/racket/head.rktl index a5cbf5bcab..f02736867c 100644 --- a/collects/tests/racket/head.rkt +++ b/collects/tests/racket/head.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; diff --git a/collects/tests/racket/htdp-image.rkt b/collects/tests/racket/htdp-image.rktl similarity index 99% rename from collects/tests/racket/htdp-image.rkt rename to collects/tests/racket/htdp-image.rktl index a09f865dee..e40993e88a 100644 --- a/collects/tests/racket/htdp-image.rkt +++ b/collects/tests/racket/htdp-image.rktl @@ -1,6 +1,6 @@ ;; Load this one with MrEd -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require teachpack/htdp/image htdp/error lang/posn diff --git a/collects/tests/racket/htdp-test.rkt b/collects/tests/racket/htdp-test.rktl similarity index 100% rename from collects/tests/racket/htdp-test.rkt rename to collects/tests/racket/htdp-test.rktl diff --git a/collects/tests/racket/htdp.rkt b/collects/tests/racket/htdp.rktl similarity index 86% rename from collects/tests/racket/htdp.rkt rename to collects/tests/racket/htdp.rktl index be6781d3b6..b7da6b8202 100644 --- a/collects/tests/racket/htdp.rkt +++ b/collects/tests/racket/htdp.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (load-in-sandbox "beginner.ss") (load-in-sandbox "beginner-abbr.ss") diff --git a/collects/tests/racket/id-table-test.rkt b/collects/tests/racket/id-table-test.rktl similarity index 99% rename from collects/tests/racket/id-table-test.rkt rename to collects/tests/racket/id-table-test.rktl index 6c9a2be4ea..edac708d0b 100644 --- a/collects/tests/racket/id-table-test.rkt +++ b/collects/tests/racket/id-table-test.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require syntax/id-table scheme/dict) diff --git a/collects/tests/racket/imap.rkt b/collects/tests/racket/imap.rktl similarity index 99% rename from collects/tests/racket/imap.rkt rename to collects/tests/racket/imap.rktl index d03e2bd232..1aae0cb6e3 100644 --- a/collects/tests/racket/imap.rkt +++ b/collects/tests/racket/imap.rktl @@ -6,7 +6,7 @@ read)) (define mailbox-name "INBOX.tmp") ;; !!! ALL CONTENT WILL BE DELETED !!! -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'imap) diff --git a/collects/tests/racket/intermediate-lambda.rkt b/collects/tests/racket/intermediate-lambda.rktl similarity index 71% rename from collects/tests/racket/intermediate-lambda.rkt rename to collects/tests/racket/intermediate-lambda.rktl index 7cddebc5c6..3f7b2eca75 100644 --- a/collects/tests/racket/intermediate-lambda.rkt +++ b/collects/tests/racket/intermediate-lambda.rktl @@ -1,8 +1,8 @@ ;; Basic checks for the intermediate language. See also -;; beginner.rkt +;; beginner.rktl -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -21,14 +21,14 @@ docs)) (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")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "bega-adv.rkt") -(load-relative "intm-intml.rkt") -(load-relative "intm-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "bega-adv.rktl") +(load-relative "intm-intml.rktl") +(load-relative "intm-adv.rktl") (report-errs) diff --git a/collects/tests/racket/intermediate.rkt b/collects/tests/racket/intermediate.rktl similarity index 68% rename from collects/tests/racket/intermediate.rkt rename to collects/tests/racket/intermediate.rktl index e6741b9475..2637008077 100644 --- a/collects/tests/racket/intermediate.rkt +++ b/collects/tests/racket/intermediate.rktl @@ -1,8 +1,8 @@ ;; Basic checks for the intermediate language. See also -;; beginner.rkt +;; beginner.rktl -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -21,15 +21,15 @@ docs)) (define current-htdp-lang 'lang/htdp-intermediate) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-intermediate.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "beg-intm.rkt") -(load-relative "bega-adv.rkt") -(load-relative "intm-intml.rkt") -(load-relative "intm-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "beg-intm.rktl") +(load-relative "bega-adv.rktl") +(load-relative "intm-intml.rktl") +(load-relative "intm-adv.rktl") (report-errs) diff --git a/collects/tests/racket/intm-adv.rkt b/collects/tests/racket/intm-adv.rktl similarity index 100% rename from collects/tests/racket/intm-adv.rkt rename to collects/tests/racket/intm-adv.rktl diff --git a/collects/tests/racket/intm-intml.rkt b/collects/tests/racket/intm-intml.rktl similarity index 100% rename from collects/tests/racket/intm-intml.rkt rename to collects/tests/racket/intm-intml.rktl diff --git a/collects/tests/racket/intmlam-adv.rkt b/collects/tests/racket/intmlam-adv.rktl similarity index 100% rename from collects/tests/racket/intmlam-adv.rkt rename to collects/tests/racket/intmlam-adv.rktl diff --git a/collects/tests/racket/ktest.rkt b/collects/tests/racket/ktest.rktl similarity index 100% rename from collects/tests/racket/ktest.rkt rename to collects/tests/racket/ktest.rktl diff --git a/collects/tests/racket/kw.rkt b/collects/tests/racket/kw.rktl similarity index 99% rename from collects/tests/racket/kw.rkt rename to collects/tests/racket/kw.rktl index d8ec3a83b5..185ae18cf0 100644 --- a/collects/tests/racket/kw.rkt +++ b/collects/tests/racket/kw.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'kw) diff --git a/collects/tests/racket/list.rkt b/collects/tests/racket/list.rktl similarity index 99% rename from collects/tests/racket/list.rkt rename to collects/tests/racket/list.rktl index 112db6ecff..23d21a62ac 100644 --- a/collects/tests/racket/list.rkt +++ b/collects/tests/racket/list.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'list) diff --git a/collects/tests/racket/loadable.rkt b/collects/tests/racket/loadable.rktl similarity index 100% rename from collects/tests/racket/loadable.rkt rename to collects/tests/racket/loadable.rktl diff --git a/collects/tests/racket/loadtest.rkt b/collects/tests/racket/loadtest.rktl similarity index 64% rename from collects/tests/racket/loadtest.rkt rename to collects/tests/racket/loadtest.rktl index 1e05bd0f11..b009d03f46 100644 --- a/collects/tests/racket/loadtest.rkt +++ b/collects/tests/racket/loadtest.rktl @@ -1,3 +1,3 @@ (unless (namespace-variable-value 'Section #f (lambda () #f)) - (load-relative "testing.rkt")) + (load-relative "testing.rktl")) diff --git a/collects/tests/racket/logger.rkt b/collects/tests/racket/logger.rktl similarity index 98% rename from collects/tests/racket/logger.rkt rename to collects/tests/racket/logger.rktl index 6076abb5dd..4a7762496f 100644 --- a/collects/tests/racket/logger.rkt +++ b/collects/tests/racket/logger.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'logger) diff --git a/collects/tests/racket/loop.rkt b/collects/tests/racket/loop.rktl similarity index 100% rename from collects/tests/racket/loop.rkt rename to collects/tests/racket/loop.rktl diff --git a/collects/tests/racket/ltest.rkt b/collects/tests/racket/ltest.rktl similarity index 100% rename from collects/tests/racket/ltest.rkt rename to collects/tests/racket/ltest.rktl diff --git a/collects/tests/racket/macro.rkt b/collects/tests/racket/macro.rktl similarity index 99% rename from collects/tests/racket/macro.rkt rename to collects/tests/racket/macro.rktl index 6e9d557c21..1dd990b027 100644 --- a/collects/tests/racket/macro.rkt +++ b/collects/tests/racket/macro.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'macro) diff --git a/collects/tests/racket/macrolib.rkt b/collects/tests/racket/macrolib.rktl similarity index 99% rename from collects/tests/racket/macrolib.rkt rename to collects/tests/racket/macrolib.rktl index b79b23ae11..23eb8b0cd1 100644 --- a/collects/tests/racket/macrolib.rkt +++ b/collects/tests/racket/macrolib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'macrolib) diff --git a/collects/tests/racket/makeflat.rkt b/collects/tests/racket/makeflat.rktl similarity index 100% rename from collects/tests/racket/makeflat.rkt rename to collects/tests/racket/makeflat.rktl diff --git a/collects/tests/racket/makeflats.rkt b/collects/tests/racket/makeflats.rktl similarity index 100% rename from collects/tests/racket/makeflats.rkt rename to collects/tests/racket/makeflats.rktl diff --git a/collects/tests/racket/math.rkt b/collects/tests/racket/math.rktl similarity index 95% rename from collects/tests/racket/math.rkt rename to collects/tests/racket/math.rktl index 59e7008aae..62c3b93de9 100644 --- a/collects/tests/racket/math.rkt +++ b/collects/tests/racket/math.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'math) (require scheme/math) diff --git a/collects/tests/racket/moddep.rkt b/collects/tests/racket/moddep.rktl similarity index 99% rename from collects/tests/racket/moddep.rkt rename to collects/tests/racket/moddep.rktl index 17a8d409e6..b6cfcf267f 100644 --- a/collects/tests/racket/moddep.rkt +++ b/collects/tests/racket/moddep.rktl @@ -1,6 +1,6 @@ ;; FIXME: this file needs to test resolve-module-path for planet paths -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'moddep) diff --git a/collects/tests/racket/modprot.rkt b/collects/tests/racket/modprot.rktl similarity index 99% rename from collects/tests/racket/modprot.rkt rename to collects/tests/racket/modprot.rktl index 74b78ed2f6..c17f673b23 100644 --- a/collects/tests/racket/modprot.rkt +++ b/collects/tests/racket/modprot.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'modprot) diff --git a/collects/tests/racket/module-reader.rkt b/collects/tests/racket/module-reader.rktl similarity index 99% rename from collects/tests/racket/module-reader.rkt rename to collects/tests/racket/module-reader.rktl index fd6ee4dbd0..995a9312f1 100644 --- a/collects/tests/racket/module-reader.rkt +++ b/collects/tests/racket/module-reader.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'module-reader) diff --git a/collects/tests/racket/module.rkt b/collects/tests/racket/module.rktl similarity index 99% rename from collects/tests/racket/module.rkt rename to collects/tests/racket/module.rktl index e91258ddab..bc9602488a 100644 --- a/collects/tests/racket/module.rkt +++ b/collects/tests/racket/module.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'module) diff --git a/collects/tests/racket/mpair.rkt b/collects/tests/racket/mpair.rktl similarity index 97% rename from collects/tests/racket/mpair.rkt rename to collects/tests/racket/mpair.rktl index 6e2065dbbf..43b854d8a8 100644 --- a/collects/tests/racket/mpair.rkt +++ b/collects/tests/racket/mpair.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'mpair) diff --git a/collects/tests/racket/mz-tests.rkt b/collects/tests/racket/mz-tests.rkt deleted file mode 100644 index 1fb877acd1..0000000000 --- a/collects/tests/racket/mz-tests.rkt +++ /dev/null @@ -1,42 +0,0 @@ - -(load-relative "loadtest.rkt") - -(load-relative "basic.rkt") -(load-relative "unicode.rkt") -(load-relative "rx.rkt") -(load-relative "read.rkt") -(load-relative "macro.rkt") -(load-relative "syntax.rkt") -(load-relative "procs.rkt") -(load-relative "stx.rkt") -(load-relative "module.rkt") -(load-relative "number.rkt") -(load-relative "unsafe.rkt") -(load-relative "object.rkt") -(load-relative "struct.rkt") -(load-relative "unit.rkt") -(load-relative "unitsig.rkt") -(load-relative "thread.rkt") -(load-relative "logger.rkt") -(load-relative "sync.rkt") -(load-relative "deep.rkt") -(load-relative "contmark.rkt") -(load-relative "prompt.rkt") -(load-relative "will.rkt") -(load-relative "namespac.rkt") -(load-relative "modprot.rkt") -(load-relative "chaperone.rkt") -(unless (or building-flat-tests? in-drscheme?) - (load-relative "param.rkt")) -(load-relative "port.rkt") -(load-relative "file.rkt") -(load-relative "path.rkt") -(unless (or building-flat-tests? in-drscheme?) - (load-relative "optimize.rkt")) -(unless building-flat-tests? - (load-relative "name.rkt")) - -;; Ok, so this isn't really all of them. Here are more: -; thrport.rkt - -; See also README diff --git a/collects/tests/racket/mz-tests.rktl b/collects/tests/racket/mz-tests.rktl new file mode 100644 index 0000000000..dc88c7b3fb --- /dev/null +++ b/collects/tests/racket/mz-tests.rktl @@ -0,0 +1,42 @@ + +(load-relative "loadtest.rktl") + +(load-relative "basic.rktl") +(load-relative "unicode.rktl") +(load-relative "rx.rktl") +(load-relative "read.rktl") +(load-relative "macro.rktl") +(load-relative "syntax.rktl") +(load-relative "procs.rktl") +(load-relative "stx.rktl") +(load-relative "module.rktl") +(load-relative "number.rktl") +(load-relative "unsafe.rktl") +(load-relative "object.rktl") +(load-relative "struct.rktl") +(load-relative "unit.rktl") +(load-relative "unitsig.rktl") +(load-relative "thread.rktl") +(load-relative "logger.rktl") +(load-relative "sync.rktl") +(load-relative "deep.rktl") +(load-relative "contmark.rktl") +(load-relative "prompt.rktl") +(load-relative "will.rktl") +(load-relative "namespac.rktl") +(load-relative "modprot.rktl") +(load-relative "chaperone.rktl") +(unless (or building-flat-tests? in-drscheme?) + (load-relative "param.rktl")) +(load-relative "port.rktl") +(load-relative "file.rktl") +(load-relative "path.rktl") +(unless (or building-flat-tests? in-drscheme?) + (load-relative "optimize.rktl")) +(unless building-flat-tests? + (load-relative "name.rktl")) + +;; Ok, so this isn't really all of them. Here are more: +; thrport.rktl + +; See also README diff --git a/collects/tests/racket/mzlib-tests.rkt b/collects/tests/racket/mzlib-tests.rkt deleted file mode 100644 index cd0d80ff53..0000000000 --- a/collects/tests/racket/mzlib-tests.rkt +++ /dev/null @@ -1,31 +0,0 @@ - -; Test MzLib -; See also pptest.rkt and ztest.rkt - -(load-relative "loadtest.rkt") -(load-in-sandbox "mpair.rkt") -(load-in-sandbox "etc.rkt") -(load-in-sandbox "structlib.rkt") -(load-in-sandbox "async-channel.rkt") -(load-in-sandbox "restart.rkt") -(load-in-sandbox "string-mzlib.rkt") -(load-in-sandbox "pathlib.rkt") -(load-in-sandbox "filelib.rkt") -(load-in-sandbox "portlib.rkt") -(load-in-sandbox "threadlib.rkt") -(load-in-sandbox "set.rkt") -(load-in-sandbox "date.rkt") -(load-in-sandbox "compat.rkt") -(load-in-sandbox "cmdline.rkt") -(load-in-sandbox "pconvert.rkt") -(load-in-sandbox "pretty.rkt") -(load-in-sandbox "control.rkt") -(load-in-sandbox "serialize.rkt") -(load-in-sandbox "package.rkt") -(load-in-sandbox "contract-mzlib-test.rkt") -(load-in-sandbox "sandbox.rkt") -(load-in-sandbox "shared.rkt") -(load-in-sandbox "kw.rkt") -(load-in-sandbox "macrolib.rkt") - -(report-errs) diff --git a/collects/tests/racket/mzlib-tests.rktl b/collects/tests/racket/mzlib-tests.rktl new file mode 100644 index 0000000000..81fc47b394 --- /dev/null +++ b/collects/tests/racket/mzlib-tests.rktl @@ -0,0 +1,31 @@ + +; Test MzLib +; See also pptest.rkt and ztest.rkt + +(load-relative "loadtest.rktl") +(load-in-sandbox "mpair.rktl") +(load-in-sandbox "etc.rktl") +(load-in-sandbox "structlib.rktl") +(load-in-sandbox "async-channel.rktl") +(load-in-sandbox "restart.rktl") +(load-in-sandbox "string-mzlib.rktl") +(load-in-sandbox "pathlib.rktl") +(load-in-sandbox "filelib.rktl") +(load-in-sandbox "portlib.rktl") +(load-in-sandbox "threadlib.rktl") +(load-in-sandbox "set.rktl") +(load-in-sandbox "date.rktl") +(load-in-sandbox "compat.rktl") +(load-in-sandbox "cmdline.rktl") +(load-in-sandbox "pconvert.rktl") +(load-in-sandbox "pretty.rktl") +(load-in-sandbox "control.rktl") +(load-in-sandbox "serialize.rktl") +(load-in-sandbox "package.rktl") +(load-in-sandbox "contract-mzlib-test.rktl") +(load-in-sandbox "sandbox.rktl") +(load-in-sandbox "shared.rktl") +(load-in-sandbox "kw.rktl") +(load-in-sandbox "macrolib.rktl") + +(report-errs) diff --git a/collects/tests/racket/mzq.rkt b/collects/tests/racket/mzq.rkt deleted file mode 100644 index 74cc6bd914..0000000000 --- a/collects/tests/racket/mzq.rkt +++ /dev/null @@ -1,3 +0,0 @@ - -(define quiet-load "mz-tests.rkt") -(load-relative "quiet.rkt") diff --git a/collects/tests/racket/mzq.rktl b/collects/tests/racket/mzq.rktl new file mode 100644 index 0000000000..284599b775 --- /dev/null +++ b/collects/tests/racket/mzq.rktl @@ -0,0 +1,3 @@ + +(define quiet-load "mz-tests.rktl") +(load-relative "quiet.rktl") diff --git a/collects/tests/racket/name.rkt b/collects/tests/racket/name.rktl similarity index 99% rename from collects/tests/racket/name.rkt rename to collects/tests/racket/name.rktl index 826ab9d609..360c2dfe9e 100644 --- a/collects/tests/racket/name.rkt +++ b/collects/tests/racket/name.rktl @@ -1,7 +1,7 @@ ; Test MzScheme's name inference -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/class) (require scheme/unit) diff --git a/collects/tests/racket/namespac.rkt b/collects/tests/racket/namespac.rktl similarity index 99% rename from collects/tests/racket/namespac.rkt rename to collects/tests/racket/namespac.rktl index 6f3735b1d2..0699106868 100644 --- a/collects/tests/racket/namespac.rkt +++ b/collects/tests/racket/namespac.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'namespaces) diff --git a/collects/tests/racket/nch.rkt b/collects/tests/racket/nch.rktl similarity index 100% rename from collects/tests/racket/nch.rkt rename to collects/tests/racket/nch.rktl diff --git a/collects/tests/racket/net.rkt b/collects/tests/racket/net.rktl similarity index 84% rename from collects/tests/racket/net.rkt rename to collects/tests/racket/net.rktl index 26744b2d5b..9b86f927f5 100644 --- a/collects/tests/racket/net.rkt +++ b/collects/tests/racket/net.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'net) diff --git a/collects/tests/racket/number.rkt b/collects/tests/racket/number.rktl similarity index 99% rename from collects/tests/racket/number.rkt rename to collects/tests/racket/number.rktl index 91e68c65a3..e2f7c93446 100644 --- a/collects/tests/racket/number.rkt +++ b/collects/tests/racket/number.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'numbers) @@ -1997,7 +1997,7 @@ (test 15 string->number "#o17") (test 15 string->number "#o17" 10) -(load-relative "numstrs.rkt") +(load-relative "numstrs.rktl") (let loop ([l number-table]) (unless (null? l) (let* ([pair (car l)] diff --git a/collects/tests/racket/numstrs.rkt b/collects/tests/racket/numstrs.rktl similarity index 100% rename from collects/tests/racket/numstrs.rkt rename to collects/tests/racket/numstrs.rktl diff --git a/collects/tests/racket/object-old.rkt b/collects/tests/racket/object-old.rktl similarity index 99% rename from collects/tests/racket/object-old.rkt rename to collects/tests/racket/object-old.rktl index d742bbbe4d..af4a5fb75a 100644 --- a/collects/tests/racket/object-old.rkt +++ b/collects/tests/racket/object-old.rktl @@ -1,7 +1,7 @@ ; Test MzScheme's object system -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mzlib/class) diff --git a/collects/tests/racket/object.rkt b/collects/tests/racket/object.rktl similarity index 99% rename from collects/tests/racket/object.rkt rename to collects/tests/racket/object.rktl index 78a98fc09e..d647358ad0 100644 --- a/collects/tests/racket/object.rkt +++ b/collects/tests/racket/object.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/class) diff --git a/collects/tests/racket/oe.rkt b/collects/tests/racket/oe.rktl similarity index 100% rename from collects/tests/racket/oe.rkt rename to collects/tests/racket/oe.rktl diff --git a/collects/tests/racket/openssl.rkt b/collects/tests/racket/openssl.rktl similarity index 98% rename from collects/tests/racket/openssl.rkt rename to collects/tests/racket/openssl.rktl index 6963d2b517..aecd9e8be0 100644 --- a/collects/tests/racket/openssl.rkt +++ b/collects/tests/racket/openssl.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'openssl) diff --git a/collects/tests/racket/optimize.rkt b/collects/tests/racket/optimize.rktl similarity index 99% rename from collects/tests/racket/optimize.rkt rename to collects/tests/racket/optimize.rktl index 83994ae756..f5b6dabb10 100644 --- a/collects/tests/racket/optimize.rkt +++ b/collects/tests/racket/optimize.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'optimization) diff --git a/collects/tests/racket/pack.rkt b/collects/tests/racket/pack.rktl similarity index 99% rename from collects/tests/racket/pack.rkt rename to collects/tests/racket/pack.rktl index 069842077b..f1691cf831 100644 --- a/collects/tests/racket/pack.rkt +++ b/collects/tests/racket/pack.rktl @@ -2,7 +2,7 @@ ;; WARNING: this test writes a "packed" collection to the main and user ;; collection directories. -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'pack) diff --git a/collects/tests/racket/package-gen.rkt b/collects/tests/racket/package-gen.rktl similarity index 100% rename from collects/tests/racket/package-gen.rkt rename to collects/tests/racket/package-gen.rktl diff --git a/collects/tests/racket/package.rkt b/collects/tests/racket/package.rktl similarity index 99% rename from collects/tests/racket/package.rkt rename to collects/tests/racket/package.rktl index fca5142ae3..fb947c744b 100644 --- a/collects/tests/racket/package.rkt +++ b/collects/tests/racket/package.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/package) (Section 'packages) diff --git a/collects/tests/racket/parallel.rkt b/collects/tests/racket/parallel.rktl similarity index 100% rename from collects/tests/racket/parallel.rkt rename to collects/tests/racket/parallel.rktl diff --git a/collects/tests/racket/param.rkt b/collects/tests/racket/param.rktl similarity index 99% rename from collects/tests/racket/param.rkt rename to collects/tests/racket/param.rktl index 21326b2f57..2aaba14be0 100644 --- a/collects/tests/racket/param.rkt +++ b/collects/tests/racket/param.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'parameters) @@ -360,7 +360,7 @@ (list current-load-relative-directory (list (current-load-relative-directory) (build-path (current-load-relative-directory) 'up)) - '(load-relative "loadable.rkt") + '(load-relative "loadable.rktl") exn:fail:filesystem? (append (list 0) (map diff --git a/collects/tests/racket/path.rkt b/collects/tests/racket/path.rktl similarity index 99% rename from collects/tests/racket/path.rkt rename to collects/tests/racket/path.rktl index fe21ac5e63..80803d25b3 100644 --- a/collects/tests/racket/path.rkt +++ b/collects/tests/racket/path.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'path) diff --git a/collects/tests/racket/pathlib.rkt b/collects/tests/racket/pathlib.rktl similarity index 99% rename from collects/tests/racket/pathlib.rkt rename to collects/tests/racket/pathlib.rktl index acada5eb44..bf2aa92745 100644 --- a/collects/tests/racket/pathlib.rkt +++ b/collects/tests/racket/pathlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'path) diff --git a/collects/tests/racket/pconvert.rkt b/collects/tests/racket/pconvert.rktl similarity index 99% rename from collects/tests/racket/pconvert.rkt rename to collects/tests/racket/pconvert.rktl index 58385e92db..534ec11130 100644 --- a/collects/tests/racket/pconvert.rkt +++ b/collects/tests/racket/pconvert.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'pconvert) @@ -367,7 +367,7 @@ (test 'empty print-convert '()) -(let ([fn (make-temporary-file "pconvert.rkt-test~a")]) +(let ([fn (make-temporary-file "pconvert.rktl-test~a")]) (let ([in (open-input-file fn)]) (test `(open-input-file ,fn) print-convert in) (close-input-port in)) diff --git a/collects/tests/racket/place-channel.rkt b/collects/tests/racket/place-channel.rktl similarity index 97% rename from collects/tests/racket/place-channel.rkt rename to collects/tests/racket/place-channel.rktl index d1fe7c6062..8442c5dfdd 100644 --- a/collects/tests/racket/place-channel.rkt +++ b/collects/tests/racket/place-channel.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'place-channel) (define (splat txt fn) diff --git a/collects/tests/racket/port.rkt b/collects/tests/racket/port.rktl similarity index 99% rename from collects/tests/racket/port.rkt rename to collects/tests/racket/port.rktl index bfe5a342fd..5f246f6243 100644 --- a/collects/tests/racket/port.rkt +++ b/collects/tests/racket/port.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'port) diff --git a/collects/tests/racket/portlib.rkt b/collects/tests/racket/portlib.rktl similarity index 99% rename from collects/tests/racket/portlib.rkt rename to collects/tests/racket/portlib.rktl index c9f86c5e84..b5faae12b7 100644 --- a/collects/tests/racket/portlib.rkt +++ b/collects/tests/racket/portlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'port) diff --git a/collects/tests/racket/pretty.rkt b/collects/tests/racket/pretty.rktl similarity index 99% rename from collects/tests/racket/pretty.rkt rename to collects/tests/racket/pretty.rktl index 1d26124b4d..40f68d31df 100644 --- a/collects/tests/racket/pretty.rkt +++ b/collects/tests/racket/pretty.rktl @@ -8,7 +8,7 @@ ;; changed; when it's ok, then record the new regression results. (define use-regression? #t) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'pretty) diff --git a/collects/tests/racket/procs.rkt b/collects/tests/racket/procs.rktl similarity index 99% rename from collects/tests/racket/procs.rkt rename to collects/tests/racket/procs.rktl index 9bc585a025..d549ee5df5 100644 --- a/collects/tests/racket/procs.rkt +++ b/collects/tests/racket/procs.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'procs) diff --git a/collects/tests/racket/prompt-tests.rkt b/collects/tests/racket/prompt-tests.rktl similarity index 100% rename from collects/tests/racket/prompt-tests.rkt rename to collects/tests/racket/prompt-tests.rktl diff --git a/collects/tests/racket/prompt.rkt b/collects/tests/racket/prompt.rktl similarity index 97% rename from collects/tests/racket/prompt.rkt rename to collects/tests/racket/prompt.rktl index 637b588a4c..ec50b21181 100644 --- a/collects/tests/racket/prompt.rkt +++ b/collects/tests/racket/prompt.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'prompt) @@ -97,7 +97,7 @@ ;; ---------------------------------------- -(load-relative "prompt-tests.rkt") +(load-relative "prompt-tests.rktl") ;; ---------------------------------------- @@ -111,7 +111,7 @@ (let ([p (open-input-file (build-path (or (current-load-relative-directory) (current-directory)) - "prompt-tests.rkt"))]) + "prompt-tests.rktl"))]) (let loop () (let ([r (read-syntax (object-name p) p)]) (unless (eof-object? r) diff --git a/collects/tests/racket/quiet.rkt b/collects/tests/racket/quiet.rktl similarity index 99% rename from collects/tests/racket/quiet.rkt rename to collects/tests/racket/quiet.rktl index 8a40080fb4..129d3ea362 100644 --- a/collects/tests/racket/quiet.rkt +++ b/collects/tests/racket/quiet.rktl @@ -3,7 +3,7 @@ (lambda () (namespace-set-variable-value! 'quiet-load (let ([argv (current-command-line-arguments)]) - (if (= 1 (vector-length argv)) (vector-ref argv 0) "all.rkt"))))) + (if (= 1 (vector-length argv)) (vector-ref argv 0) "all.rktl"))))) (define timeout-thread #f) diff --git a/collects/tests/racket/read.rkt b/collects/tests/racket/read.rktl similarity index 99% rename from collects/tests/racket/read.rkt rename to collects/tests/racket/read.rktl index fc87218d68..fe2249db03 100644 --- a/collects/tests/racket/read.rkt +++ b/collects/tests/racket/read.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'reading) (define readstr @@ -16,7 +16,7 @@ (lambda (x) x)) ; Make sure {whitespace} == {delimiter} -(let ([with-censor (load-relative "censor.rkt")]) +(let ([with-censor (load-relative "censor.rktl")]) (with-censor (lambda () (let loop ([n 0]) @@ -172,7 +172,7 @@ (err/rt-test (readstr "#\"\\777\"") exn:fail:read?) (err/rt-test (readstr "#\"\\u0040\"") exn:fail:read?) -(load-relative "numstrs.rkt") +(load-relative "numstrs.rktl") (let loop ([l number-table]) (unless (null? l) (let* ([pair (car l)] @@ -488,7 +488,7 @@ #ci(test (string->symbol "aAa") 'quote '|aAa|) #ci(test (string->symbol "aAa") 'quote 'A|A|A) -(load-relative "numstrs.rkt") +(load-relative "numstrs.rktl") (let loop ([l number-table]) (cond [(null? l) 'done] @@ -1055,4 +1055,4 @@ (report-errs) -(load-relative "readtable.rkt") +(load-relative "readtable.rktl") diff --git a/collects/tests/racket/readtable.rkt b/collects/tests/racket/readtable.rktl similarity index 99% rename from collects/tests/racket/readtable.rkt rename to collects/tests/racket/readtable.rktl index 462d1635dc..586312f7c5 100644 --- a/collects/tests/racket/readtable.rkt +++ b/collects/tests/racket/readtable.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'readtable) diff --git a/collects/tests/racket/restart.rkt b/collects/tests/racket/restart.rktl similarity index 97% rename from collects/tests/racket/restart.rkt rename to collects/tests/racket/restart.rktl index 56d5b03bab..2fcaa5f247 100644 --- a/collects/tests/racket/restart.rkt +++ b/collects/tests/racket/restart.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mzlib/restart) diff --git a/collects/tests/racket/runflats.rkt b/collects/tests/racket/runflats.rktl similarity index 100% rename from collects/tests/racket/runflats.rkt rename to collects/tests/racket/runflats.rktl diff --git a/collects/tests/racket/rx.rkt b/collects/tests/racket/rx.rktl similarity index 99% rename from collects/tests/racket/rx.rkt rename to collects/tests/racket/rx.rktl index 1cc50eb170..3c27f135a7 100644 --- a/collects/tests/racket/rx.rkt +++ b/collects/tests/racket/rx.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'rx) diff --git a/collects/tests/racket/sandbox.rkt b/collects/tests/racket/sandbox.rktl similarity index 99% rename from collects/tests/racket/sandbox.rkt rename to collects/tests/racket/sandbox.rktl index 53aa656f83..4512fff245 100644 --- a/collects/tests/racket/sandbox.rkt +++ b/collects/tests/racket/sandbox.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'sandbox) diff --git a/collects/tests/racket/scheme-tests.rkt b/collects/tests/racket/scheme-tests.rkt deleted file mode 100644 index 7e1b168f54..0000000000 --- a/collects/tests/racket/scheme-tests.rkt +++ /dev/null @@ -1,12 +0,0 @@ - -(load-relative "loadtest.rkt") - -(load-in-sandbox "for.rkt") -(load-in-sandbox "list.rkt") -(load-in-sandbox "math.rkt") -(load-in-sandbox "vector.rkt") -(load-in-sandbox "function.rkt") -(load-in-sandbox "dict.rkt") -(load-in-sandbox "contract-test.rkt") -(load-in-sandbox "fixnum.rkt") - diff --git a/collects/tests/racket/scheme-tests.rktl b/collects/tests/racket/scheme-tests.rktl new file mode 100644 index 0000000000..1f5b7c4f62 --- /dev/null +++ b/collects/tests/racket/scheme-tests.rktl @@ -0,0 +1,12 @@ + +(load-relative "loadtest.rktl") + +(load-in-sandbox "for.rktl") +(load-in-sandbox "list.rktl") +(load-in-sandbox "math.rktl") +(load-in-sandbox "vector.rktl") +(load-in-sandbox "function.rktl") +(load-in-sandbox "dict.rktl") +(load-in-sandbox "contract-test.rktl") +(load-in-sandbox "fixnum.rktl") + diff --git a/collects/tests/racket/serialize.rkt b/collects/tests/racket/serialize.rktl similarity index 99% rename from collects/tests/racket/serialize.rkt rename to collects/tests/racket/serialize.rktl index 6d4317ae27..bf086c3705 100644 --- a/collects/tests/racket/serialize.rkt +++ b/collects/tests/racket/serialize.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'serialization) diff --git a/collects/tests/racket/set.rkt b/collects/tests/racket/set.rktl similarity index 99% rename from collects/tests/racket/set.rkt rename to collects/tests/racket/set.rktl index af0ec0338b..bb91761c34 100644 --- a/collects/tests/racket/set.rkt +++ b/collects/tests/racket/set.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'sets) (require scheme/set) diff --git a/collects/tests/racket/shared-tests.rkt b/collects/tests/racket/shared-tests.rktl similarity index 100% rename from collects/tests/racket/shared-tests.rkt rename to collects/tests/racket/shared-tests.rktl diff --git a/collects/tests/racket/shared.rkt b/collects/tests/racket/shared.rktl similarity index 73% rename from collects/tests/racket/shared.rkt rename to collects/tests/racket/shared.rktl index c823b85688..c8dd2d0069 100644 --- a/collects/tests/racket/shared.rkt +++ b/collects/tests/racket/shared.rktl @@ -1,18 +1,18 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'shared) (require mzlib/shared) (require (only-in mzscheme define-struct)) -(load-relative "shared-tests.rkt") +(load-relative "shared-tests.rktl") (stest (letrec ([x x]) x) (shared ([x x]) x)) (stest (letrec ([x x]) x) (shared ([x y][y x]) x)) (namespace-require/copy 'scheme/base) (require (only-in mzscheme define-struct)) -(load-relative "shared-tests.rkt") +(load-relative "shared-tests.rktl") (report-errs) diff --git a/collects/tests/racket/srfi.rkt b/collects/tests/racket/srfi.rktl similarity index 97% rename from collects/tests/racket/srfi.rkt rename to collects/tests/racket/srfi.rktl index 8f76182992..5070184d01 100644 --- a/collects/tests/racket/srfi.rkt +++ b/collects/tests/racket/srfi.rktl @@ -1,6 +1,6 @@ ;; SRFI Tests -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Test that all SRFIs load. Run this in both DrScheme and ;; MzScheme for maximum coverage. diff --git a/collects/tests/racket/stream.rkt b/collects/tests/racket/stream.rktl similarity index 100% rename from collects/tests/racket/stream.rkt rename to collects/tests/racket/stream.rktl diff --git a/collects/tests/racket/string-mzlib.rkt b/collects/tests/racket/string-mzlib.rktl similarity index 99% rename from collects/tests/racket/string-mzlib.rkt rename to collects/tests/racket/string-mzlib.rktl index 45f357391a..2a5c20d640 100644 --- a/collects/tests/racket/string-mzlib.rkt +++ b/collects/tests/racket/string-mzlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'mzlib-string) diff --git a/collects/tests/racket/string.rkt b/collects/tests/racket/string.rktl similarity index 99% rename from collects/tests/racket/string.rkt rename to collects/tests/racket/string.rktl index d44e224a11..546cf96d06 100644 --- a/collects/tests/racket/string.rkt +++ b/collects/tests/racket/string.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'string) diff --git a/collects/tests/racket/struct.rkt b/collects/tests/racket/struct.rktl similarity index 99% rename from collects/tests/racket/struct.rkt rename to collects/tests/racket/struct.rktl index 2c70cc0c85..06ea1e0f48 100644 --- a/collects/tests/racket/struct.rkt +++ b/collects/tests/racket/struct.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'struct) diff --git a/collects/tests/racket/structlib.rkt b/collects/tests/racket/structlib.rktl similarity index 97% rename from collects/tests/racket/structlib.rkt rename to collects/tests/racket/structlib.rktl index a827649f20..fc07a821a8 100644 --- a/collects/tests/racket/structlib.rkt +++ b/collects/tests/racket/structlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'structlib) diff --git a/collects/tests/racket/stx.rkt b/collects/tests/racket/stx.rktl similarity index 99% rename from collects/tests/racket/stx.rkt rename to collects/tests/racket/stx.rktl index 8da932c7b8..9ba9b94001 100644 --- a/collects/tests/racket/stx.rkt +++ b/collects/tests/racket/stx.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'stx) diff --git a/collects/tests/racket/subprocess.rkt b/collects/tests/racket/subprocess.rktl similarity index 99% rename from collects/tests/racket/subprocess.rkt rename to collects/tests/racket/subprocess.rktl index 54bd0e4d53..01b923ed4f 100644 --- a/collects/tests/racket/subprocess.rkt +++ b/collects/tests/racket/subprocess.rktl @@ -1,5 +1,5 @@ -(load-relative "testing.rkt") +(load-relative "testing.rktl") (require mzlib/process) diff --git a/collects/tests/racket/sync.rkt b/collects/tests/racket/sync.rktl similarity index 99% rename from collects/tests/racket/sync.rkt rename to collects/tests/racket/sync.rktl index f05472eeea..93f58d930e 100644 --- a/collects/tests/racket/sync.rkt +++ b/collects/tests/racket/sync.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'synchronization) diff --git a/collects/tests/racket/syntax-tests.rkt b/collects/tests/racket/syntax-tests.rkt deleted file mode 100644 index f57a19bee4..0000000000 --- a/collects/tests/racket/syntax-tests.rkt +++ /dev/null @@ -1,9 +0,0 @@ -(load-relative "loadtest.rkt") - -(load-in-sandbox "moddep.rkt") -(load-in-sandbox "boundmap-test.rkt") -(load-in-sandbox "id-table-test.rkt") -(load-in-sandbox "cm.rkt") -(load-in-sandbox "module-reader.rkt") - -(report-errs) diff --git a/collects/tests/racket/syntax-tests.rktl b/collects/tests/racket/syntax-tests.rktl new file mode 100644 index 0000000000..111c3d7cb9 --- /dev/null +++ b/collects/tests/racket/syntax-tests.rktl @@ -0,0 +1,9 @@ +(load-relative "loadtest.rktl") + +(load-in-sandbox "moddep.rktl") +(load-in-sandbox "boundmap-test.rktl") +(load-in-sandbox "id-table-test.rktl") +(load-in-sandbox "cm.rktl") +(load-in-sandbox "module-reader.rktl") + +(report-errs) diff --git a/collects/tests/racket/syntax.rkt b/collects/tests/racket/syntax.rktl similarity index 99% rename from collects/tests/racket/syntax.rkt rename to collects/tests/racket/syntax.rktl index 346352d8c1..b6bb1c231f 100644 --- a/collects/tests/racket/syntax.rkt +++ b/collects/tests/racket/syntax.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'syntax) diff --git a/collects/tests/racket/tcp.rkt b/collects/tests/racket/tcp.rktl similarity index 100% rename from collects/tests/racket/tcp.rkt rename to collects/tests/racket/tcp.rktl diff --git a/collects/tests/racket/testing.rkt b/collects/tests/racket/testing.rktl similarity index 98% rename from collects/tests/racket/testing.rkt rename to collects/tests/racket/testing.rktl index a59573773c..f7b86e8da8 100644 --- a/collects/tests/racket/testing.rkt +++ b/collects/tests/racket/testing.rktl @@ -16,7 +16,7 @@ ;;; Revised^4 Report on the Algorithmic Language Scheme ;;; and the IEEE specification. -; The format of the next line is important: file.rkt relies on it +; The format of the next line is important: file.rktl relies on it (define cur-section '())(define errs '()) #| @@ -51,7 +51,7 @@ transcript. (defvar building-flat-tests? #f) (defvar in-drscheme? #f) -;; used when quiet testing (through "quiet.rkt") to really show something +;; used when quiet testing (through "quiet.rktl") to really show something (defvar real-output-port #f) (defvar real-error-port #f) @@ -83,7 +83,7 @@ transcript. [(S sandbox-error-output) current-error-port] [(S sandbox-memory-limit) 100]) ; 100mb per box ((S make-evaluator) '(begin) #:requires (list 'racket)))))]) - (e `(load-relative "testing.rkt")) + (e `(load-relative "testing.rktl")) (e `(define real-output-port (quote ,real-output-port))) (e `(define real-error-port (quote ,real-error-port))) (e `(define Section-prefix ,Section-prefix)) @@ -205,7 +205,7 @@ transcript. [(expr) (error-test expr exn:application:type?)] [(expr exn-type?) (thunk-error-test (lambda () (eval expr)) expr exn-type?)])) -(require (only-in racket [lambda err:mz:lambda])) ; so err/rt-test works with beginner.rkt +(require (only-in racket [lambda err:mz:lambda])) ; so err/rt-test works with beginner.rktl (define-syntax err/rt-test (lambda (stx) (syntax-case stx () diff --git a/collects/tests/racket/thread.rkt b/collects/tests/racket/thread.rktl similarity index 99% rename from collects/tests/racket/thread.rkt rename to collects/tests/racket/thread.rktl index 5a8fe0d1ea..7f6e35a415 100644 --- a/collects/tests/racket/thread.rkt +++ b/collects/tests/racket/thread.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'threads) diff --git a/collects/tests/racket/threadlib.rkt b/collects/tests/racket/threadlib.rktl similarity index 98% rename from collects/tests/racket/threadlib.rkt rename to collects/tests/racket/threadlib.rktl index b961afe92a..b5b4d38e43 100644 --- a/collects/tests/racket/threadlib.rkt +++ b/collects/tests/racket/threadlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'threadlib) diff --git a/collects/tests/racket/thrport.rkt b/collects/tests/racket/thrport.rktl similarity index 95% rename from collects/tests/racket/thrport.rkt rename to collects/tests/racket/thrport.rktl index aea785ef52..d814c08dbf 100644 --- a/collects/tests/racket/thrport.rkt +++ b/collects/tests/racket/thrport.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'multi-threaded-ports) @@ -8,7 +8,7 @@ ; compare resulting character content to the original file (test 0 'threaded-ports (let*-values ([(f-in) (open-input-file - (path->complete-path "testing.rkt" + (path->complete-path "testing.rktl" (current-load-relative-directory)))] [(p-in p-out) (make-pipe)] [(s-out) (open-output-string)] diff --git a/collects/tests/racket/trace.rkt b/collects/tests/racket/trace.rktl similarity index 97% rename from collects/tests/racket/trace.rkt rename to collects/tests/racket/trace.rktl index efce735be2..4a04d675cf 100644 --- a/collects/tests/racket/trace.rkt +++ b/collects/tests/racket/trace.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'trace) diff --git a/collects/tests/racket/trait.rkt b/collects/tests/racket/trait.rktl similarity index 99% rename from collects/tests/racket/trait.rkt rename to collects/tests/racket/trait.rktl index 81acb7133b..9a7b0de277 100644 --- a/collects/tests/racket/trait.rkt +++ b/collects/tests/racket/trait.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mzlib/class mzlib/trait) diff --git a/collects/tests/racket/ttt/listlib.rkt b/collects/tests/racket/ttt/listlib.rktl similarity index 100% rename from collects/tests/racket/ttt/listlib.rkt rename to collects/tests/racket/ttt/listlib.rktl diff --git a/collects/tests/racket/ttt/tic-bang.rkt b/collects/tests/racket/ttt/tic-bang.rktl similarity index 99% rename from collects/tests/racket/ttt/tic-bang.rkt rename to collects/tests/racket/ttt/tic-bang.rktl index 5ba990e185..9cd38f06de 100644 --- a/collects/tests/racket/ttt/tic-bang.rkt +++ b/collects/tests/racket/ttt/tic-bang.rktl @@ -11,7 +11,7 @@ ;; It relies on list-library.ss. -(load-relative "listlib.rkt") +(load-relative "listlib.rktl") ;; representations of fields, states, and collections of states (define BLANK 0) diff --git a/collects/tests/racket/ttt/tic-func.rkt b/collects/tests/racket/ttt/tic-func.rktl similarity index 99% rename from collects/tests/racket/ttt/tic-func.rkt rename to collects/tests/racket/ttt/tic-func.rktl index fd25ad6462..aaca9c6292 100644 --- a/collects/tests/racket/ttt/tic-func.rkt +++ b/collects/tests/racket/ttt/tic-func.rktl @@ -8,7 +8,7 @@ ;; It relies on list-library.rkt. -(load-relative "listlib.rkt") +(load-relative "listlib.rktl") ;; representations of fields, states, and collections of states (define null '()) diff --git a/collects/tests/racket/ttt/ttt.rkt b/collects/tests/racket/ttt/ttt.rktl similarity index 64% rename from collects/tests/racket/ttt/ttt.rkt rename to collects/tests/racket/ttt/ttt.rktl index d5a1c6acbe..4c1b080596 100644 --- a/collects/tests/racket/ttt/ttt.rkt +++ b/collects/tests/racket/ttt/ttt.rktl @@ -1,8 +1,8 @@ (require mzlib/etc mzlib/compat) -(load-relative "listlib.rkt") -(load-relative "veclib.rkt") -(load-relative "tic-func.rkt") +(load-relative "listlib.rktl") +(load-relative "veclib.rktl") +(load-relative "tic-func.rktl") (let loop () (collect-garbage) diff --git a/collects/tests/racket/ttt/uinc4.rkt b/collects/tests/racket/ttt/uinc4.rkt deleted file mode 100644 index 62230a2316..0000000000 --- a/collects/tests/racket/ttt/uinc4.rkt +++ /dev/null @@ -1,5 +0,0 @@ - -(define also-unused 'ok) - -(include (build-path up "uinc.rkt")) - diff --git a/collects/tests/racket/ttt/uinc4.rktl b/collects/tests/racket/ttt/uinc4.rktl new file mode 100644 index 0000000000..bd0a771311 --- /dev/null +++ b/collects/tests/racket/ttt/uinc4.rktl @@ -0,0 +1,5 @@ + +(define also-unused 'ok) + +(include (build-path up "uinc.rktl")) + diff --git a/collects/tests/racket/ttt/veclib.rkt b/collects/tests/racket/ttt/veclib.rktl similarity index 100% rename from collects/tests/racket/ttt/veclib.rkt rename to collects/tests/racket/ttt/veclib.rktl diff --git a/collects/tests/racket/udp.rkt b/collects/tests/racket/udp.rktl similarity index 99% rename from collects/tests/racket/udp.rkt rename to collects/tests/racket/udp.rktl index b59f3b87ff..12c565e3ce 100644 --- a/collects/tests/racket/udp.rkt +++ b/collects/tests/racket/udp.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'udp) diff --git a/collects/tests/racket/uinc.rkt b/collects/tests/racket/uinc.rktl similarity index 100% rename from collects/tests/racket/uinc.rkt rename to collects/tests/racket/uinc.rktl diff --git a/collects/tests/racket/uinc2.rkt b/collects/tests/racket/uinc2.rktl similarity index 100% rename from collects/tests/racket/uinc2.rkt rename to collects/tests/racket/uinc2.rktl diff --git a/collects/tests/racket/uinc3.rkt b/collects/tests/racket/uinc3.rkt deleted file mode 100644 index 8485dbb7b5..0000000000 --- a/collects/tests/racket/uinc3.rkt +++ /dev/null @@ -1,7 +0,0 @@ - -(define unused 'hello) - -(include (build-path "ttt" "uinc4.rkt")) - - - diff --git a/collects/tests/racket/uinc3.rktl b/collects/tests/racket/uinc3.rktl new file mode 100644 index 0000000000..bc16584276 --- /dev/null +++ b/collects/tests/racket/uinc3.rktl @@ -0,0 +1,7 @@ + +(define unused 'hello) + +(include (build-path "ttt" "uinc4.rktl")) + + + diff --git a/collects/tests/racket/uni-norm.rkt b/collects/tests/racket/uni-norm.rktl similarity index 98% rename from collects/tests/racket/uni-norm.rkt rename to collects/tests/racket/uni-norm.rktl index 797fd6b81b..643ad5b8f8 100644 --- a/collects/tests/racket/uni-norm.rkt +++ b/collects/tests/racket/uni-norm.rktl @@ -3,7 +3,7 @@ (only-in net/url get-pure-port string->url) (only-in mzlib/port copy-port)) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'uni-norm) diff --git a/collects/tests/racket/unicode.rkt b/collects/tests/racket/unicode.rktl similarity index 99% rename from collects/tests/racket/unicode.rkt rename to collects/tests/racket/unicode.rktl index cb5a9c842a..ff911f550c 100644 --- a/collects/tests/racket/unicode.rkt +++ b/collects/tests/racket/unicode.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'unicode) diff --git a/collects/tests/racket/unit.rkt b/collects/tests/racket/unit.rktl similarity index 99% rename from collects/tests/racket/unit.rkt rename to collects/tests/racket/unit.rktl index 0e70240bf8..3264672e34 100644 --- a/collects/tests/racket/unit.rkt +++ b/collects/tests/racket/unit.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'unit) (require mzlib/unit200) diff --git a/collects/tests/racket/unitsig.rkt b/collects/tests/racket/unitsig.rktl similarity index 99% rename from collects/tests/racket/unitsig.rkt rename to collects/tests/racket/unitsig.rktl index 7dff08d7b3..f47f0157ad 100644 --- a/collects/tests/racket/unitsig.rkt +++ b/collects/tests/racket/unitsig.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Hide keywords from scheme/unit.rkt: (define import #f) @@ -178,7 +178,7 @@ () (import) - (include "uinc.rkt"))) + (include "uinc.rktl"))) (test 9 'include (invoke-unit/sig i1@)) @@ -189,7 +189,7 @@ (import) (+ 3 4) - (include "uinc3.rkt"))) + (include "uinc3.rktl"))) (test 9 'include (invoke-unit/sig i1.5@)) @@ -198,9 +198,9 @@ () (import) - (include "uinc.rkt") - (include "uinc2.rkt") - (include "uinc.rkt") + (include "uinc.rktl") + (include "uinc2.rktl") + (include "uinc.rktl") (+ x 2))) (test 10 'include (invoke-unit/sig i2@)) @@ -212,7 +212,7 @@ (unit/sig () (import) (define x 5) - (include "binc.rkt") + (include "binc.rktl") y))) ; Simple: diff --git a/collects/tests/racket/unsafe.rkt b/collects/tests/racket/unsafe.rktl similarity index 99% rename from collects/tests/racket/unsafe.rkt rename to collects/tests/racket/unsafe.rktl index 2a8c440710..218b6027aa 100644 --- a/collects/tests/racket/unsafe.rkt +++ b/collects/tests/racket/unsafe.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'unsafe) diff --git a/collects/tests/racket/vector.rkt b/collects/tests/racket/vector.rktl similarity index 99% rename from collects/tests/racket/vector.rkt rename to collects/tests/racket/vector.rktl index 1ee665525c..a350a34458 100644 --- a/collects/tests/racket/vector.rkt +++ b/collects/tests/racket/vector.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'vector) diff --git a/collects/tests/racket/version.rkt b/collects/tests/racket/version.rktl similarity index 96% rename from collects/tests/racket/version.rkt rename to collects/tests/racket/version.rktl index 9140088f42..a79f852f86 100644 --- a/collects/tests/racket/version.rkt +++ b/collects/tests/racket/version.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'version) @@ -13,7 +13,7 @@ ;; rate of changes, this should happen in more 150 years. Either programming ;; is probably done with a direct brain link, or this software has nobody to ;; fix it because everybody went back to the trees. - (error 'version/utils.rkt "this file should be updated")) + (error 'version/utils.rktl "this file should be updated")) (test #t valid-version? (version)) (for-each (lambda (v+i) (test (cadr v+i) version->integer (car v+i))) diff --git a/collects/tests/racket/will.rkt b/collects/tests/racket/will.rktl similarity index 99% rename from collects/tests/racket/will.rkt rename to collects/tests/racket/will.rktl index 3c10c75144..e87bef8ae2 100644 --- a/collects/tests/racket/will.rkt +++ b/collects/tests/racket/will.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'wills) diff --git a/collects/tests/racket/zo-marshal.rkt b/collects/tests/racket/zo-marshal.rktl similarity index 99% rename from collects/tests/racket/zo-marshal.rkt rename to collects/tests/racket/zo-marshal.rktl index e74b2e2cfb..f829ae8272 100644 --- a/collects/tests/racket/zo-marshal.rkt +++ b/collects/tests/racket/zo-marshal.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'zo-marshal) diff --git a/collects/tests/racket/ztest.rkt b/collects/tests/racket/ztest.rktl similarity index 100% rename from collects/tests/racket/ztest.rkt rename to collects/tests/racket/ztest.rktl diff --git a/collects/tests/srfi/1/run-tests.rkt b/collects/tests/srfi/1/run-tests.rktl similarity index 100% rename from collects/tests/srfi/1/run-tests.rkt rename to collects/tests/srfi/1/run-tests.rktl diff --git a/collects/tests/srfi/40/run-tests.rkt b/collects/tests/srfi/40/run-tests.rktl similarity index 100% rename from collects/tests/srfi/40/run-tests.rkt rename to collects/tests/srfi/40/run-tests.rktl diff --git a/collects/tests/srfi/43/run-tests.rkt b/collects/tests/srfi/43/run-tests.rktl similarity index 100% rename from collects/tests/srfi/43/run-tests.rkt rename to collects/tests/srfi/43/run-tests.rktl diff --git a/collects/tests/srfi/load-srfis.rkt b/collects/tests/srfi/load-srfis.rktl similarity index 100% rename from collects/tests/srfi/load-srfis.rkt rename to collects/tests/srfi/load-srfis.rktl diff --git a/collects/tests/srpersist/srptests.rkt b/collects/tests/srpersist/srptests.rktl similarity index 100% rename from collects/tests/srpersist/srptests.rkt rename to collects/tests/srpersist/srptests.rktl diff --git a/collects/tests/stepper/already-defined.rkt b/collects/tests/stepper/already-defined.rktl similarity index 100% rename from collects/tests/stepper/already-defined.rkt rename to collects/tests/stepper/already-defined.rktl diff --git a/collects/tests/stepper/bad-letrec-test.rkt b/collects/tests/stepper/bad-letrec-test.rktl similarity index 100% rename from collects/tests/stepper/bad-letrec-test.rkt rename to collects/tests/stepper/bad-letrec-test.rktl diff --git a/collects/tests/stepper/constructor-redexes.rkt b/collects/tests/stepper/constructor-redexes.rktl similarity index 100% rename from collects/tests/stepper/constructor-redexes.rkt rename to collects/tests/stepper/constructor-redexes.rktl diff --git a/collects/tests/stepper/global-prim-reduction.rkt b/collects/tests/stepper/global-prim-reduction.rktl similarity index 100% rename from collects/tests/stepper/global-prim-reduction.rkt rename to collects/tests/stepper/global-prim-reduction.rktl diff --git a/collects/tests/stepper/image-test.rkt b/collects/tests/stepper/image-test.rktl similarity index 100% rename from collects/tests/stepper/image-test.rkt rename to collects/tests/stepper/image-test.rktl diff --git a/collects/tests/stepper/intermediate-y.rkt b/collects/tests/stepper/intermediate-y.rktl similarity index 100% rename from collects/tests/stepper/intermediate-y.rkt rename to collects/tests/stepper/intermediate-y.rktl diff --git a/collects/tests/stepper/lambda-test.rkt b/collects/tests/stepper/lambda-test.rktl similarity index 100% rename from collects/tests/stepper/lambda-test.rkt rename to collects/tests/stepper/lambda-test.rktl diff --git a/collects/tests/stepper/let-test.rkt b/collects/tests/stepper/let-test.rktl similarity index 100% rename from collects/tests/stepper/let-test.rkt rename to collects/tests/stepper/let-test.rktl diff --git a/collects/tests/stepper/letrec-test.rkt b/collects/tests/stepper/letrec-test.rktl similarity index 100% rename from collects/tests/stepper/letrec-test.rkt rename to collects/tests/stepper/letrec-test.rktl diff --git a/collects/tests/stepper/local-define-struct.rkt b/collects/tests/stepper/local-define-struct.rktl similarity index 100% rename from collects/tests/stepper/local-define-struct.rkt rename to collects/tests/stepper/local-define-struct.rktl diff --git a/collects/tests/stepper/local-test-2.rkt b/collects/tests/stepper/local-test-2.rktl similarity index 100% rename from collects/tests/stepper/local-test-2.rkt rename to collects/tests/stepper/local-test-2.rktl diff --git a/collects/tests/stepper/local-test.rkt b/collects/tests/stepper/local-test.rktl similarity index 100% rename from collects/tests/stepper/local-test.rkt rename to collects/tests/stepper/local-test.rktl diff --git a/collects/tests/stepper/long-error-message.rkt b/collects/tests/stepper/long-error-message.rktl similarity index 100% rename from collects/tests/stepper/long-error-message.rkt rename to collects/tests/stepper/long-error-message.rktl diff --git a/collects/tests/stepper/multiply-defined.rkt b/collects/tests/stepper/multiply-defined.rktl similarity index 100% rename from collects/tests/stepper/multiply-defined.rkt rename to collects/tests/stepper/multiply-defined.rktl diff --git a/collects/tests/stepper/name-chaining.rkt b/collects/tests/stepper/name-chaining.rktl similarity index 100% rename from collects/tests/stepper/name-chaining.rkt rename to collects/tests/stepper/name-chaining.rktl diff --git a/collects/tests/stepper/no-else-clause.rkt b/collects/tests/stepper/no-else-clause.rktl similarity index 100% rename from collects/tests/stepper/no-else-clause.rkt rename to collects/tests/stepper/no-else-clause.rktl diff --git a/collects/tests/stepper/non-procedure.rkt b/collects/tests/stepper/non-procedure.rktl similarity index 100% rename from collects/tests/stepper/non-procedure.rkt rename to collects/tests/stepper/non-procedure.rktl diff --git a/collects/tests/stepper/print-convert-test.rkt b/collects/tests/stepper/print-convert-test.rktl similarity index 100% rename from collects/tests/stepper/print-convert-test.rkt rename to collects/tests/stepper/print-convert-test.rktl diff --git a/collects/tests/stepper/printing-reducing-test.rkt b/collects/tests/stepper/printing-reducing-test.rktl similarity index 100% rename from collects/tests/stepper/printing-reducing-test.rkt rename to collects/tests/stepper/printing-reducing-test.rktl diff --git a/collects/tests/stepper/procedure-display.rkt b/collects/tests/stepper/procedure-display.rktl similarity index 100% rename from collects/tests/stepper/procedure-display.rkt rename to collects/tests/stepper/procedure-display.rktl diff --git a/collects/tests/stepper/right-redex.rkt b/collects/tests/stepper/right-redex.rktl similarity index 100% rename from collects/tests/stepper/right-redex.rkt rename to collects/tests/stepper/right-redex.rktl diff --git a/collects/tests/stepper/structures.rkt b/collects/tests/stepper/structures.rktl similarity index 100% rename from collects/tests/stepper/structures.rkt rename to collects/tests/stepper/structures.rktl diff --git a/collects/tests/stepper/symbol-identifier.rkt b/collects/tests/stepper/symbol-identifier.rktl similarity index 100% rename from collects/tests/stepper/symbol-identifier.rkt rename to collects/tests/stepper/symbol-identifier.rktl diff --git a/collects/tests/stepper/symbols.rkt b/collects/tests/stepper/symbols.rktl similarity index 100% rename from collects/tests/stepper/symbols.rkt rename to collects/tests/stepper/symbols.rktl diff --git a/collects/tests/stepper/syntax-error-ordering.rkt b/collects/tests/stepper/syntax-error-ordering.rktl similarity index 100% rename from collects/tests/stepper/syntax-error-ordering.rkt rename to collects/tests/stepper/syntax-error-ordering.rktl diff --git a/collects/tests/stepper/test-or.rkt b/collects/tests/stepper/test-or.rktl similarity index 100% rename from collects/tests/stepper/test-or.rkt rename to collects/tests/stepper/test-or.rktl diff --git a/collects/tests/stepper/two-tests.rkt b/collects/tests/stepper/two-tests.rktl similarity index 100% rename from collects/tests/stepper/two-tests.rkt rename to collects/tests/stepper/two-tests.rktl diff --git a/collects/tests/stepper/unannotated.rkt b/collects/tests/stepper/unannotated.rktl similarity index 100% rename from collects/tests/stepper/unannotated.rkt rename to collects/tests/stepper/unannotated.rktl diff --git a/collects/tests/stepper/undefined.rkt b/collects/tests/stepper/undefined.rktl similarity index 100% rename from collects/tests/stepper/undefined.rkt rename to collects/tests/stepper/undefined.rktl diff --git a/collects/tests/stepper/world-test.rkt b/collects/tests/stepper/world-test.rktl similarity index 100% rename from collects/tests/stepper/world-test.rkt rename to collects/tests/stepper/world-test.rktl diff --git a/collects/tests/stepper/write-display.rkt b/collects/tests/stepper/write-display.rktl similarity index 100% rename from collects/tests/stepper/write-display.rkt rename to collects/tests/stepper/write-display.rktl diff --git a/collects/tests/syntax-color/paren-tree.rkt b/collects/tests/syntax-color/paren-tree.rktl similarity index 99% rename from collects/tests/syntax-color/paren-tree.rkt rename to collects/tests/syntax-color/paren-tree.rktl index 4d7c62d1f9..145147ad22 100644 --- a/collects/tests/syntax-color/paren-tree.rkt +++ b/collects/tests/syntax-color/paren-tree.rktl @@ -1,4 +1,4 @@ -(load-relative "../racket/loadtest.rkt") +(load-relative "../racket/loadtest.rktl") (require mzlib/class syntax-color/paren-tree) diff --git a/collects/tests/syntax-color/token-tree.rkt b/collects/tests/syntax-color/token-tree.rktl similarity index 99% rename from collects/tests/syntax-color/token-tree.rkt rename to collects/tests/syntax-color/token-tree.rktl index 76ba9059b2..1ce75c4a4c 100644 --- a/collects/tests/syntax-color/token-tree.rkt +++ b/collects/tests/syntax-color/token-tree.rktl @@ -1,4 +1,4 @@ -(load-relative "../racket/loadtest.rkt") +(load-relative "../racket/loadtest.rktl") (require mzlib/class syntax-color/token-tree) diff --git a/collects/tests/units/multi-mod-sigs.rkt b/collects/tests/units/multi-mod-sigs.rktl similarity index 100% rename from collects/tests/units/multi-mod-sigs.rkt rename to collects/tests/units/multi-mod-sigs.rktl diff --git a/collects/tests/units/test-cert.rkt b/collects/tests/units/test-cert.rktl similarity index 100% rename from collects/tests/units/test-cert.rkt rename to collects/tests/units/test-cert.rktl diff --git a/collects/tests/units/test-exptime.rkt b/collects/tests/units/test-exptime.rktl similarity index 100% rename from collects/tests/units/test-exptime.rkt rename to collects/tests/units/test-exptime.rktl diff --git a/collects/tests/units/test-runtime.rkt b/collects/tests/units/test-runtime.rktl similarity index 100% rename from collects/tests/units/test-runtime.rkt rename to collects/tests/units/test-runtime.rktl diff --git a/collects/tests/units/test-unit-contracts.rkt b/collects/tests/units/test-unit-contracts.rktl similarity index 100% rename from collects/tests/units/test-unit-contracts.rkt rename to collects/tests/units/test-unit-contracts.rktl diff --git a/collects/tests/units/test-unit.rkt b/collects/tests/units/test-unit.rktl similarity index 100% rename from collects/tests/units/test-unit.rkt rename to collects/tests/units/test-unit.rktl diff --git a/collects/tests/unstable/srcloc.rkt b/collects/tests/unstable/srcloc.rktl similarity index 99% rename from collects/tests/unstable/srcloc.rkt rename to collects/tests/unstable/srcloc.rktl index ac7deae461..5970d9443b 100644 --- a/collects/tests/unstable/srcloc.rkt +++ b/collects/tests/unstable/srcloc.rktl @@ -1,5 +1,5 @@ -(load-relative "../racket/loadtest.rkt") +(load-relative "../racket/loadtest.rktl") (Section 'srcloc) (require unstable/srcloc) diff --git a/src/gracket/grmain.cxx b/src/gracket/grmain.cxx index 0fa365d301..c6b63fab20 100644 --- a/src/gracket/grmain.cxx +++ b/src/gracket/grmain.cxx @@ -101,12 +101,12 @@ extern "C" Scheme_Object *scheme_initialize(Scheme_Env *env); # define INIT_FILENAME "~/.gracketrc" #else # ifdef wx_msw -# define INIT_FILENAME "%%HOMEDIRVE%%\\%%HOMEPATH%%\\gracketrc.rkts" +# define INIT_FILENAME "%%HOMEDIRVE%%\\%%HOMEPATH%%\\gracketrc.rktl" # else # ifdef OS_X # define INIT_FILENAME "~/.gracketrc" # else -# define INIT_FILENAME "PREFERENCES:gracketrc.rkts" +# define INIT_FILENAME "PREFERENCES:gracketrc.rktl" # endif # endif #endif diff --git a/src/gracket/wxs/wxscheme.cxx b/src/gracket/wxs/wxscheme.cxx index 9cfea49053..28caa0c778 100644 --- a/src/gracket/wxs/wxscheme.cxx +++ b/src/gracket/wxs/wxscheme.cxx @@ -2541,7 +2541,7 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv) if (which == id_init_file) return append_path(home, - scheme_make_path("\\gracketrc" + ends_in_slash)); + scheme_make_path("\\gracketrc.rktl" + ends_in_slash)); if (which == id_setup_file) return append_path(home, scheme_make_path("\\gracket.ini" + ends_in_slash)); @@ -2778,9 +2778,9 @@ int wxGetPreference(const char *name, char *res, long len) if (!ends_in_slash) s[l++] = '/'; # ifdef wx_mac - memcpy(s + l, "org.racket-lang.prefs", 24); + memcpy(s + l, "org.racket-lang.prefs.rktd", 24); # else - memcpy(s + l, "racket-prefs", 13); + memcpy(s + l, "racket-prefs.rktd", 13); # endif #endif @@ -2796,7 +2796,7 @@ int wxGetPreference(const char *name, char *res, long len) memcpy(s, home, l); if (!ends_in_slash) s[l++] = '\\'; - memcpy(s + l, "racket-prefs", 13); + memcpy(s + l, "racket-prefs.rktd", 13); #endif /*************** Mac OS Classic ***************/ @@ -2825,7 +2825,7 @@ int wxGetPreference(const char *name, char *res, long len) memcpy(s, home, l); if (!ends_in_slash) s[l++] = ':'; - memcpy(s + l, "org.racket-lang.prefs", 24); + memcpy(s + l, "org.racket-lang.prefs.rktd", 24); } #endif diff --git a/src/racket/Makefile.in b/src/racket/Makefile.in index f1e1c54b13..402657a339 100644 --- a/src/racket/Makefile.in +++ b/src/racket/Makefile.in @@ -220,8 +220,8 @@ $(collectsdir)/scheme/private/kernstruct.rkt: $(srcdir)/src/makeexn ./racket@CGC@ -um $(srcdir)/src/makeexn kernstruct $(collectsdir)/scheme/private/kernstruct.rkt -$(srcdir)/src/$(CSTARTUPDEST): $(srcdir)/src/startup.rkt $(srcdir)/src/schvers.h $(srcdir)/src/schminc.h - ./racket@CGC@ -cqu $(srcdir)/src/sstoinc.rkt $(CSTARTUPEXTRA) $(srcdir)/src/$(CSTARTUPDEST) < $(srcdir)/src/startup.rkt +$(srcdir)/src/$(CSTARTUPDEST): $(srcdir)/src/startup.rktl $(srcdir)/src/schvers.h $(srcdir)/src/schminc.h + ./racket@CGC@ -cqu $(srcdir)/src/sstoinc.rkt $(CSTARTUPEXTRA) $(srcdir)/src/$(CSTARTUPDEST) < $(srcdir)/src/startup.rktl $(srcdir)/src/mzmark.c: $(srcdir)/src/mzmarksrc.c $(srcdir)/src/mkmark.rkt racket -cu $(srcdir)/src/mkmark.rkt < $(srcdir)/src/mzmarksrc.c > $(srcdir)/src/mzmark.c diff --git a/src/racket/main.c b/src/racket/main.c index 3a3213b032..b4c53dd41c 100644 --- a/src/racket/main.c +++ b/src/racket/main.c @@ -139,9 +139,9 @@ extern Scheme_Object *scheme_initialize(Scheme_Env *env); # define INIT_FILENAME "~/.racketrc" #else # ifdef DOS_FILE_SYSTEM -# define INIT_FILENAME "%%HOMEDRIVE%%\\%%HOMEPATH%%\\racketrc.rkts" +# define INIT_FILENAME "%%HOMEDRIVE%%\\%%HOMEPATH%%\\racketrc.rktl" # else -# define INIT_FILENAME "PREFERENCES:racketrc.rkts" +# define INIT_FILENAME "PREFERENCES:racketrc.rktl" # endif #endif #define GET_INIT_FILENAME get_init_filename diff --git a/src/racket/src/Makefile.in b/src/racket/src/Makefile.in index 85600b2d75..d487b56d69 100644 --- a/src/racket/src/Makefile.in +++ b/src/racket/src/Makefile.in @@ -111,8 +111,8 @@ mzheaders: $(srcdir)/schemex.h $(srcdir)/schemexm.h $(srcdir)/schemex.inc $(srcd mzobjects: $(OBJS) -$(srcdir)/startup.inc : $(srcdir)/startup.rkt $(srcdir)/sstoinc - if [ "$(PERL)" = '' ] ; then touch $(srcdir)/startup.inc ; else $(PERL) $(srcdir)/sstoinc < $(srcdir)/startup.rkt > $(srcdir)/startup.inc ; fi +$(srcdir)/startup.inc : $(srcdir)/startup.rktl $(srcdir)/sstoinc + if [ "$(PERL)" = '' ] ; then touch $(srcdir)/startup.inc ; else $(PERL) $(srcdir)/sstoinc < $(srcdir)/startup.rktl > $(srcdir)/startup.inc ; fi $(srcdir)/schemex.h : $(srcdir)/schemef.h $(srcdir)/makex if [ "$(PERL)" = '' ] ; then touch $(srcdir)/schemex.h ; else $(PERL) $(srcdir)/makex < $(srcdir)/schemef.h > $(srcdir)/schemex.h ; fi diff --git a/src/racket/src/file.c b/src/racket/src/file.c index 17ad1760ec..8aff4f85d9 100644 --- a/src/racket/src/file.c +++ b/src/racket/src/file.c @@ -5982,7 +5982,7 @@ find_system_path(int argc, Scheme_Object **argv) } if (which == id_init_file) - return append_path(home, scheme_make_path("\\racketrc.rkts" + ends_in_slash)); + return append_path(home, scheme_make_path("\\racketrc.rktl" + ends_in_slash)); if (which == id_pref_file) return append_path(home, scheme_make_path("\\racket-prefs.rktd" + ends_in_slash)); return home; diff --git a/src/racket/src/startup.rkt b/src/racket/src/startup.rktl similarity index 100% rename from src/racket/src/startup.rkt rename to src/racket/src/startup.rktl