#!perl
# recursive call of render()
# related to issue #65 but there are no problems.
#
use strict;
use warnings;
use Test::More;

use Text::Xslate;

my %vpath = (
    foo => <<'T',
: for [42] -> $i {
    : render('bar');
: }
T

    bar => <<'T',
Hello, world!
T
);

my $tx;
$tx = Text::Xslate->new(
    cache => 0,
    path  => [\%vpath],

    function => {
        render => sub {
            return $tx->render(@_);
        },
    },
);

is $tx->render('foo'), "Hello, world!\n";

done_testing;