This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No longer need to skip t/comp/opsubs.t #22 on VMS.
authorCraig A. Berry <craigberry@mac.com>
Sun, 11 Oct 2009 22:45:02 +0000 (17:45 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sun, 11 Oct 2009 22:45:02 +0000 (17:45 -0500)
And it's a good thing since the skip infrastructure was pulled
out from under us with 6b077bebea000af2a5477d50d7604bab33ee75c2.

The Win32 TODO probably still doesn't work and will need to be
implemented locally without the require of test.pl.

t/comp/opsubs.t

index 05610c9..f9822e9 100644 (file)
@@ -124,12 +124,9 @@ is( &qw('amper'), "qw-amper", "&qw() is func" );
 can_ok( 'main', "qx" );
 eval "qx('unqualified'".
      ($^O eq 'MSWin32' ? " 2>&1)" : ")");
-SKIP: {
-    skip("external command not portable on VMS", 1) if $^O eq 'VMS';
-    TODO: {
+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" );