898abb9ddedb1a841fced957e11641d79ced0816
[perl.git] / cpan / podlators / t / man-options.t
1 #!/usr/bin/perl -w
2 #
3 # Additional tests for Pod::Man options.
4 #
5 # Copyright 2002, 2004, 2006, 2008, 2009, 2012, 2013
6 #     Russ Allbery <rra@stanford.edu>
7 #
8 # This program is free software; you may redistribute it and/or modify it
9 # under the same terms as Perl itself.
10
11 BEGIN {
12     chdir 't' if -d 't';
13     if ($ENV{PERL_CORE}) {
14         @INC = '../lib';
15     }
16     unshift (@INC, '../blib/lib');
17     $| = 1;
18 }
19
20 use strict;
21
22 use Test::More tests => 28;
23 BEGIN { use_ok ('Pod::Man') }
24
25 # Redirect stderr to a file.
26 sub stderr_save {
27     open (OLDERR, '>&STDERR') or die "Can't dup STDERR: $!\n";
28     open (STDERR, "> out$$.err") or die "Can't redirect STDERR: $!\n";
29 }
30
31 # Restore stderr.
32 sub stderr_restore {
33     close STDERR;
34     open (STDERR, '>&OLDERR') or die "Can't dup STDERR: $!\n";
35     close OLDERR;
36 }
37
38 my $n = 1;
39 while (<DATA>) {
40     my %options;
41     next until $_ eq "###\n";
42     while (<DATA>) {
43         last if $_ eq "###\n";
44         my ($option, $value) = split;
45         $options{$option} = $value;
46     }
47     open (TMP, "> tmp$$.pod") or die "Cannot create tmp$$.pod: $!\n";
48     while (<DATA>) {
49         last if $_ eq "###\n";
50         print TMP $_;
51     }
52     close TMP;
53     my $parser = Pod::Man->new (%options);
54     isa_ok ($parser, 'Pod::Man', 'Parser object');
55     open (OUT, "> out$$.tmp") or die "Cannot create out$$.tmp: $!\n";
56     stderr_save;
57     eval { $parser->parse_from_file ("tmp$$.pod", \*OUT) };
58     my $exception = $@;
59     stderr_restore;
60     close OUT;
61     my $accents = 0;
62     open (TMP, "out$$.tmp") or die "Cannot open out$$.tmp: $!\n";
63     while (<TMP>) {
64         last if /^\.nh/;
65     }
66     my $output;
67     {
68         local $/;
69         $output = <TMP>;
70     }
71     close TMP;
72     1 while unlink ("tmp$$.pod", "out$$.tmp");
73     my $expected = '';
74     while (<DATA>) {
75         last if $_ eq "###\n";
76         $expected .= $_;
77     }
78     is ($output, $expected, "Output correct for test $n");
79     open (ERR, "out$$.err") or die "Cannot open out.err: $!\n";
80     my $errors;
81     {
82         local $/;
83         $errors = <ERR>;
84     }
85     close ERR;
86     $errors =~ s/\Qtmp$$.pod/tmp.pod/g;
87     1 while unlink ("out$$.err");
88     if ($exception) {
89         $exception =~ s/ at .*//;
90         $errors .= "EXCEPTION: $exception";
91     }
92     $expected = '';
93     while (<DATA>) {
94         last if $_ eq "###\n";
95         $expected .= $_;
96     }
97     is ($errors, $expected, "Errors are correct for test $n");
98     $n++;
99 }
100
101 # Below the marker are bits of POD and corresponding expected text output and
102 # error output.  This is used to test specific features or problems with
103 # Pod::Man.  The options, input, output, and errors are separated by lines
104 # containing only ###.
105
106 __DATA__
107
108 ###
109 fixed CR
110 fixedbold CY
111 fixeditalic CW
112 fixedbolditalic CX
113 ###
114 =head1 FIXED FONTS
115
116 C<foo B<bar I<baz>> I<bay>>
117 ###
118 .SH "FIXED FONTS"
119 .IX Header "FIXED FONTS"
120 \&\f(CR\*(C`foo \f(CYbar \f(CXbaz\f(CY\f(CR \f(CWbay\f(CR\*(C'\fR
121 ###
122 ###
123
124 ###
125 ###
126 =over 4
127
128 =item Foo
129
130 Bar.
131
132 =head1 NEXT
133 ###
134 .IP "Foo" 4
135 .IX Item "Foo"
136 Bar.
137 .SH "NEXT"
138 .IX Header "NEXT"
139 .SH "POD ERRORS"
140 .IX Header "POD ERRORS"
141 Hey! \fBThe above document had some coding errors, which are explained below:\fR
142 .IP "Around line 7:" 4
143 .IX Item "Around line 7:"
144 You forgot a '=back' before '=head1'
145 ###
146 ###
147
148 ###
149 stderr 1
150 ###
151 =over 4
152
153 =item Foo
154
155 Bar.
156
157 =head1 NEXT
158 ###
159 .IP "Foo" 4
160 .IX Item "Foo"
161 Bar.
162 .SH "NEXT"
163 .IX Header "NEXT"
164 ###
165 tmp.pod around line 7: You forgot a '=back' before '=head1'
166 ###
167
168 ###
169 nourls 1
170 ###
171 =head1 URL suppression
172
173 L<anchor|http://www.example.com/>
174 ###
175 .SH "URL suppression"
176 .IX Header "URL suppression"
177 anchor
178 ###
179 ###
180
181 ###
182 errors stderr
183 ###
184 =over 4
185
186 =item Foo
187
188 Bar.
189
190 =head1 NEXT
191 ###
192 .IP "Foo" 4
193 .IX Item "Foo"
194 Bar.
195 .SH "NEXT"
196 .IX Header "NEXT"
197 ###
198 tmp.pod around line 7: You forgot a '=back' before '=head1'
199 ###
200
201 ###
202 errors die
203 ###
204 =over 4
205
206 =item Foo
207
208 Bar.
209
210 =head1 NEXT
211 ###
212 .IP "Foo" 4
213 .IX Item "Foo"
214 Bar.
215 .SH "NEXT"
216 .IX Header "NEXT"
217 ###
218 tmp.pod around line 7: You forgot a '=back' before '=head1'
219 EXCEPTION: POD document had syntax errors
220 ###
221
222 ###
223 errors pod
224 ###
225 =over 4
226
227 =item Foo
228
229 Bar.
230
231 =head1 NEXT
232 ###
233 .IP "Foo" 4
234 .IX Item "Foo"
235 Bar.
236 .SH "NEXT"
237 .IX Header "NEXT"
238 .SH "POD ERRORS"
239 .IX Header "POD ERRORS"
240 Hey! \fBThe above document had some coding errors, which are explained below:\fR
241 .IP "Around line 7:" 4
242 .IX Item "Around line 7:"
243 You forgot a '=back' before '=head1'
244 ###
245 ###
246
247 ###
248 errors none
249 ###
250 =over 4
251
252 =item Foo
253
254 Bar.
255
256 =head1 NEXT
257 ###
258 .IP "Foo" 4
259 .IX Item "Foo"
260 Bar.
261 .SH "NEXT"
262 .IX Header "NEXT"
263 ###
264 ###
265
266 ###
267 errors none
268 ###
269 =over 4
270
271 =item foo
272
273 Not a bullet.
274
275 =item *
276
277 Also not a bullet.
278
279 =back
280 ###
281 .IP "foo" 4
282 .IX Item "foo"
283 Not a bullet.
284 .IP "*" 4
285 Also not a bullet.
286 ###