#!perl -w
use strict;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new(
cache => 0,
syntax => 'TTerse',
path => {
wrap_begin => '[% WRAPPER "base" %]',
wrap_end => '[% END %]',
header => 'Header' . "\n",
base => '[% INCLUDE "header" %]Hello, [% content %] world!' . "\n",
content => 'Xslate',
},
header => ['wrap_begin'],
footer => ['wrap_end'],
);
is $tx->render_string(q{Xslate}), <<'X';
Header
Hello, Xslate world!
X
is $tx->render('content'), <<'X';
Header
Hello, Xslate world!
X
done_testing;