#!perl -w
use strict;
use warnings;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new(syntax => 'TTerse');
is $tx->render_string(<<'T'), <<'X';
%% for i in [42]
{[% i %]}
%% else
empty
%% end
T
{42}
X
is $tx->render_string(<<'T'), <<'X';
%% for i in []
{[% i %]}
%% else
empty
%% end
T
empty
X
is $tx->render_string(<<'T', { y => 'y' }), <<'X';
%% FOR i IN []
{[% i %]}
%% ELSE
empt[% $y %]
%% END
T
empty
X
done_testing;