cpan/Pod-Simple/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 => 16 }
  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('recurse');
  26 ok defined $x->can('shadows');
  27 ok defined $x->can('verbose');
  28 ok defined $x->can('survey');
  29 ok defined $x->can('_state_as_string');
  30 ok defined $x->can('contains_pod');
  31 ok defined $x->can('find');
  32 ok defined $x->can('simplify_name');
  33
  34 print "# Testing state dumping...\n";
  35 print $x->_state_as_string;
  36 $x->inc("I\nLike  Pie!\t!!");
  37 print $x->_state_as_string;
  38
  39 print "# bye\n";
  40 ok 1;
  41