3 # NOTE: Module::Pluggable is going into core
4 # and CORE tests can't modify @INC under taint
5 # so this is a work around to make sure it
6 # still works under taint checking.
9 use Test::More tests => 5;
12 ok($foo = MyTest->new());
15 my @expected = qw(Module::Pluggable::Object);
16 ok(@plugins = sort $foo->plugins);
19 ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object");
23 ok(@plugins = sort MyTest->plugins);
25 ok(grep {/Module::Pluggable::Object/} @plugins, "Contains Module::Pluggable::Object under class method");
32 use Module::Pluggable search_path => 'Module::Pluggable';
37 return bless {}, $class;