Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

More test cases

Browse source
This commit is contained in:
Justin Ethier 2018-01-24 18:14:52 -05:00
parent eb8b332d2e
commit 3222f36912
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
match-test.scm
View file

@ -14,6 +14,15 @@
)
(test-group
"predicates"
;; Fails on cyclone, works on chibi
;(test "test" (match "test" ((? string? s) s) (else #f)))
(test #(fromlist 1 2) (match '(1 2) ((a b) (vector 'fromlist a b))))
(test #f (match 42 (X #f)))
)
#;(test-group
"official tests"
(test 2 (match (list 1 2 3) ((a b c) b)) )