diff options
author | Craig A. Berry <craigberry@mac.com> | 2007-04-22 14:34:28 +0000 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2007-04-22 14:34:28 +0000 |
commit | a2afd30e9deb0557e418d7a2be7b6d880dd5ee21 (patch) | |
tree | ba94057b463b3bc8b22d093fe0ca1f03f15f680b /t/Module_Pluggable/03diffname.t | |
parent | 65e807b815b1236dd131a40c532f9d657948ba20 (diff) | |
download | perl-a2afd30e9deb0557e418d7a2be7b6d880dd5ee21.tar.gz |
Move Module::Pluggable tests up under main test directory.
p4raw-id: //depot/perl@31019
Diffstat (limited to 't/Module_Pluggable/03diffname.t')
-rw-r--r-- | t/Module_Pluggable/03diffname.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/t/Module_Pluggable/03diffname.t b/t/Module_Pluggable/03diffname.t new file mode 100644 index 0000000000..b4a881b6e8 --- /dev/null +++ b/t/Module_Pluggable/03diffname.t @@ -0,0 +1,30 @@ +#!perl -w + +use strict; +use FindBin; +use lib "$FindBin::Bin/lib"; +use Test::More tests => 3; + +my $foo; +ok($foo = MyTest->new()); + +my @plugins; +my @expected = qw(MyTest::Plugin::Bar MyTest::Plugin::Foo MyTest::Plugin::Quux::Foo); +ok(@plugins = sort $foo->foo); +is_deeply(\@plugins, \@expected); + + + +package MyTest; + +use strict; +use Module::Pluggable ( sub_name => 'foo'); + + +sub new { + my $class = shift; + return bless {}, $class; + +} +1; + |