diff options
Diffstat (limited to 'external/perl/Text-Template-1.56/t/inline-comment.t')
-rwxr-xr-x | external/perl/Text-Template-1.56/t/inline-comment.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/external/perl/Text-Template-1.56/t/inline-comment.t b/external/perl/Text-Template-1.56/t/inline-comment.t new file mode 100755 index 0000000000..bf7a227a51 --- /dev/null +++ b/external/perl/Text-Template-1.56/t/inline-comment.t @@ -0,0 +1,17 @@ +#!perl +# +# Test for comments within an inline code block + +use strict; +use warnings; +use Test::More tests => 2; + +use_ok 'Text::Template' or exit 1; + +my $tmpl = Text::Template->new( + TYPE => 'STRING', + SOURCE => "Hello {\$name#comment}"); + +my $vars = { name => 'Bob' }; + +is $tmpl->fill_in(HASH => $vars), 'Hello Bob'; |