# This code caused SEGV in Perl 5.12 by Xslate 1.5
use strict;
use warnings;
use Test::More;
use Text::Xslate;
my $engine = Text::Xslate->new(
'syntax' => 'TTerse',
);
$engine->render_string( <<'...') ;
[% kogaidan = kogaidan -%]
[% tomyhero = dankogai %]
[% MACRO satoshi BLOCK %]
[% tomyhero # caused SEGV %]
[% END %]
[% satoshi() %]
...
pass;
done_testing;