#!perl
# reported by @kazeuro
# http://twitter.com/#!/kazeburo/status/55456855496994816
use strict;
use warnings;
use utf8;
use Text::Xslate;
use Test::More;
eval {
local $SIG{__WARN__} = sub { die @_ };
my $templates = {
'index' => <<'EOF'
<foo>ほげ<: $bar :></foo>
EOF
};
my $tx = Text::Xslate->new(
path => [ $templates ],
);
$tx->render('index', { bar => 'ふが' } );
};
my $w = $@;
is $w, '' or diag $w;
done_testing;