From: Tim Jenness <tjenness@cpan.org>
Date: Tue, 20 Nov 2001 14:33:14 +0000 (-1000)
Subject: Add test for Pod::ParseUtils
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50b72f59c1faaac49e44fb48a76a29d578fad24d;p=p5sagit%2Fp5-mst-13.2.git

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
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");