add a test for taint mode, it passes, though (#84)

t/010_internals/039_taint_issue84.t

@@ -0,0 +1,41 @@
+#!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;