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

tiny test for letrec

Browse Source
This commit is contained in:
John Clements 2014-05-18 00:19:22 -07:00
parent 89b96ef9f3
commit 6f2fc3ecde
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/htdp-pkgs/htdp-test/tests/stepper/test-cases.rkt
View File

@ -681,6 +681,13 @@
;;
;;;;;;;;;;;;;
(t1 'temp-letrec
m:intermediate "(letrec ([a 13]) 9)"
(let* ([defs2 `((define a_0 13))])
`((before-after ((hilite (letrec ([a 13]) 9)))
((hilite (define a_0 13)) (hilite 9)))
(finished-stepping))))
(t1 'letrec1
m:intermediate "(define a 3) (define c 19) (letrec ([a 13] [b a]) (+ b a c))"
(let* ([defs1 `((define a 3) (define c 19))]

2
pkgs/htdp-pkgs/htdp-test/tests/stepper/through-tests.rkt
View File

@ -104,7 +104,7 @@
#;(run-tests '(check-expect forward-ref check-within check-within-bad
check-error check-error-bad))
#;(run-tests '(teachpack-universe))
#;(run-test 'check-expect)
#;(run-test 'temp-letrec)
(run-all-tests)
#;(string->expanded-syntax-list m:mz "(if true 3 4)"