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