#!perl -w
use strict;
use Test::More;
use Text::Xslate;
use t::lib::Util;
use File::Path qw(rmtree);
rmtree(cache_dir);
END{ rmtree(cache_dir) }
my $tx = Text::Xslate->new(
cache => 1,
cache_dir => cache_dir,
path => path,
function => { f => sub{ "[@_]" } },
);
is $tx->render('func.tx', { lang => 'Xslate' }),
"Hello, [Xslate] world!\n";
$tx = Text::Xslate->new(
cache => 1,
cache_dir => cache_dir,
path => path,
function => { f => sub{ "{@_}" } },
);
is $tx->render('func.tx', { lang => 'Xslate' }),
"Hello, {Xslate} world!\n";
for(1 .. 2) {
my $tx = Text::Xslate->new({ cache => 0, path => [path] });
isa_ok $tx, 'Text::Xslate', 'with HASH ref args';
is $tx->render_string('Hello, <: $lang :> world!', { lang => 'Xslate' }),
'Hello, Xslate world!';
is $tx->render('hello.tx', { lang => 'Xslate' }),
"Hello, Xslate world!\n";
}
rmtree(cache_dir);
for(1 .. 2) {
# must not depend on global variables
local $/ = '';
local $\ = "\n";
my $tx = Text::Xslate->new(
cache => 1,
path => [path],
cache_dir => cache_dir,
);
isa_ok $tx, 'Text::Xslate', 'with list args';
is $tx->render_string('Hello, <: $lang :> world!', { lang => 'Xslate' }),
'Hello, Xslate world!';
is $tx->render('hello.tx', { lang => 'Xslate' }),
"Hello, Xslate world!\n";
}
done_testing;