1 files changed, 41 insertions, 0 deletions
diff --git a/ext/Module-Pluggable/t/02works_taint.t b/ext/Module-Pluggable/t/02works_taint.t
new file mode 100644
index 0000000000..0e1baa3dc0
--- /dev/null
+++ b/ext/Module-Pluggable/t/02works_taint.t
@@ -0,0 +1,41 @@
+#!perl -wT
+
+# NOTE: Module::Pluggable is going into core
+# and CORE tests can't modify @INC under taint 
+# so this is a work around to make sure it
+# still works under taint checking.
+
+use strict;
+use Test::More tests => 5;
+
+my $foo;
+ok($foo = MyTest->new());
+
+my @plugins;
+my @expected = qw(Module::Pluggable::Object);
+ok(@plugins = sort $foo->plugins);
+
+
+ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object");
+
+@plugins = ();
+
+ok(@plugins = sort MyTest->plugins);
+
+ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object under class method");
+
+
+
+package MyTest;
+
+use strict;
+use Module::Pluggable search_path => 'Module::Pluggable';
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+