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

Indentation fix.

Browse Source
This commit is contained in:
Eli Barzilay 2013-07-05 19:23:05 -04:00
parent 942d014e0c
commit 14bb91d427
1 changed files with 22 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -579,34 +579,30 @@
--top--
(getenv "PEAR") => #f
;; tests for specials
;; 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))"))))))
;; 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 (λ (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 (λ (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)