#!perl -w
use strict;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new(
syntax => 'TTerse',
);
is $tx->render_string(<<'T'), "1\n5\n";
[% __LINE__ ~ "\n";
# 2
# 3
# 4
__LINE__
%]
T
is $tx->render_string(<<'T'), "1\n5\n";
%%__LINE__ ~ "\n"
%% # 2
%% # 3
%% # 4
%% __LINE__ ~ "\n"
T
done_testing;