[perl5.git] / t / Module_Pluggable / 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 RGS	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