summaryrefslogtreecommitdiff
path: root/lib/Pod/Simple/t/search05.t
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Pod/Simple/t/search05.t')
-rw-r--r--lib/Pod/Simple/t/search05.t40
1 files changed, 0 insertions, 40 deletions
diff --git a/lib/Pod/Simple/t/search05.t b/lib/Pod/Simple/t/search05.t
deleted file mode 100644
index a55ca72ce1..0000000000
--- a/lib/Pod/Simple/t/search05.t
+++ /dev/null
@@ -1,40 +0,0 @@
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't';
- @INC = '../lib';
- }
-}
-
-use strict;
-use Pod::Simple::Search;
-use Test;
-BEGIN { plan tests => 15 }
-
-print "# Some basic sanity tests...\n";
-
-my $x = Pod::Simple::Search->new;
-die "Couldn't make an object!?" unless ok defined $x;
-print "# New object: $x\n";
-print "# Version: ", $x->VERSION, "\n";
-ok defined $x->can('callback');
-ok defined $x->can('dir_prefix');
-ok defined $x->can('inc');
-ok defined $x->can('laborious');
-ok defined $x->can('limit_glob');
-ok defined $x->can('limit_re');
-ok defined $x->can('shadows');
-ok defined $x->can('verbose');
-ok defined $x->can('survey');
-ok defined $x->can('_state_as_string');
-ok defined $x->can('contains_pod');
-ok defined $x->can('find');
-ok defined $x->can('simplify_name');
-
-print "# Testing state dumping...\n";
-print $x->_state_as_string;
-$x->inc("I\nLike Pie!\t!!");
-print $x->_state_as_string;
-
-print "# bye\n";
-ok 1;
-