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

fix test that used lang/htdp-intermediate

Browse Source 
svn: r8180
This commit is contained in:
Matthew Flatt 2008-01-02 03:50:47 +00:00
parent d4482c90ca
commit 6e6e5945f9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/stx.ss
View File

@ -454,26 +454,26 @@
bcons)) ()
[(mod m mz (#%mod-beg req (app call-with-values (lambda () cons) print) void))
(let ([s (syntax cons)])
(test 'bcons syntax-e s)
(test 'beginner:cons syntax-e s) ; 'was 'bcons
s)]))])
(let-values ([(real real-base) (module-path-index-split (car b))]
[(nominal nominal-base) (module-path-index-split (caddr b))])
(test '"teachprims.ss" values real)
(test 'beginner-cons cadr b)
(test '(lib "lang/htdp-intermediate.ss") values nominal)
(test 'lang/private/beginner-funs values nominal) ; was '(lib "lang/htdp-intermediate.ss")
(test 'cons cadddr b)))
(let ([b (identifier-binding (syntax-case (expand #'(module m (lib "lang/htdp-intermediate.ss")
cons)) ()
[(mod m beg (#%mod-beg cons))
(let ([s (syntax cons)])
(test 'cons syntax-e s)
(test 'beginner:cons syntax-e s) ; was 'cons
s)]))])
(let-values ([(real real-base) (module-path-index-split (car b))]
[(nominal nominal-base) (module-path-index-split (caddr b))])
(test '"teachprims.ss" values real)
(test 'beginner-cons cadr b)
(test '(lib "lang/htdp-intermediate.ss") values nominal)
(test 'lang/private/beginner-funs values nominal) ; was '(lib "lang/htdp-intermediate.ss")
(test 'cons cadddr b)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;