diff options
Diffstat (limited to 't/pod')
| -rwxr-xr-x | t/pod/poderrs.t | 5 | ||||
| -rw-r--r-- | t/pod/poderrs.xr | 65 | ||||
| -rwxr-xr-x | t/pod/special_seqs.t | 17 | ||||
| -rw-r--r-- | t/pod/special_seqs.xr | 13 |
4 files changed, 63 insertions, 37 deletions
diff --git a/t/pod/poderrs.t b/t/pod/poderrs.t index e27130ce39..bec2a198b6 100755 --- a/t/pod/poderrs.t +++ b/t/pod/poderrs.t @@ -36,6 +36,11 @@ Camps is very, entertaining. And they say we'll have some fun if it stops raining! +Okay, now use a non-empty blank line to terminate a paragraph and make +sure we get a warning. + +The above blank line contains tabs and spaces only + =head1 Additional tests =head2 item without over diff --git a/t/pod/poderrs.xr b/t/pod/poderrs.xr index 157d1306ba..038cf4fb4c 100644 --- a/t/pod/poderrs.xr +++ b/t/pod/poderrs.xr @@ -1,32 +1,33 @@ -*** ERROR: Unknown command "unknown1" at line 21 in file pod/poderrs.t -*** ERROR: Unknown interior-sequence "Q" at line 25 in file pod/poderrs.t -*** ERROR: Unknown interior-sequence "A" at line 26 in file pod/poderrs.t -*** ERROR: Unknown interior-sequence "Y" at line 27 in file pod/poderrs.t -*** ERROR: Unknown interior-sequence "V" at line 27 in file pod/poderrs.t -** Unterminated B<...> at pod/poderrs.t line 31 -** Unterminated I<...> at pod/poderrs.t line 30 -** Unterminated C<...> at pod/poderrs.t line 33 -*** ERROR: =item without previous =over at line 43 in file pod/poderrs.t -*** ERROR: =over on line 43 without closing =back (at head2) at line 45 in file pod/poderrs.t -*** ERROR: =back without previous =over at line 47 in file pod/poderrs.t -*** ERROR: =over on line 51 without closing =back (at head2) at line 55 in file pod/poderrs.t -*** ERROR: =end without =begin at line 57 in file pod/poderrs.t -*** ERROR: Nested =begin's (first at line 61:html) at line 63 in file pod/poderrs.t -*** ERROR: =end without =begin at line 67 in file pod/poderrs.t -*** ERROR: nested commands C<...C<...>...> at line 71 in file pod/poderrs.t -*** ERROR: garbled entity E<alea iacta est> at line 75 in file pod/poderrs.t -*** ERROR: garbled entity E<C<auml>> at line 76 in file pod/poderrs.t -*** ERROR: garbled entity E<abcI<bla>> at line 77 in file pod/poderrs.t -*** WARNING: collapsing newlines to blanks at line 87 in file pod/poderrs.t -*** ERROR: malformed link L<> : empty link at line 89 in file pod/poderrs.t -*** WARNING: section in `passwd(5)' deprecated at line 94 in file pod/poderrs.t -*** WARNING: ignoring leading whitespace in link at line 95 in file pod/poderrs.t -*** WARNING: ignoring trailing whitespace in link at line 95 in file pod/poderrs.t -*** WARNING: Spurious character(s) after =back at line 101 in file pod/poderrs.t -*** WARNING: No items in =over (at line 109) / =back list at line 111 in file pod/poderrs.t -*** WARNING: 2 unescaped <> in paragraph at line 113 in file pod/poderrs.t -*** ERROR: unresolved internal link `begin or begin' at line 81 in file pod/poderrs.t -*** ERROR: unresolved internal link `end with begin' at line 82 in file pod/poderrs.t -*** ERROR: unresolved internal link `OoPs' at line 83 in file pod/poderrs.t -*** ERROR: unresolved internal link `abc def' at line 87 in file pod/poderrs.t -pod/poderrs.t has 24 pod syntax errors. +*** ERROR: Unknown command 'unknown1' at line 21 in file pod/poderrs.t +*** ERROR: Unknown interior-sequence 'Q' at line 25 in file pod/poderrs.t +*** ERROR: Unknown interior-sequence 'A' at line 26 in file pod/poderrs.t +*** ERROR: Unknown interior-sequence 'Y' at line 27 in file pod/poderrs.t +*** ERROR: Unknown interior-sequence 'V' at line 27 in file pod/poderrs.t +*** WARNING: unterminated B<...> at line 31 in file pod/poderrs.t +*** WARNING: unterminated I<...> at line 30 in file pod/poderrs.t +*** WARNING: unterminated C<...> at line 33 in file pod/poderrs.t +*** WARNING: line containing nothing but whitespace in paragraph at line 41 in file pod/poderrs.t +*** ERROR: =item without previous =over at line 48 in file pod/poderrs.t +*** ERROR: =back without previous =over at line 52 in file pod/poderrs.t +*** ERROR: =over on line 56 without closing =back (at head2) at line 60 in file pod/poderrs.t +*** ERROR: =end without =begin at line 62 in file pod/poderrs.t +*** ERROR: Nested =begin's (first at line 66:html) at line 68 in file pod/poderrs.t +*** ERROR: =end without =begin at line 72 in file pod/poderrs.t +*** ERROR: nested commands C<...C<...>...> at line 76 in file pod/poderrs.t +*** ERROR: garbled entity E<alea iacta est> at line 80 in file pod/poderrs.t +*** ERROR: garbled entity E<C<auml>> at line 81 in file pod/poderrs.t +*** ERROR: garbled entity E<abcI<bla>> at line 82 in file pod/poderrs.t +*** WARNING: collapsing newlines to blanks at line 92 in file pod/poderrs.t +*** ERROR: malformed link L<> : empty link at line 94 in file pod/poderrs.t +*** WARNING: section in 'passwd(5)' deprecated at line 99 in file pod/poderrs.t +*** WARNING: ignoring leading whitespace in link at line 100 in file pod/poderrs.t +*** WARNING: ignoring trailing whitespace in link at line 100 in file pod/poderrs.t +*** ERROR: Spurious character(s) after =back at line 106 in file pod/poderrs.t +*** WARNING: No items in =over (at line 114) / =back list at line 116 in file pod/poderrs.t +*** WARNING: 2 unescaped <> in paragraph at line 118 in file pod/poderrs.t +*** ERROR: unresolved internal link 'begin or begin' at line 86 in file pod/poderrs.t +*** ERROR: unresolved internal link 'end with begin' at line 87 in file pod/poderrs.t +*** ERROR: unresolved internal link 'OoPs' at line 88 in file pod/poderrs.t +*** ERROR: unresolved internal link 'abc def' at line 92 in file pod/poderrs.t +*** WARNING: multiple occurence of link target 'oops' at line - in file pod/poderrs.t +pod/poderrs.t has 21 pod syntax errors. diff --git a/t/pod/special_seqs.t b/t/pod/special_seqs.t index 572fb8c061..b8af57ee05 100755 --- a/t/pod/special_seqs.t +++ b/t/pod/special_seqs.t @@ -17,10 +17,16 @@ __END__ =pod This is a test to see if I can do not only C<$self> and C<method()>, but -also C<$self->method()> and C<$self->{FIELDNAME}> and C<{FOO=>BAR}> without -resorting to escape sequences. +also C<< $self->method() >> and C<< $self->{FIELDNAME} >> and +C<< $Foo <=> $Bar >> without resorting to escape sequences. If +I want to refer to the right-shift operator I can do something +like C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>. -Now for the grand finale of C<$self->method()->{FIELDNAME} = {FOO=>BAR}>. +Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>. +And I also want to make sure that newlines work like this +C<<< +$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b] +>>> Of course I should still be able to do all this I<with> escape sequences too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>. @@ -29,4 +35,9 @@ Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>. And make sure that C<0> works too! +Now, if I use << or >> as my delimiters, then I have to use whitespace. +So things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end +up doing what you might expect since the first > will still terminate +the first < seen. + =cut diff --git a/t/pod/special_seqs.xr b/t/pod/special_seqs.xr index fc06593d9d..a07f4cf417 100644 --- a/t/pod/special_seqs.xr +++ b/t/pod/special_seqs.xr @@ -1,8 +1,12 @@ This is a test to see if I can do not only `$self' and `method()', but - also `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}' without - resorting to escape sequences. + also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar' + without resorting to escape sequences. If I want to refer to the + right-shift operator I can do something like `$x >> 3' or even `$y >> + 5'. Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'. + And I also want to make sure that newlines work like this + `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]' Of course I should still be able to do all this *with* escape sequences too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'. @@ -11,3 +15,8 @@ And make sure that `0' works too! + Now, if I use << or >> as my delimiters, then I have to use whitespace. + So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end + up doing what you might expect since the first > will still terminate + the first < seen. + |