1use Test::More tests => 5;
2
3use Module::Find;
4
5use lib qw(./test);
6
7my @l;
8
9@l = findsubmod ModuleFindTest;
10
11ok($#l == 0);
12ok($l[0] eq 'ModuleFindTest::SubMod');
13
14@l = findallmod ModuleFindTest;
15
16ok($#l == 1);
17ok($l[0] eq 'ModuleFindTest::SubMod');
18ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
19
20
21
22
23