#!perl
#https://github.com/gfx/p5-Text-Xslate/issues/issue/28
use strict;
use warnings;
use utf8;
use Text::Xslate;
use if exists $INC{'Text/Xslate/PP.pm'}, 'Test::More', skip_all => 'NYI in PP';
use Test::More;
my @warnings;
my $xslate = Text::Xslate->new(
syntax => 'TTerse',
warn_handler => sub { push @warnings, @_ },
verbose => 2,
);
$xslate->render_string('[% IF others.size() > 0 %][% END %]', {});
note @warnings;
like "@warnings", qr/\b nil \b/xms;
like "@warnings", qr/\b lhs \b/xms;
unlike "@warnings", qr/Use of uninitialized value/;
done_testing;