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