diff options
Diffstat (limited to 'ext/Module-Pluggable/t/17devel_inner_package.t')
| -rw-r--r-- | ext/Module-Pluggable/t/17devel_inner_package.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ext/Module-Pluggable/t/17devel_inner_package.t b/ext/Module-Pluggable/t/17devel_inner_package.t new file mode 100644 index 0000000000..30f32560d8 --- /dev/null +++ b/ext/Module-Pluggable/t/17devel_inner_package.t @@ -0,0 +1,15 @@ +#!perl -w +use Test::More tests => 3; + +use Devel::InnerPackage qw(list_packages); +use FindBin; +use lib (($FindBin::Bin."/lib")=~/^(.*)$/); + +my @packages; + +use_ok("TA::C::A::I"); +ok(@packages = list_packages("TA::C::A::I")); + +is_deeply([sort @packages], [qw(TA::C::A::I::A TA::C::A::I::A::B)]); + + |