From 3222f3691267ae7569b6c2d3dff394b1dfedc321 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 24 Jan 2018 18:14:52 -0500 Subject: [PATCH] More test cases --- match-test.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/match-test.scm b/match-test.scm index f55cee35..340e3f31 100644 --- a/match-test.scm +++ b/match-test.scm @@ -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)) )