Avoid negating an unsigned value. (The offset in the SV body table)
[p5sagit/p5-mst-13.2.git] / t / pod / for.t
1 BEGIN {
2    use File::Basename;
3    my $THISDIR = dirname $0;
4    unshift @INC, $THISDIR;
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 This is a test
20
21 =for theloveofpete
22 You shouldn't see this
23 or this
24 or this
25
26 =for text
27 pod2text should see this
28 and this
29 and this
30
31 and everything should see this!
32
33 =begin text
34
35 Similarly, this line ...
36
37 and this one ...
38
39 as well this one,
40
41 should all be in pod2text output
42
43 =end text
44
45 Tweedley-deedley-dee, Im as happy as can be!
46 Tweedley-deedley-dum, cuz youre my honey sugar plum!
47
48 =begin atthebeginning
49
50 But I expect to see neither hide ...
51
52 nor tail ...
53
54 of this text
55
56 =end atthebeginning
57
58 The rest of this should show up in everything.
59