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

change to testing args (broken, actually).

Browse Source 
svn: r4423
This commit is contained in:
John Clements 2006-09-23 11:10:08 +00:00
parent 66298f0727
commit 885b2fa8d3
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/tests/stepper/through-tests.ss
View File

@ -66,8 +66,8 @@ exec mred -u "$0" "$@"
(parameterize ([error-escape-handler (lambda () (escape (void)))]) (parameterize ([error-escape-handler (lambda () (escape (void)))])
(go program-expander receive-result render-settings (go program-expander receive-result render-settings
track-inferred-names? track-inferred-names?
;; language level name: ;; language level:
"bogus language level" 'testing
;; run-in-drscheme thunk: ;; run-in-drscheme thunk:
(lambda (thunk) (thunk))))) (lambda (thunk) (thunk)))))
(error-display-handler current-error-display-handler))) (error-display-handler current-error-display-handler)))
@ -1485,8 +1485,11 @@ exec mred -u "$0" "$@"
;; LAZY.SS: ;; LAZY.SS:
(t lazy1 test-lazy-sequence (t lazy1 test-lazy-sequence
(+ 3 4) (! (+ 3 4))
:: {(+ 3 4)} -> {7}) :: 3 -> 3
:: 3 -> 3
:: 3 -> 3
:: {(! (+ 3 4))} -> {7})
(t lazy2 test-lazy-sequence (t lazy2 test-lazy-sequence
(+ (+ 3 4) 5) (+ (+ 3 4) 5)
@ -1510,8 +1513,8 @@ exec mred -u "$0" "$@"
"(define (f2c x) x) (convert-gui f2c)" `() ; placeholder "(define (f2c x) x) (convert-gui f2c)" `() ; placeholder
)) ))
;; (run-tests '(lazy)) (run-tests '(lam-let))
(run-all-tests) ;;(run-all-tests)
) )
;; Local variables: ;; Local variables: