Pod::Parser updates (v1.091) from Brad Appleton <bradapp@enteract.com>
[p5sagit/p5-mst-13.2.git] / t / pod / poderrs.t
1 #!./perl
2 BEGIN {
3    chdir 't' if -d 't';
4    unshift @INC, './pod', '../lib';
5    require "testpchk.pl";
6    import TestPodChecker;
7 }
8
9 my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
10 my $passed  = testpodchecker \%options, $0;
11 exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};
12
13
14 __END__
15
16
17 =head1 NAME
18
19 poderrors.t - test Pod::Checker on some pod syntax errors
20
21 =unknown1 this is an unknown command with two N<unknownA>
22 and D<unknownB> interior sequences.
23
24 This is some paragraph text with some unknown interior sequences,
25 such as Q<unknown2>,
26 A<unknown3>,
27 and Y<unknown4 V<unknown5>>.
28
29 Now try some unterminated sequences like
30 I<hello mudda!
31 B<hello fadda!
32
33 Here I am at C<camp granada!
34
35 Camps is very,
36 entertaining.
37 And they say we'll have some fun if it stops raining!
38
39 =head1 Additional tests
40
41 =head2 item without over
42
43 =item oops
44
45 =head2 back without over
46
47 =back
48
49 =head2 over without back
50
51 =over 4
52
53 =item oops
54
55 =head2 end without begin
56
57 =end
58
59 =head2 begin and begin
60
61 =begin html
62
63 =begin text
64
65 =end
66
67 =end
68
69 =head2 Nested sequences of the same type
70
71 C<code I<italic C<code again!>>>
72
73 =head2 Garbled entities
74
75 E<alea iacta est>
76 E<C<auml>>
77 E<abcI<bla>>
78
79 =head2 Unresolved internal links
80
81 L</"begin or begin">
82 L<"end with begin">
83 L</OoPs>
84
85 =head2 Garbled (almost) links
86
87 L<s s / s s / ss>
88 L<".".":">
89 L<"h"/"hh">
90 L<a|b|c>
91
92 =head2 Warnings
93
94 L<passwd(5)>
95 L<   some text|page/"section"   >
96
97 =over 4
98
99 =item bla
100
101 =back 200
102
103 =begin html
104
105 What?
106
107 =end xml
108
109 =over 4
110
111 =back
112
113 see these unescaped < and > in the text?
114
115 =cut
116