#!perl -w
use strict;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new();
eval {
local $SIG{ALRM} = sub { die "TIMEOUT" };
alarm(1);
$tx->render_string(q{: while true {} });
};
like $@, qr/TIMEOUT/;
done_testing;
#!perl -w
use strict;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new();
eval {
local $SIG{ALRM} = sub { die "TIMEOUT" };
alarm(1);
$tx->render_string(q{: while true {} });
};
like $@, qr/TIMEOUT/;
done_testing;