1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!perl
use strict;
use warnings;
use Test::More;
use File::Temp qw(tempdir);
use Text::Xslate;
my %vpath = (
ok0 => <<'T',
Hello, world!
T
ok1=> <<'T',
Hello, <: $xslate :> world!
T
ng0=> <<'T',
Hello, <: $xslate world!
T
ng1=> <<'T',
Hello, <: $xslate ??? :> world!
T
);
my $tx = Text::Xslate->new(
path => [\%vpath],
cache_dir => tempdir(CLEANUP => 1),
);
foreach my $name (qw(ok0 ok1)) {
eval { $tx->validate($name) };
ok !$@, $name;
note $@ if $@;
}
foreach my $name (qw(ng0 ng1)) {
eval { $tx->validate($name) };
ok $@, $name;
note $@ if $@;
}
done_testing;
|
