diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-08-19 07:58:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-08-19 07:58:59 +0000 |
| commit | 83176b6e7e89da2ccf0713207f5666901eb76192 (patch) | |
| tree | 9ad9a41b869afa0339996dbd551fe082dd4fd5b1 /t/comp | |
| parent | 7241fd2809f71df7303ed0a304105fc622c4058d (diff) | |
| download | perl-83176b6e7e89da2ccf0713207f5666901eb76192.tar.gz | |
Mark a test that relies on tainting behavior as TODO on Windows.
p4raw-id: //depot/perl@23225
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/opsubs.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/comp/opsubs.t b/t/comp/opsubs.t index c76ce3ca74..75c6012fc3 100644 --- a/t/comp/opsubs.t +++ b/t/comp/opsubs.t @@ -60,7 +60,10 @@ is( &qw('amper'), "qw-amper", "&qw() is func" ); # qx operator can_ok( 'main', "qx" ); eval "qx('unqualified')"; -like( $@, qr/^Insecure/, "qx('unqualified') doesn't work" ); +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" ); |