1use strict;
2use warnings;
3use Pod::Simple::Search;
4use Test::More tests => 15;
5
6print "# Some basic sanity tests...\n";
7
8my $x = Pod::Simple::Search->new;
9die "Couldn't make an object!?" unless ok defined $x;
10print "# New object: $x\n";
11print "# Version: ", $x->VERSION, "\n";
12ok defined $x->can('callback');
13ok defined $x->can('dir_prefix');
14ok defined $x->can('inc');
15ok defined $x->can('laborious');
16ok defined $x->can('limit_glob');
17ok defined $x->can('limit_re');
18ok defined $x->can('recurse');
19ok defined $x->can('shadows');
20ok defined $x->can('verbose');
21ok defined $x->can('survey');
22ok defined $x->can('_state_as_string');
23ok defined $x->can('contains_pod');
24ok defined $x->can('find');
25ok defined $x->can('simplify_name');
26
27print "# Testing state dumping...\n";
28print $x->_state_as_string;
29$x->inc("I\nLike  Pie!\t!!");
30print $x->_state_as_string;
31
32