diff options
Diffstat (limited to 'tests/011/txr-case.txr')
| -rw-r--r-- | tests/011/txr-case.txr | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/011/txr-case.txr b/tests/011/txr-case.txr index aa234ed8..d6d8d788 100644 --- a/tests/011/txr-case.txr +++ b/tests/011/txr-case.txr @@ -1,4 +1,5 @@ @(load `@{stdlib}txr-case`) +@(include "../common") @(define date (year month day)) @{year /\d\d\d\d/}-@{month /\d\d/}-@{day /\d\d/} @(end) @@ -18,4 +19,8 @@ blah "foo bar")) (notmatch () (put-line "notexpected")) - (stuff (y m d a b) (put-line `match: year @y, month @m, day @d, @a:@b`)))) + (stuff (y m d a b) (put-line `match: year @y, month @m, day @d, @a:@b`))) + (mtest + (match-fboundp 'notmatch) t + (match-fboundp 'stuff) t + (match-fboundp 'xyzzy) nil)) |