#!perl
use strict;
use warnings;
use Test::More;
use Text::Xslate;
my %vpath = (
simple_if => <<'T',
%% IF hoge
%% ELSE;
%% IF fuga
%% ELSE
%% END
%% END
hi
T
declare_if => <<'T',
[% IF hoge %]
[% ELSE %]
[% IF fuga %]
[% ELSE %]
[% END %]
[% SET hoge = fuga %]
[% END %]
hi
T
problem_case => <<'T',
%% IF hogex
%% ELSE;
%% IF fugax
%% ELSE
%% END
%% SET hogex = fugax;
%% END
hi
T
);
my $xslate = Text::Xslate->new(
syntax => 'TTerse',
path => \%vpath,
cache => 0,
);
ok $xslate->render('simple_if'), 'simple_if';
ok $xslate->render('declare_if'), 'declare_if';
ok $xslate->render('problem_case'), 'problem_case';
done_testing;