#!perl -w
use strict;
use Test::More;
use Text::Xslate;

my $tx = Text::Xslate->new(
    syntax => 'TTerse',
);

is eval {
    $tx->render_string(<<'T');
[% block = "Hello" -%]
[% block %]
T
}, undef;
isnt $@, '';
like $@, qr/not a lexical variable/;

done_testing;