1 files changed, 10 insertions, 0 deletions
diff --git a/match-test.csc b/match-test.csc
index 73daa58..bbecce4 100644
--- a/match-test.csc
+++ b/match-test.csc
@@ -66,3 +66,13 @@
       ((! 'a) 1)
       ((! 'b) 2)
       (_ 3))))
+
+
+(test match-when
+  (assert-equal
+    3
+    (match 'b
+      ((! 'a) 1)
+      ((! 'b) (when #f) 2)
+      ((! 'b) 3)
+      (_ 4))))