Commit | Line | Data |
---|---|---|
360aca43 | 1 | BEGIN { |
92e3d63a | 2 | use File::Basename; |
3 | my $THISDIR = dirname $0; | |
4 | unshift @INC, $THISDIR; | |
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 | __END__ | |
14 | ||
15 | =pod | |
16 | ||
17 | = this is a test | |
18 | of the emergency | |
19 | broadcast system | |
20 | ||
21 | =cut |