#!perl
# contributed by Yappo https://gist.github.com/4336310
use strict;
use warnings;
use Test::More;

use Text::Xslate;

{
    my $tx = Text::Xslate->new({
        syntax => 'TTerse'
    });
    is eval {
        $tx->render_string(<<'TMPL', { yappo => 'hoge' });
[% SET yappo = "" -%]
[% IF true -%]
[%   yappo = 'osawa' -%]
[%   yappo -%]
[% ELSIF 0 -%]
[% END -%]
TMPL
    }, "osawa";
    is $@, '';
}

{
    my $tx = Text::Xslate->new({
        syntax => 'TTerse'
    });
    is eval {
        $tx->render_string(<<'TMPL', { yappo => 'hoge' });
[% SET yappo = 'fuga' -%]
[% IF true -%]
[%   yappo = 'seiidaishogun' -%]
[% ELSIF false -%]
[%   yappo = 'osawa' -%]
[% END -%]
[% yappo -%]
TMPL
    }, "seiidaishogun";
    is $@, '';
}

{
    my $tx = Text::Xslate->new({
        syntax => 'TTerse'
    });
    is eval {
        $tx->render_string(<<'TMPL', { yappo => 'hoge' });
[% IF true -%]
[%   yappo = 'seiidaishogun' -%]
[% ELSIF false -%]
[%   yappo = 'osawa' -%]
[% END -%]
[% yappo -%]
TMPL
    }, "hoge";
    is $@, '';
}

done_testing;