* Rename files to follow `foo-tests.ss' for files that are sets of tests.
* Group syntax tests into their own file. svn: r11494
This commit is contained in:
parent
f0bcd15202
commit
711401bd55
|
@ -1,11 +1,10 @@
|
|||
|
||||
(load-relative "loadtest.ss")
|
||||
(load-relative "mz.ss")
|
||||
(load-relative "scheme.ss")
|
||||
(load-relative "mzlib.ss")
|
||||
(load-relative "mz-tests.ss")
|
||||
(load-relative "scheme-tests.ss")
|
||||
(load-relative "mzlib-tests.ss")
|
||||
(load-relative "syntax-tests.ss")
|
||||
(load-in-sandbox "version.ss")
|
||||
(load-in-sandbox "moddep.ss")
|
||||
(load-in-sandbox "boundmap-test.ss")
|
||||
(load-in-sandbox "net.ss")
|
||||
(load-in-sandbox "foreign-test.ss")
|
||||
(load-in-sandbox "uni-norm.ss")
|
||||
|
|
|
@ -125,7 +125,7 @@
|
|||
'expand-load
|
||||
#f
|
||||
(lambda ()
|
||||
(namespace-set-variable-value! 'expand-load "mz.ss")))
|
||||
(namespace-set-variable-value! 'expand-load "mz-tests.ss")))
|
||||
|
||||
(let ([orig (current-eval)])
|
||||
(dynamic-wind
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
(lambda (exn)
|
||||
(namespace-set-variable-value!
|
||||
'flat-load
|
||||
"mz.ss"))])
|
||||
"mz-tests.ss"))])
|
||||
(namespace-variable-value 'flat-load))
|
||||
|
||||
(with-handlers ([exn:fail:contract:variable?
|
||||
|
|
|
@ -1,3 +1,3 @@
|
|||
|
||||
(define quiet-load "mz.ss")
|
||||
(define quiet-load "mz-tests.ss")
|
||||
(load-relative "quiet.ss")
|
||||
|
|
7
collects/tests/mzscheme/syntax-tests.ss
Normal file
7
collects/tests/mzscheme/syntax-tests.ss
Normal file
|
@ -0,0 +1,7 @@
|
|||
(load-relative "loadtest.ss")
|
||||
|
||||
(load-in-sandbox "moddep.ss")
|
||||
(load-in-sandbox "boundmap-test.ss")
|
||||
(load-in-sandbox "cm.ss")
|
||||
|
||||
(report-errs)
|
Loading…
Reference in New Issue
Block a user