Commit | Line | Data |
146174a9 |
1 | #!./perl |
360aca43 |
2 | BEGIN { |
146174a9 |
3 | chdir 't' if -d 't'; |
4 | unshift @INC, './pod', '../lib'; |
360aca43 |
5 | require "testp2pt.pl"; |
6 | import TestPodIncPlainText; |
7 | } |
8 | |
9 | my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash |
10 | my $passed = testpodplaintext \%options, $0; |
11 | exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; |
12 | |
13 | |
14 | __END__ |
15 | |
16 | |
17 | =pod |
18 | |
19 | Try out I<LOTS> of different ways of specifying references: |
20 | |
21 | Reference the L<manpage/section> |
22 | |
23 | Reference the L<manpage / section> |
24 | |
25 | Reference the L<manpage/ section> |
26 | |
27 | Reference the L<manpage /section> |
28 | |
29 | Reference the L<"manpage/section"> |
30 | |
31 | Reference the L<"manpage"/section> |
32 | |
33 | Reference the L<manpage/"section"> |
34 | |
35 | Reference the L<manpage/ |
36 | section> |
37 | |
38 | Reference the L<manpage |
39 | /section> |
40 | |
41 | Now try it using the new "|" stuff ... |
42 | |
43 | Reference the L<thistext|manpage/section> |
44 | |
45 | Reference the L<thistext | manpage / section> |
46 | |
47 | Reference the L<thistext| manpage/ section> |
48 | |
49 | Reference the L<thistext |manpage /section> |
50 | |
51 | Reference the L<thistext| |
52 | "manpage/section"> |
53 | |
54 | Reference the L<thistext |
55 | |"manpage"/section> |
56 | |
57 | Reference the L<thistext|manpage/"section"> |
58 | |
59 | Reference the L<thistext| |
60 | manpage/ |
61 | section> |
62 | |
63 | Reference the L<thistext |
64 | |manpage |
65 | /section> |
66 | |