2 # Test hyperlinks et al from Pod::ParseUtils
7 require Test; import Test;
14 # First test the hyperlinks
31 "Q<ident> in P<name>",
35 "Q<http://www.perl.org/>",
44 for my $i( 0..@links ) {
45 my $link = new Pod::Hyperlink( $links[$i] );
46 ok($link->markup, $results[$i]);
50 # This test needs to be better
51 my $list = new Pod::List( -indent => 4,
53 -file => "itemtest.t",
61 ok($list->type, "OL");
68 my $cache = new Pod::Cache;
70 # Store it in the cache
72 -page => "Pod::ParseUtils",
73 -description => "A description",
77 # Now look for an item of this name
78 my $item = $cache->find_page("Pod::ParseUtils");
82 ok($cache->find_page("Junk"), undef);
84 # Make sure that the item we found is the same one as the
90 ok($item->page, "Pod::ParseUtils");
91 ok($item->description, "A description");
92 ok($item->file, "file.t");