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

changed test so it's less sensitive to what happens with raco make

Browse Source
This commit is contained in:
Danny Yoo 2011-05-10 14:52:20 -04:00
parent 5b816c4a64
commit 7871f7d621
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test-parse-bytecode-5.1.1.rkt
View File

@ -266,7 +266,7 @@
(begin (reset-lam-label-counter!/unit-testing)
(check-true (match (run-my-parse #'(case-lambda))
[(struct Top ((struct Prefix (list))
(struct CaseLam ((? LamPositionalName?) (list) 'lamEntry1))))
(struct CaseLam (_ (list) 'lamEntry1))))
#t])))
(begin (reset-lam-label-counter!/unit-testing)
@ -274,20 +274,20 @@
[(x y) x]
[(x y) y]))
[(struct Top ((struct Prefix (list))
(struct CaseLam ((? LamPositionalName?)
(list (struct Lam ((? LamPositionalName?)
(struct CaseLam (_
(list (struct Lam (_
1
#f
(struct LocalRef ('0 '#f))
'()
'lamEntry2))
(struct Lam ((? LamPositionalName?)
(struct Lam (_
2
#f
(struct LocalRef ('0 '#f))
'()
'lamEntry3))
(struct Lam ((? LamPositionalName?)
(struct Lam (_
2
#f
(struct LocalRef ('1 '#f))