Add test for Pod::ParseUtils

Message-ID: <Pine.LNX.4.33.0111201429060.22000-100000@lapaki>

p4raw-id: //depot/perl@13148

diff --git a/lib/Pod/t/utils.t b/lib/Pod/t/utils.t
new file mode 100644 (file)
index 0000000..202ffd9
--- /dev/null
+++ b/lib/Pod/t/utils.t
@@ -0,0 +1,92 @@
+
+# Test hyperlinks et al from Pod::ParseUtils
+
+BEGIN {
+        chdir 't' if -d 't';
+        @INC = '../lib';
+        require Test; import Test;
+        plan(tests => 22);
+}
+
+use strict;
+use Pod::ParseUtils;
+
+# First test the hyperlinks
+
+my @links = qw{
+  name
+  name/ident
+  name/"sec"
+  "sec"
+  /"sec"
+  http://www.perl.org/
+  text|name
+  text|name/ident
+  text|name/"sec"
+  text|"sec"
+};
+
+my @results = (
+              "the P<name> manpage",
+              "the Q<ident> entry in the P<name> manpage",
+              "the section on Q<sec> in the P<name> manpage",
+              "the section on Q<sec> elsewhere in this document",
+              "the section on Q<sec> elsewhere in this document",
+              "Q<http://www.perl.org/>",
+              "Q<text>",
+              "Q<text>",
+              "Q<text>",
+              "Q<text>",
+             );
+
+ok(@results,@links);
+
+for my $i( 0..@links ) {
+  my $link = new Pod::Hyperlink( $links[$i] );
+  ok($link->markup, $results[$i]);
+}
+
+# Now test lists
+# This test needs to be better
+my $list = new Pod::List( -indent => 4,
+                         -start  => 52,
+                         -file   => "itemtest.t",
+                         -type   => "OL",
+                       );
+
+ok($list);
+
+ok($list->indent, 4);
+ok($list->start, 52);
+ok($list->type, "OL");
+
+
+# Pod::Cache
+
+# also needs work
+
+my $cache = new Pod::Cache;
+
+# Store it in the cache
+$cache->item(
+            -page => "Pod::ParseUtils",
+            -description => "A description",
+            -file => "file.t",
+ );
+
+# Now look for an item of this name
+my $item = $cache->find_page("Pod::ParseUtils");
+ok($item);
+
+# and a failure
+ok($cache->find_page("Junk"), undef);
+
+# Make sure that the item we found is the same one as the
+# first in the list
+my @i = $cache->item;
+ok($i[0], $item);
+
+# Check the contents
+ok($item->page, "Pod::ParseUtils");
+ok($item->description, "A description");
+ok($item->file, "file.t");