t/Module_Pluggable/18skipped_package.t

   1 #!perl -w
   2
   3 use Test::More tests => 1;
   4 use FindBin;
   5 use lib "$FindBin::Bin/lib";
   6
   7 use Devel::InnerPackage qw(list_packages);
   8 use No::Middle;
   9
  10 my @p = list_packages("No::Middle");
  11 is_deeply([ sort @p ], [ qw(No::Middle::Package::A No::Middle::Package::B) ]);