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