import PathTools-3.62PathTools-3-62

1 files changed, 17 insertions, 0 deletions

diff --git a/cpan/dist/PathTools/t/Spec-taint.t b/cpan/dist/PathTools/t/Spec-taint.t
new file mode 100644
index 00000000..ef4f1ee3
--- /dev/null
+++ b/cpan/dist/PathTools/t/Spec-taint.t
@@ -0,0 +1,17 @@
+#!./perl -Tw
+# Testing File::Spec under taint mode.
+
+use strict;
+
+chdir 't' unless $ENV{PERL_CORE};
+
+use File::Spec;
+use lib File::Spec->catdir('t', 'lib');
+use Test::More tests => 2;
+
+use Scalar::Util qw/tainted/;
+
+my $ret;
+eval { $ret = File::Spec->tmpdir };
+is( $@, '',		"tmpdir should not explode under taint mode" );
+ok( !tainted($ret),	"its return value should not be tainted" );