diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-24 12:52:01 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-24 12:52:01 +0000 |
commit | 9994ed7c9a8f3f1f092069779eeb61c285795c41 (patch) | |
tree | 7fae18bf1c06f7198e50744fc44e597f23d7250a /t/comp | |
parent | c72c5e99f3b78a3b5da264328bcba75e0ae7e88b (diff) | |
download | perl-9994ed7c9a8f3f1f092069779eeb61c285795c41.tar.gz |
Skip unportable test on VMS
p4raw-id: //depot/perl@27309
Diffstat (limited to 't/comp')
-rw-r--r-- | t/comp/opsubs.t | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/t/comp/opsubs.t b/t/comp/opsubs.t index 75c6012fc3..0bbe09904d 100644 --- a/t/comp/opsubs.t +++ b/t/comp/opsubs.t @@ -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" ); |