This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip unportable test on VMS
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 24 Feb 2006 12:52:01 +0000 (12:52 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 24 Feb 2006 12:52:01 +0000 (12:52 +0000)
p4raw-id: //depot/perl@27309

t/comp/opsubs.t

index 75c6012..0bbe099 100644 (file)
@@ -60,9 +60,12 @@ is( &qw('amper'), "qw-amper", "&qw() is func" );
 # qx operator
 can_ok( 'main', "qx" );
 eval "qx('unqualified')";
-TODO: {
-    local $TODO = $^O eq 'MSWin32' ? "Tainting of PATH not working of Windows" : $TODO;
-    like( $@, qr/^Insecure/, "qx('unqualified') doesn't work" );
+SKIP: {
+    skip("external command not portable on VMS", 1) if $^O eq 'VMS';
+    TODO: {
+       local $TODO = $^O eq 'MSWin32' ? "Tainting of PATH not working of Windows" : $TODO;
+       like( $@, qr/^Insecure/, "qx('unqualified') doesn't work" );
+    }
 }
 is( main::qx('main'), "qx-main", "main::qx() is func" );
 is( &qx('amper'), "qx-amper", "&qx() is func" );