[p5sagit/p5-mst-13.2.git] / cpan / Module-Pluggable / t / 17devel_inner_package.t

#!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)]);
Commit	Line	Data
3f7169a2	1	#!perl -w
	2	use Test::More tests => 3;
	3
	4	use Devel::InnerPackage qw(list_packages);
	5	use FindBin;
183ac38d	6	use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
3f7169a2	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