|
Last change
on this file since 107406 was 104078, checked in by vboxsync, 11 months ago |
|
openssl-3.1.5: Applied and adjusted our OpenSSL changes to 3.1.4. bugref:10638
|
|
File size:
322 bytes
|
| Line | |
|---|
| 1 | #!perl
|
|---|
| 2 | #
|
|---|
| 3 | # Test for comments within an inline code block
|
|---|
| 4 |
|
|---|
| 5 | use strict;
|
|---|
| 6 | use warnings;
|
|---|
| 7 | use Test::More tests => 2;
|
|---|
| 8 |
|
|---|
| 9 | use_ok 'Text::Template' or exit 1;
|
|---|
| 10 |
|
|---|
| 11 | my $tmpl = Text::Template->new(
|
|---|
| 12 | TYPE => 'STRING',
|
|---|
| 13 | SOURCE => "Hello {\$name#comment}");
|
|---|
| 14 |
|
|---|
| 15 | my $vars = { name => 'Bob' };
|
|---|
| 16 |
|
|---|
| 17 | is $tmpl->fill_in(HASH => $vars), 'Hello Bob';
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
