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

put mzlib test suites into separate sandboxes

Browse Source 
svn: r8058

original commit: 36c56848768a7d531f3f7467c200544f33639fec
This commit is contained in:
Matthew Flatt 2007-12-19 04:12:02 +00:00
parent 2d7b53140b
commit 2bb52ebd20
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/contract-mzlib-test.ss
View File

@ -18,7 +18,8 @@ of the contract library does not change over time.
(namespace-require '(for-syntax mzscheme)) (namespace-require '(for-syntax mzscheme))
(namespace-require '(for-template mzscheme)) (namespace-require '(for-template mzscheme))
(namespace-require 'mzlib/contract) (namespace-require 'mzlib/contract)
(namespace-require 'mzlib/class)) (namespace-require 'mzlib/class)
(namespace-require '(only mzscheme force delay)))
n)) n))
(define (contract-eval x) (define (contract-eval x)

2
collects/tests/mzscheme/macrolib.ss
View File

@ -66,7 +66,7 @@
(syntax-test #'(let ([define-values 10]) (local ((define-values (x) 4)) 10))) (syntax-test #'(let ([define-values 10]) (local ((define-values (x) 4)) 10)))
(syntax-test #'(let ([define-struct 10]) (local ((define-struct x ())) 10))) (syntax-test #'(let ([define-struct 10]) (local ((define-struct x ())) 10)))
(define else #f) ;; `evcase' needs unbound `else' !!!! <------------------ WARNING (define else #t) ;; `evcase' needs unbound `else' !!!! <------------------ WARNING
(for-each syntax-test (for-each syntax-test
(list #'(evcase) (list #'(evcase)