Commit | Line | Data |
---|---|---|
360aca43 | 1 | BEGIN { |
92e3d63a JH |
2 | use File::Basename; |
3 | my $THISDIR = dirname $0; | |
4 | unshift @INC, $THISDIR; | |
360aca43 GS |
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 |