lib/less.t

   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');