[p5sagit/p5-mst-13.2.git] / cpan / Module-Pluggable / t / 18skipped_package.t

#!perl -w

use Test::More tests => 1;
use FindBin;
use lib (($FindBin::Bin."/lib")=~/^(.*)$/);

use Devel::InnerPackage qw(list_packages);
use No::Middle;

my @p = list_packages("No::Middle");
is_deeply([ sort @p ], [ qw(No::Middle::Package::A No::Middle::Package::B) ]);
Commit	Line	Data
3f7169a2	1	#!perl -w
	2
	3	use Test::More tests => 1;
	4	use FindBin;
183ac38d	5	use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
3f7169a2	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) ]);