1#!./perl -w 2 3BEGIN { 4 chdir 't' if -d 't'; 5 push @INC, '../lib'; 6} 7 8use Test::More tests => 12; 9 10BEGIN { 11 use_ok( 'less' ); 12 13 package less::again; 14 sub stash_name {'less'} 15 @ISA = 'less'; 16 $INC{'less/again.pm'} = 1; 17} 18 19is_deeply([less->of], [], 'more please'); 20use less; 21is_deeply([less->of], ['please'],'less please'); 22is_deeply([less::again->of], ['please'], 'less::again please'); 23no less; 24is_deeply([less->of],[],'more please'); 25is_deeply([less::again->of], [], 'no less::again please'); 26use less::again; 27is_deeply([less->of], ['please'],'less please'); 28is_deeply([less::again->of], ['please'], 'less::again please'); 29no less::again; 30is_deeply([less->of],[],'more please'); 31is_deeply([less::again->of], [], 'no less::again please'); 32 33use less 'random acts'; 34is_deeply([sort less->of],[sort qw(random acts)],'less random acts'); 35 36is(scalar less->of('random'),1,'less random'); 37