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