1#!./perl -w 2 3BEGIN { 4 chdir 't' if -d 't'; 5 push @INC, '../lib'; 6} 7 8use Test::More tests => 6; 9 10BEGIN { use_ok( 'less' ) } 11 12is_deeply([less->of], [], 'more please'); 13use less; 14is_deeply([less->of], ['please'],'less please'); 15no less; 16is_deeply([less->of],[],'more please'); 17 18use less 'random acts'; 19is_deeply([sort less->of],[sort qw(random acts)],'less random acts'); 20 21is(scalar less->of('random'),1,'less random'); 22