vcs.maemo.org Git - pkg-perl/blob - deb-src/libmodule-pluggable-perl/libmodule-pluggable-perl-3.8/t/17devel_inner_package.t

   1 #!perl -w
   2 use Test::More tests => 3;
   3
   4 use Devel::InnerPackage qw(list_packages);
   5 use FindBin;
   6 use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
   7
   8 my @packages;
   9
  10 use_ok("TA::C::A::I");
  11 ok(@packages = list_packages("TA::C::A::I"));
  12
  13 is_deeply([sort @packages], [qw(TA::C::A::I::A TA::C::A::I::A::B)]);
  14
  15