#!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)]);