Avoid negating an unsigned value. (The offset in the SV body table)
[p5sagit/p5-mst-13.2.git] / t / pod / for.t
CommitLineData
360aca43 1BEGIN {
9c6ed6d7 2 use File::Basename;
3 my $THISDIR = dirname $0;
4 unshift @INC, $THISDIR;
360aca43 5 require "testp2pt.pl";
6 import TestPodIncPlainText;
7}
8
9my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
10my $passed = testpodplaintext \%options, $0;
11exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
12
13
14__END__
15
16
17=pod
18
19This is a test
20
21=for theloveofpete
22You shouldn't see this
23or this
24or this
25
26=for text
27pod2text should see this
28and this
29and this
30
31and everything should see this!
32
33=begin text
34
35Similarly, this line ...
36
37and this one ...
38
39as well this one,
40
41should all be in pod2text output
42
43=end text
44
45Tweedley-deedley-dee, Im as happy as can be!
46Tweedley-deedley-dum, cuz youre my honey sugar plum!
47
48=begin atthebeginning
49
50But I expect to see neither hide ...
51
52nor tail ...
53
54of this text
55
56=end atthebeginning
57
58The rest of this should show up in everything.
59