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

fix lazy stepper test - lazy-cond1

Browse Source 
(cherry picked from commit 7eedae8f69)
This commit is contained in:
Stephen Chang 2011-07-18 12:34:14 -04:00 committed by Eli Barzilay
parent 4db334ee2a
commit 631fed5386
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/tests/stepper/test-cases.rkt
View File

@ -1948,6 +1948,25 @@
(else ,clause2))}
-> ,def {(cond (else ,clause2))}
-> ,def {,clause2} -> ,def {10})
)
(let* ([make-test1 (λ (x) `(> 0 ,x))]
[make-test2 (λ (x) `(< 0 ,x))]
[test1 (make-test1 0)]
[test2 (make-test2 0)]
[test12 (make-test1 2)]
[test22 (make-test2 2)]
[make-clause1 (λ (x) `(* ,x 10))]
[make-clause2 (λ (x) `(+ ,x 10))]
[clause1 (make-clause1 0)]
[clause2 (make-clause2 0)]
[clause12 (make-clause1 2)]
[clause22 (make-clause2 2)]
[cnd (λ (x) `(cond (,(make-test1 x) ,err)
(,(make-test2 x) ,(make-clause1 x))
(else ,(make-clause2 x))))]
[make-def (λ (x) `(define (f x) ,(cnd x)))]
[def (make-def 'x)]
[lam (λ (x) `(lambda (x) ,(cnd x)))])
(t 'lazy-cond2 m:lazy
,def (f 2)
:: ,def ({f} 2) -> ,def ({,(lam 'x)} 2)