1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
|
NNAAMMEE
basic.pod - Test of various basic POD features in translators.
HHEEAADDIINNGGSS
Try a few different levels of headings, with embedded formatting codes
and other interesting bits.
TThhiiss ""iiss"" aa ""lleevveell 11"" hheeaaddiinngg
````LLeevveell'''' ""22 hheeaaddiinngg
_L_e_v_e_l_ _3_ _h_e_a_d_i_n_g_ _w_i_t_h_ _"_w_e_i_r_d_ _s_t_u_f_f_ _"_"_ _(_d_o_u_b_l_e_ _q_u_o_t_e_)_"
_L_e_v_e_l_ _"_4_ _"_h_e_a_d_i_n_g_"
Now try again with iinntteerrmmiixxeedd _t_e_x_t.
TThhiiss ""iiss"" aa ""lleevveell 11"" hheeaaddiinngg
Text.
````LLeevveell'''' 22 hheeaaddiinngg
Text.
_L_e_v_e_l_ _3_ _h_e_a_d_i_n_g_ _w_i_t_h_ _"_w_e_i_r_d_ _s_t_u_f_f_"
Text.
_L_e_v_e_l_ _"_4_ _"_h_e_a_d_i_n_g_"
Text.
LLIINNKKSS
These are all taken from the Pod::Parser tests.
Try out _L_O_T_S of different ways of specifying references:
Reference the "section" in manpage
Reference the "section" in "manpage"
Reference the "section" in manpage
Now try it using the new "|" stuff ...
Reference the thistext|
Reference the thistext |
Reference the thistext|
Reference the thistext |
Reference the thistext|
Reference the thistext|
And then throw in a few new ones of my own.
foo
foo
"bar" in foo
"baz boo" in foo
"bar"
"baz boo"
"baz boo"
"baz boo" in foo bar
"boo var baz"
"bar baz"
"boo", "bar", and "baz"
foobar
Testing _i_t_a_l_i_c_s
"_I_t_a_l_i_c text" in foo
"Section "with" _o_t_h_e_r_ _m_a_r_k_u_p" in foo|bar
OOVVEERR AANNDD IITTEEMMSS
Taken from Pod::Parser tests, this is a test to ensure that multiline
=item paragraphs get indented appropriately.
This is a test.
There should be whitespace now before this line.
Taken from Pod::Parser tests, this is a test to ensure the nested =item
paragraphs get indented appropriately.
1 First section.
a this is item a
b this is item b
2 Second section.
a this is item a
b this is item b
c
d This is item c & d.
Now some additional weirdness of our own. Make sure that multiple tags
for one paragraph are properly compacted.
"foo"
bbaarr
"baz"
There shouldn't be any spaces between any of these item tags; this
idiom is used in perlfunc.
Some longer item text
Just to make sure that we test paragraphs where the item text
doesn't fit in the margin of the paragraph (and make sure that this
paragraph fills a few lines).
Let's also make it multiple paragraphs to be sure that works.
Test use of =over without =item as a block "quote" or block paragraph.
This should be indented four spaces but otherwise formatted the same
as any other regular text paragraph. Make sure it's long enough to
see the results of the formatting.....
Now try the same thing nested, and make sure that the indentation is
reset back properly.
This paragraph should be doubly indented.
This paragraph should only be singly indented.
* This is an item in the middle of a block-quote, which should be
allowed.
* We're also testing tagless item commands.
Should be back to the single level of indentation.
Should be back to regular indentation.
Now also check the transformation of * into real bullets for man pages.
* An item. We're also testing using =over without a number, and making
sure that item text wraps properly.
* Another item.
and now test the numbering of item blocks.
1. First item.
2. Second item.
FFOORRMMAATTTTIINNGG CCOODDEESS
Another test taken from Pod::Parser.
This is a test to see if I can do not only $self and "method()", but
also "$self->method()" and "$self->{FIELDNAME}" and "$Foo <=> $Bar"
without resorting to escape sequences. If I want to refer to the
right-shift operator I can do something like "$x >> 3" or even "$y >>
5".
Now for the grand finale of "$self->method()->{FIELDNAME} = {FOO=>BAR}".
And I also want to make sure that newlines work like this
"$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]"
Of course I should still be able to do all this _w_i_t_h escape sequences
too: "$self->method()" and "$self->{FIELDNAME}" and "{FOO=>BAR}".
Dont forget "$self->method()->{FIELDNAME} = {FOO=>BAR}".
And make sure that 0 works too!
Now, if I use << or >> as my delimiters, then I have to use whitespace.
So things like "<$self-"method()>> and "<$self-"{FIELDNAME}>> wont end
up doing what you might expect since the first > will still terminate
the first < seen.
Lets make sure these work for empty ones too, like "" and ">>" (just to
be obnoxious)
The statement: "This is dog kind's _f_i_n_e_s_t hour!" is a parody of a
quotation from Winston Churchill.
The following tests are added to those:
Make sure that a few other odd _t_h_i_n_g_s still work. This should be a
vertical bar: |. Here's a test of a few more special escapes that have
to be supported:
& An ampersand.
' An apostrophe.
< A less-than sign.
> A greater-than sign.
" A double quotation mark.
/ A forward slash.
Try to get this bit of text over towards the edge so
|that all of this text inside S<> won't| be wrapped. Also test the
|same thing with non-breaking spaces.|
There is a soft hyphen in hyphen at hy-phen.
This is a test of an index entry.
VVEERRBBAATTIIMM
Throw in a few verbatim paragraphs.
use Term::ANSIColor;
print color 'bold blue';
print "This text is bold blue.\n";
print color 'reset';
print "This text is normal.\n";
print colored ("Yellow on magenta.\n", 'yellow on_magenta');
print "This text is normal.\n";
print colored ['yellow on_magenta'], "Yellow on magenta.\n";
use Term::ANSIColor qw(uncolor);
print uncolor '01;31', "\n";
But this isn't verbatim (make sure it wraps properly), and the next
paragraph is again:
use Term::ANSIColor qw(:constants);
print BOLD, BLUE, "This text is in bold blue.\n", RESET;
use Term::ANSIColor qw(:constants); $Term::ANSIColor::AUTORESET = 1; print BOLD BLUE "This text is in bold blue.\n"; print "This text is normal.\n";
(Ugh, that's obnoxiously long.) Try different spacing:
Starting with a tab.
Not
starting
with
a
tab. But this should still be verbatim.
As should this.
This isn't.
This is. And this: is an internal tab. It should be:
|--| <= lined up with that.
(Tricky, but tabs should be expanded before the translator starts in on
the text since otherwise text with mixed tabs and spaces will get messed
up.)
And now we test verbatim paragraphs right before a heading. Older
versions of Pod::Man generated two spaces between paragraphs like this
and the heading. (In order to properly test this, one may have to
visually inspect the nroff output when run on the generated *roff
text, unfortunately.)
CCOONNCCLLUUSSIIOONN
That's all, folks!
|