summaryrefslogtreecommitdiff
path: root/t/pod/poderrs.t
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-03-23 21:38:03 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-03-23 21:38:03 +0000
commit360aca433d51a01ddd748b8606c6c288bdb2f7fc (patch)
tree0143de64029b4ab8984a0791dbffccdf5be9fd43 /t/pod/poderrs.t
parent0a6a0d524e3a6171ed37d842c0e1375270987314 (diff)
downloadperl-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-xt/pod/poderrs.t39
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