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 ecbbf6b..73d00c8 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/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/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 b83e7ad..5e25b83 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/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 a748a6e..9789df3 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/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 1292002..4b462e9 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/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 d8ec3a8..185ae18 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/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 b79b23a..23eb8b0 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/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 58385e9..534ec11 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/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 56d5b03..2fcaa5f 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/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 45f3573..2a5c20d 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/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 a827649..fc07a82 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/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 b961afe..b5b4d38 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/ttt/uinc4.rktl b/collects/tests/racket/ttt/uinc4.rktl new file mode 100644 index 0000000..bd0a771 --- /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/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.rktl b/collects/tests/racket/uinc3.rktl new file mode 100644 index 0000000..bc16584 --- /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/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 0e70240..3264672 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 7dff08d..f47f015 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: