This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pod2usage2.t is not readily portable to VMS either
[perl5.git] / t / pod / pod2usage2.t
index 4bdaaee..e5fa93e 100644 (file)
@@ -3,8 +3,8 @@
 use Test::More;
 
 BEGIN {
-  if ($^O eq 'MSWin32') {
-    plan skip_all => "Not portable on Win32\n";
+  if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+    plan skip_all => "Not portable on Win32 or VMS\n";
   }
   else {
     plan tests => 15;
@@ -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.