#!perl
# issues/45: nested macro modifiers
use strict;
use warnings;
use utf8;
use Test::More;

use Text::Xslate;

my %vpath = (
    X => <<'T',
: block sugyan -> {
This is X.
: }
T

    Y => <<'T',
: cascade "X"
: around sugyan -> {
This is Y.
: }
T
    Z => <<'T',
: cascade "Y"
: around sugyan -> {
This is Z.
: }
T
);

my $xslate = Text::Xslate->new(
    path => [\%vpath]
);
is eval { $xslate->render('Z') }, "This is Z.\n";
is $@, '';
done_testing;