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

use .rktl suffix for files meant to be 'load'ed

Browse Source 
original commit: e504acb72622f4668a50770476fc7545ef9450b0
This commit is contained in:
Matthew Flatt 2010-05-01 09:57:07 -06:00
parent b40470205b
commit 212171f54f
18 changed files with 33 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/awk.rkt → collects/tests/racket/awk.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'awk) (Section 'awk)

0
collects/tests/racket/binc.rkt → collects/tests/racket/binc.rktl
View File

2
collects/tests/racket/compat.rkt → collects/tests/racket/compat.rktl
View File

@ -1,6 +1,6 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'compat) (Section 'compat)

4
collects/tests/racket/contract-mzlib-test.rkt → collects/tests/racket/contract-mzlib-test.rktl
View File

@ -1,12 +1,12 @@
#| #|
This file started out as a copy of contract-test.rkt. This file started out as a copy of contract-test.rktl.
Its purpose is to try to ensure that the mzlib version Its purpose is to try to ensure that the mzlib version
of the contract library does not change over time. of the contract library does not change over time.
|# |#
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'mzlib/contract) (Section 'mzlib/contract)
(parameterize ([error-print-width 200]) (parameterize ([error-print-width 200])

2
collects/tests/racket/etc.rkt → collects/tests/racket/etc.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'etc) (Section 'etc)

2
collects/tests/racket/kw.rkt → collects/tests/racket/kw.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'kw) (Section 'kw)

2
collects/tests/racket/macrolib.rkt → collects/tests/racket/macrolib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'macrolib) (Section 'macrolib)

4
collects/tests/racket/pconvert.rkt → collects/tests/racket/pconvert.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'pconvert) (Section 'pconvert)
@ -367,7 +367,7 @@
(test 'empty print-convert '()) (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)]) (let ([in (open-input-file fn)])
(test `(open-input-file ,fn) print-convert in) (test `(open-input-file ,fn) print-convert in)
(close-input-port in)) (close-input-port in))

2
collects/tests/racket/restart.rkt → collects/tests/racket/restart.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(require mzlib/restart) (require mzlib/restart)

2
collects/tests/racket/string-mzlib.rkt → collects/tests/racket/string-mzlib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'mzlib-string) (Section 'mzlib-string)

2
collects/tests/racket/structlib.rkt → collects/tests/racket/structlib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'structlib) (Section 'structlib)

2
collects/tests/racket/threadlib.rkt → collects/tests/racket/threadlib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'threadlib) (Section 'threadlib)

5
collects/tests/racket/ttt/uinc4.rktl Normal file
View File

@ -0,0 +1,5 @@
(define also-unused 'ok)
(include (build-path up "uinc.rktl"))

0
collects/tests/racket/uinc.rkt → collects/tests/racket/uinc.rktl
View File

0
collects/tests/racket/uinc2.rkt → collects/tests/racket/uinc2.rktl
View File

7
collects/tests/racket/uinc3.rktl Normal file
View File

@ -0,0 +1,7 @@
(define unused 'hello)
(include (build-path "ttt" "uinc4.rktl"))

2
collects/tests/racket/unit.rkt → collects/tests/racket/unit.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
(Section 'unit) (Section 'unit)
(require mzlib/unit200) (require mzlib/unit200)

14
collects/tests/racket/unitsig.rkt → collects/tests/racket/unitsig.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt") (load-relative "loadtest.rktl")
;; Hide keywords from scheme/unit.rkt: ;; Hide keywords from scheme/unit.rkt:
(define import #f) (define import #f)
@ -178,7 +178,7 @@
() ()
(import) (import)
(include "uinc.rkt"))) (include "uinc.rktl")))
(test 9 'include (invoke-unit/sig i1@)) (test 9 'include (invoke-unit/sig i1@))
@ -189,7 +189,7 @@
(import) (import)
(+ 3 4) (+ 3 4)
(include "uinc3.rkt"))) (include "uinc3.rktl")))
(test 9 'include (invoke-unit/sig i1.5@)) (test 9 'include (invoke-unit/sig i1.5@))
@ -198,9 +198,9 @@
() ()
(import) (import)
(include "uinc.rkt") (include "uinc.rktl")
(include "uinc2.rkt") (include "uinc2.rktl")
(include "uinc.rkt") (include "uinc.rktl")
(+ x 2))) (+ x 2)))
(test 10 'include (invoke-unit/sig i2@)) (test 10 'include (invoke-unit/sig i2@))
@ -212,7 +212,7 @@
(unit/sig () (unit/sig ()
(import) (import)
(define x 5) (define x 5)
(include "binc.rkt") (include "binc.rktl")
y))) y)))
; Simple: ; Simple: