#!perl -wT

use strict;
use Test::More;

use Text::Xslate;
use File::Path;
use Scalar::Util qw(tainted);
use Cwd qw(getcwd);

my $cwd;
my $cache_dir;
tainted($cwd) and die "cwd is tainted";

BEGIN{
    $cwd = getcwd();
    if ($cwd =~ /(.+)/) {
        $cwd = $1;
    }
    $cache_dir = $cwd . '/xxx_test_taint_issue84';
}
END{ rmtree($cache_dir) }

tainted($cache_dir) and die "cache_dir is tainted";


for (1 .. 2) {
    my $tx = Text::Xslate->new(
        path => [$cwd . '/t/template'],
        cache_dir => $cache_dir,
        cache     => 1,
    );

    for(1 .. 2) {
        is $tx->render('hello.tx', { lang => 'Xslate'}),
            "Hello, Xslate world!\n";
        utime time()+rand(100), time()+rand(100), "$cwd/t/template/hello.tx";
    }
}

done_testing;