2 files changed, 13 insertions, 0 deletions
diff --git a/tests/011/txr-case.expected b/tests/011/txr-case.expected
index 4af473e5..e7582780 100644
--- a/tests/011/txr-case.expected
+++ b/tests/011/txr-case.expected
@@ -2,3 +2,4 @@ no match for 09-10-20
 match: year 2009, month 10, day 20
 no match for July-15-2014
 no match for foo
+match: year 2021, month 06, day 16, foo:bar
diff --git a/tests/011/txr-case.txr b/tests/011/txr-case.txr
index 1aa80478..aa234ed8 100644
--- a/tests/011/txr-case.txr
+++ b/tests/011/txr-case.txr
@@ -7,3 +7,15 @@
      (txr-if date (y m d) date
        (put-line `match: year @y, month @m, day @d`)
        (put-line `no match for @date`))))
+@(define notmatch ())
+blah
+@(end)
+@(define stuff (year month day a b))
+@(date year month day)
+@a @b
+@(end)
+@(do (txr-case (make-strlist-input-stream '("2021-06-16"
+                                            "foo bar"))
+
+       (notmatch () (put-line "notexpected"))
+       (stuff (y m d a b) (put-line `match: year @y, month @m, day @d, @a:@b`))))