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

Don't run special sandbox tests when the relevant libs are not available.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-07-02 16:02:00 -04:00
parent 37c87ec2e0
commit badd40e5f5
1 changed files with 28 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
pkgs/racket-pkgs/racket-test/tests/racket/sandbox.rktl
View File

@ -464,23 +464,6 @@
;; languages and requires
--top--
(make-evaluator! '(special r5rs) "(define x (eq? 'x 'X))")
--eval--
x => #t
--top--
(make-base-evaluator! "(define l null)")
--eval--
(cond [null? l 0]) => 0
(last-pair l) =err> "last-pair: undefined"
--top--
(make-evaluator! '(special beginner)
(make-prog "(define l null)" "(define x 3.5)"))
--eval--
(cond [null? l 0]) =err> "no open parenthesis"
--top--
(eq? (ev "6") (ev "(sub1 (* 2 3.5))"))
(eq? (ev "6") (ev "(sub1 (* 2 x))"))
--top--
(make-base-evaluator/reqs! '(racket/list))
--eval--
(last-pair '(1 2 3)) => '(3)
@ -596,7 +579,34 @@
--top--
(getenv "PEAR") => #f
))
;; tests for specials
--top--
;; these are conditional so that we can run
;; the tests even when htdp or r5rs is not available
(when (collection-file-path "lang.rkt" "r5rs" #:fail (lambda (s) #f))
(t
--top--
(make-evaluator! '(special r5rs) "(define x (eq? 'x 'X))")
--eval--
x => #t
--top--
(make-base-evaluator! "(define l null)")
--eval--
(cond [null? l 0]) => 0
(last-pair l) =err> "last-pair: undefined"))
(when (collection-file-path "htdp-beginner.rkt" "lang" #:fail (lambda (s) #f))
(t
--top--
(make-evaluator! '(special beginner)
(make-prog "(define l null)" "(define x 3.5)"))
--eval--
(cond [null? l 0]) =err> "no open parenthesis"
--top--
(eq? (ev "6") (ev "(sub1 (* 2 3.5))"))
(eq? (ev "6") (ev "(sub1 (* 2 x))"))))))
(parameterize ([current-module-declare-name (make-resolved-module-path 'junk)])
(define (avoid-module-declare-name)