#!perl -w

use strict;
use Test::More;

use Text::Xslate;
use t::lib::Util;

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

my @set = (
    [<<'T', { lang => 'Xslate' }, <<'X', 'with a component'],
: cascade myapp::base with myapp::cfoo
T
HEAD
    FOO
    Hello, Xslate world!
FOOT
X

    [<<'T', { lang => 'Xslate' }, <<'X', 'with another component'],
: cascade myapp::base with myapp::cbar
T
HEAD
    Hello, Xslate world!
    BAR
FOOT
X

    [<<'T', { lang => 'Xslate' }, <<'X', 'with components'],
: cascade myapp::base with myapp::cfoo, myapp::cbar
T
HEAD
    FOO
    Hello, Xslate world!
    BAR
FOOT
X

    [<<'T', { lang => 'Xslate' }, <<'X', 'overlay'],
: cascade with myapp::cfoo, myapp::cbar
----
: block hello -> {
    This is template cascading!
: }
----
T
----
    FOO
    This is template cascading!
    BAR
----
X

    [<<'T', { lang => 'Xslate' }, <<'X', 'cascade-with as a library'],
: cascade with common
: foo()
T
    This is <foo>!
X

    [<<'T', { lang => 'Xslate' }, <<'X'],
: cascade with common
: macro bar -> {
    This is bar!
: }
: bar()
T
    before <bar>!
    This is bar!
X

    [<<'T', { lang => 'Xslate' }, <<'X'],
: macro bar -> {
    This is bar!
: }
: bar()
: cascade with common
T
    before <bar>!
    This is bar!
X

    [<<'T', { lang => 'Xslate' }, <<'X'],
: baz()
: cascade with common
T
    This is <baz>!
X

    [<<'T', { lang => 'Xslate' }, <<'X'],
: baz() | raw
: cascade with common
T
    This is <baz>!
X

);

foreach my $d(@set) {
    my($in, $vars, $out, $msg) = @$d;
    is $tx->render_string($in, $vars), $out, $msg or diag $in;
}


done_testing;