1 files changed, 19 insertions, 0 deletions
diff --git a/t/tain.t b/t/tain.t
new file mode 100644
index 0000000..f38cacf
--- /dev/null
+++ b/t/tain.t
@@ -0,0 +1,19 @@
+#!perl -Tw
+
+use strict;
+use warnings;
+
+# taint mode testing as seen in WWW::Mechanize
+
+use Test::More tests => 1;
+my @warns;
+BEGIN {
+    $SIG{__WARN__} = sub { push @warns, @_ };
+}
+BEGIN {
+    delete @ENV{qw( PATH IFS CDPATH ENV BASH_ENV )};  # Placates taint-unsafe Cwd.pm in 5.6.1
+}
+
+require Encode::Locale;
+
+is "@warns", "", 'no warnings';