#!perl
use strict;
use warnings;
use Test::More;
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]);
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;