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

fixing test case

Browse Source
This commit is contained in:
Danny Yoo 2011-06-09 18:32:25 -04:00
parent 55a95d3c54
commit 328d4278fc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test-parse-bytecode.rkt
View File

@ -343,6 +343,7 @@
(? ModuleLocator?) (? ModuleLocator?)
(? Prefix?) ;; the prefix will include a reference to print-values. (? Prefix?) ;; the prefix will include a reference to print-values.
_ ;; requires _ ;; requires
_ ;; provides
(struct Splice ((list (struct ApplyValues (struct Splice ((list (struct ApplyValues
((struct ToplevelRef ('0 '0)) (struct Constant ('42))))))))))) ((struct ToplevelRef ('0 '0)) (struct Constant ('42)))))))))))
#t])) #t]))
@ -357,6 +358,7 @@
(? ModuleLocator?) (? ModuleLocator?)
(? Prefix?) ;; the prefix will include a reference to print-values. (? Prefix?) ;; the prefix will include a reference to print-values.
_ ;; requires _ ;; requires
_ ;; provides
(struct Splice ((list (struct DefValues (struct Splice ((list (struct DefValues
((list (struct ToplevelRef ('0 '0))) ((list (struct ToplevelRef ('0 '0)))
(struct Constant ("x"))))))))))) (struct Constant ("x")))))))))))
@ -420,6 +422,7 @@
(struct Prefix (list)) (struct Prefix (list))
(list (struct ModuleLocator ('collects/racket/base.rkt (list (struct ModuleLocator ('collects/racket/base.rkt
_))) _)))
_ ;; provides
(struct Splice ('())))))) (struct Splice ('()))))))
#t] #t]
[else [else
@ -437,6 +440,7 @@
(struct ModuleLocator ('self _ #;(build-path "root/foo/bar.rkt"))) (struct ModuleLocator ('self _ #;(build-path "root/foo/bar.rkt")))
(struct Prefix ((list 'f))) (struct Prefix ((list 'f)))
(list (struct ModuleLocator ('#%kernel '#%kernel))) (list (struct ModuleLocator ('#%kernel '#%kernel)))
_
(struct Splice ((list (struct DefValues ((list (struct ToplevelRef (0 0))) (struct Splice ((list (struct DefValues ((list (struct ToplevelRef (0 0)))
(struct Constant ('ok))))))))))) (struct Constant ('ok)))))))))))
'#t])) '#t]))