#!perl -w
use strict;
use if exists $INC{'Text/Xslate.pm'},
    'Test::More', skip_all => 'Text::Xslate has been loaded';
use Test::More;
BEGIN{ $ENV{XSLATE} ||= ''; $ENV{XSLATE} .= ':save_src' }

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

my $tx = Text::Xslate->new(
    path  => [{ foo => 'Hello, <: "" :>world!' }, path],
    cache => 0,
);

note 'from file';
is $tx->render('hello.tx', { lang => 'Xslate' } ), "Hello, Xslate world!\n";
is $tx->{source}{File::Spec->catfile(path, 'hello.tx')},
    "Hello, <:= \$lang :> world!\n"
    or diag(explain($tx->{source}));

note 'from hash';
is $tx->render('foo'), 'Hello, world!';
is $tx->{source}{foo}, 'Hello, <: "" :>world!'
    or diag(explain($tx->{source}));

note 'from <string>';
is $tx->render_string('<: 1 + 41 :>'), 42;
is $tx->{source}{'<string>'}, '<: 1 + 41 :>';

done_testing;