vcs.maemo.org Git - dh-make-perl/blob - dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/search05.t

   1 BEGIN {
   2     if($ENV{PERL_CORE}) {
   3         chdir 't';
   4         @INC = '../lib';
   5     }
   6 }
   7
   8 use strict;
   9 use Pod::Simple::Search;
  10 use Test;
  11 BEGIN { plan tests => 15 }
  12
  13 print "# Some basic sanity tests...\n";
  14
  15 my $x = Pod::Simple::Search->new;
  16 die "Couldn't make an object!?" unless ok defined $x;
  17 print "# New object: $x\n";
  18 print "# Version: ", $x->VERSION, "\n";
  19 ok defined $x->can('callback');
  20 ok defined $x->can('dir_prefix');
  21 ok defined $x->can('inc');
  22 ok defined $x->can('laborious');
  23 ok defined $x->can('limit_glob');
  24 ok defined $x->can('limit_re');
  25 ok defined $x->can('shadows');
  26 ok defined $x->can('verbose');
  27 ok defined $x->can('survey');
  28 ok defined $x->can('_state_as_string');
  29 ok defined $x->can('contains_pod');
  30 ok defined $x->can('find');
  31 ok defined $x->can('simplify_name');
  32
  33 print "# Testing state dumping...\n";
  34 print $x->_state_as_string;
  35 $x->inc("I\nLike  Pie!\t!!");
  36 print $x->_state_as_string;
  37
  38 print "# bye\n";
  39 ok 1;
  40