diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-23 21:38:03 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-23 21:38:03 +0000 |
commit | 360aca433d51a01ddd748b8606c6c288bdb2f7fc (patch) | |
tree | 0143de64029b4ab8984a0791dbffccdf5be9fd43 /t/pod/poderrs.t | |
parent | 0a6a0d524e3a6171ed37d842c0e1375270987314 (diff) | |
download | perl-360aca433d51a01ddd748b8606c6c288bdb2f7fc.tar.gz |
add Pod-Parser-1.08 (verbatim module =include tests elided owing
to size and better maintainability)
p4raw-id: //depot/perl@3129
Diffstat (limited to 't/pod/poderrs.t')
-rwxr-xr-x | t/pod/poderrs.t | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/t/pod/poderrs.t b/t/pod/poderrs.t new file mode 100755 index 0000000000..591bd2a86d --- /dev/null +++ b/t/pod/poderrs.t @@ -0,0 +1,39 @@ +BEGIN { + use File::Basename; + my $THISDIR = dirname $0; + unshift @INC, $THISDIR; + require "testpchk.pl"; + import TestPodChecker; +} + +my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash +my $passed = testpodchecker \%options, $0; +exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; + + +__END__ + + +=head1 NAME + +poderrors.t - test Pod::Checker on some pod syntax errors + +=unknown1 this is an unknown command with two N<unknownA> +and D<unknownB> interior sequences. + +This is some paragraph text with some unknown interior sequences, +such as Q<unknown2>, +A<unknown3>, +and Y<unknown4 V<unknown5>>. + +Now try some unterminated sequences like +I<hello mudda! +B<hello fadda! + +Here I am at C<camp granada! + +Camps is very, +entertaining. +And they say we'll have some fun if it stops raining! + +=cut |