Commit | Line | Data |
50b72f59 |
1 | |
2 | # Test hyperlinks et al from Pod::ParseUtils |
3 | |
4 | BEGIN { |
5 | chdir 't' if -d 't'; |
6 | @INC = '../lib'; |
7 | require Test; import Test; |
8 | plan(tests => 22); |
9 | } |
10 | |
11 | use strict; |
12 | use Pod::ParseUtils; |
13 | |
14 | # First test the hyperlinks |
15 | |
16 | my @links = qw{ |
17 | name |
18 | name/ident |
19 | name/"sec" |
20 | "sec" |
21 | /"sec" |
22 | http://www.perl.org/ |
23 | text|name |
24 | text|name/ident |
25 | text|name/"sec" |
26 | text|"sec" |
27 | }; |
28 | |
29 | my @results = ( |
9c6ed6d7 |
30 | "P<name>", |
31 | "Q<ident> in P<name>", |
32 | "Q<sec> in P<name>", |
33 | "Q<sec>", |
34 | "Q<sec>", |
50b72f59 |
35 | "Q<http://www.perl.org/>", |
36 | "Q<text>", |
37 | "Q<text>", |
38 | "Q<text>", |
39 | "Q<text>", |
40 | ); |
41 | |
42 | ok(@results,@links); |
43 | |
44 | for my $i( 0..@links ) { |
45 | my $link = new Pod::Hyperlink( $links[$i] ); |
46 | ok($link->markup, $results[$i]); |
47 | } |
48 | |
49 | # Now test lists |
50 | # This test needs to be better |
51 | my $list = new Pod::List( -indent => 4, |
52 | -start => 52, |
53 | -file => "itemtest.t", |
54 | -type => "OL", |
55 | ); |
56 | |
57 | ok($list); |
58 | |
59 | ok($list->indent, 4); |
60 | ok($list->start, 52); |
61 | ok($list->type, "OL"); |
62 | |
63 | |
64 | # Pod::Cache |
65 | |
66 | # also needs work |
67 | |
68 | my $cache = new Pod::Cache; |
69 | |
70 | # Store it in the cache |
71 | $cache->item( |
72 | -page => "Pod::ParseUtils", |
73 | -description => "A description", |
74 | -file => "file.t", |
75 | ); |
76 | |
77 | # Now look for an item of this name |
78 | my $item = $cache->find_page("Pod::ParseUtils"); |
79 | ok($item); |
80 | |
81 | # and a failure |
82 | ok($cache->find_page("Junk"), undef); |
83 | |
84 | # Make sure that the item we found is the same one as the |
85 | # first in the list |
86 | my @i = $cache->item; |
87 | ok($i[0], $item); |
88 | |
89 | # Check the contents |
90 | ok($item->page, "Pod::ParseUtils"); |
91 | ok($item->description, "A description"); |
92 | ok($item->file, "file.t"); |