Commit | Line | Data |
---|---|---|
f8ec8cd2 | 1 | #!./perl -w |
70a6dec2 | 2 | |
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | push @INC, '../lib'; | |
6 | } | |
7 | ||
6d39ae0a | 8 | use Test::More tests => 6; |
70a6dec2 | 9 | |
f8ec8cd2 | 10 | BEGIN { use_ok( 'less' ) } |
6d39ae0a JJ |
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'); |