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