diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-12-08 19:04:59 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-12-08 19:04:59 +0000 |
| commit | ce6e48f380e7ead67a463a86546c4ac2012ab015 (patch) | |
| tree | d2bde08d913ce63c7a07f0764269d07b707be378 /t/pod | |
| parent | 7eb7d786de9bebe120f2143ce65237684a3a5d80 (diff) | |
| download | perl-ce6e48f380e7ead67a463a86546c4ac2012ab015.tar.gz | |
Further yak-shaving on Pod::Usage. Now, t/pod/pod2usage2.t tests
pass.
p4raw-id: //depot/perl@26304
Diffstat (limited to 't/pod')
| -rw-r--r-- | t/pod/pod2usage2.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/t/pod/pod2usage2.t b/t/pod/pod2usage2.t index 4bdaaee75d..5006a7c579 100644 --- a/t/pod/pod2usage2.t +++ b/t/pod/pod2usage2.t @@ -50,7 +50,7 @@ my ($exit, $text) = getoutput( sub { pod2usage() } ); is ($exit, 2, "Exit status pod2usage ()"); ok (compare ($text, <<'EOT'), "Output test pod2usage ()"); #Usage: -# frobnicate [ -r | --recursive ] [ -f | --force ] [ -n number ] file ... +# frobnicate [ -r | --recursive ] [ -f | --force ] file ... # EOT @@ -61,7 +61,7 @@ is ($exit, 1, "Exit status pod2usage (-message => '...', -verbos ok (compare ($text, <<'EOT'), "Output test pod2usage (-message => '...', -verbose => 1)"); #You naughty person, what did you say? # Usage: -# frobnicate [ -r | --recursive ] [ -f | --force ] [ -n number ] file ... +# frobnicate [ -r | --recursive ] [ -f | --force ] file ... # # Options: # -r | --recursive @@ -83,7 +83,7 @@ ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -exit => 42 # frobnicate - do what I mean # # SYNOPSIS -# frobnicate [ -r | --recursive ] [ -f | --force ] [ -n number ] file ... +# frobnicate [ -r | --recursive ] [ -f | --force ] file ... # # DESCRIPTION # frobnicate does foo and bar and what not. @@ -104,7 +104,7 @@ EOT is ($exit, 0, "Exit status pod2usage (0)"); ok (compare ($text, <<'EOT'), "Output test pod2usage (0)"); #Usage: -# frobnicate [ -r | --recursive ] [ -f | --force ] [ -n number ] file ... +# frobnicate [ -r | --recursive ] [ -f | --force ] file ... # # Options: # -r | --recursive @@ -122,7 +122,7 @@ EOT is ($exit, 42, "Exit status pod2usage (42)"); ok (compare ($text, <<'EOT'), "Output test pod2usage (42)"); #Usage: -# frobnicate [ -r | --recursive ] [ -f | --force ] [ -n number ] file ... +# frobnicate [ -r | --recursive ] [ -f | --force ] file ... # EOT @@ -130,7 +130,7 @@ EOT is ($exit, 0, "Exit status pod2usage (-verbose => 0, -exit => 'NOEXIT')"); ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 0, -exit => 'NOEXIT')"); #Usage: -# frobnicate [ -r | --recursive ] [ -f | --force ] [ -n number ] file ... +# frobnicate [ -r | --recursive ] [ -f | --force ] file ... # # --NORMAL-RETURN-- EOT @@ -154,7 +154,7 @@ frobnicate - do what I mean =head1 SYNOPSIS B<frobnicate> S<[ B<-r> | B<--recursive> ]> S<[ B<-f> | B<--force> ]> - S<[ B<-n> I<number> ]> I<file> ... + file ... =head1 DESCRIPTION @@ -172,7 +172,7 @@ Run recursively. Just do it! -=item B<-n> I<number> +=item B<-n> number Specify number of frobs, default is 42. |