added test for token_re option

diff --git a/t/options.t b/t/options.t
index 320fe15..9500206 100644 (file)
--- a/t/options.t
+++ b/t/options.t
@@ -175,6 +175,24 @@ foo
 [%END FOO%]
 EXPECTED
        },
+       {
+               name    => 'token_id',
+               opts    => {
+                       token_id => qw/[-\w]+?/,
+               },
+               data    => {
+                       'foo-bar'       => 'FOO is 3',
+                       'BAR-BAZ'       => 'bar is baz',
+               },
+               template => <<TEMPLATE,
+[%foo-bar%]
+[%BAR-BAZ%]
+TEMPLATE
+               expected => <<EXPECTED,
+FOO is 3
+bar is baz
+EXPECTED
+       },
 ] ;
 
 template_tester( $tests ) ;