X-Git-Url: https://vcs.maemo.org/git/?a=blobdiff_plain;f=deb-src%2Flibpod-simple-perl%2Flibpod-simple-perl-3.07%2Ft%2Fsearch05.t;fp=deb-src%2Flibpod-simple-perl%2Flibpod-simple-perl-3.07%2Ft%2Fsearch05.t;h=a55ca72ce1a2320e8c33f571508c0c4b9423cc57;hb=d615bbbf525d490a6803e161c1063da7ee8fb9bc;hp=0000000000000000000000000000000000000000;hpb=5638bd62c66215ffc4830630a7bfcfe5cdf331d7;p=pkg-perl

diff --git a/deb-src/libpod-simple-perl/libpod-simple-perl-3.07/t/search05.t b/deb-src/libpod-simple-perl/libpod-simple-perl-3.07/t/search05.t
new file mode 100644
index 0000000..a55ca72
--- /dev/null
+++ b/deb-src/libpod-simple-perl/libpod-simple-perl-3.07/t/search05.t
@@ -0,0 +1,40 @@
+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;
+