diff options
Diffstat (limited to 'tests/011/txr-case.txr')
| -rw-r--r-- | tests/011/txr-case.txr | 12 |
1 files changed, 12 insertions, 0 deletions
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`)))) |