syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Repair bogus test. I should have caught this earlier!

This commit is contained in:
Tony Garnock-Jones 2018-05-06 10:55:21 +01:00
parent be1bc6c220
commit 61cd0613ca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
syndicate/test/pattern-test.rkt
View File

@ -61,8 +61,8 @@
(syntax-rules ()
[(_ zot) (foo 234 zot)]))
(check-analyse-pattern '(foo 123 'zot) (foo123 'zot))
(check-analyse-pattern '(foo 234 'zot) (foo234 'zot))
(check-analyse-pattern `(compound ,_ (atom 123) (atom 'zot)) (foo123 'zot))
(check-analyse-pattern `(compound ,_ (atom 234) (atom 'zot)) (foo234 'zot))
(check-equal? (foo 234 'zot) (foo234 'zot))
)