1use Test::More tests => 9;
2
3use Module::Find;
4
5# First, with @INC only
6
7@l = findsubmod ModuleFindTest;
8ok($#l == -1);
9
10@l = findallmod ModuleFindTest;
11ok($#l == -1);
12
13# Then, including our directory
14
15setmoduledirs('./test');
16
17@l = findsubmod ModuleFindTest;
18ok($#l == 0);
19ok($l[0] eq 'ModuleFindTest::SubMod');
20
21@l = findallmod ModuleFindTest;
22ok($#l == 1);
23ok($l[0] eq 'ModuleFindTest::SubMod');
24ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
25
26# Third, reset to @INC only
27
28setmoduledirs();
29
30@l = findsubmod ModuleFindTest;
31ok($#l == -1);
32
33@l = findallmod ModuleFindTest;
34ok($#l == -1);
35
36# Then, including our directory
37
38
39