diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-07-29 09:41:38 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-29 09:41:38 +0000 |
| commit | 6f1f3b4a8b84f8e9b27fad7212a03f21407c30f8 (patch) | |
| tree | e81844aeb69881a060671e454382d083e1b8b861 /t | |
| parent | 2d03de9c8d99c75ed163fdcdde85a243a29ccc8c (diff) | |
| download | perl-6f1f3b4a8b84f8e9b27fad7212a03f21407c30f8.tar.gz | |
Skip op/sprintf.t test 147 on MSWin32
... and fix the skip code so that it actually works ;-)
p4raw-id: //depot/perl@25244
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/sprintf.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/sprintf.t b/t/op/sprintf.t index 254e5c93a1..592aed4d7b 100755 --- a/t/op/sprintf.t +++ b/t/op/sprintf.t @@ -97,7 +97,7 @@ for ($i = 1; @tests; $i++) { # Only compare on the the first pair of digits, as numeric # compares don't like 2.6.10-3mdksmp or 2.6.8-24.10-default s/^(\d+(\.\d+)?).*/$1/ for $osv, $vsn; - $vsn && $osv <= $vsn and $skip = 1; + $skip = $vsn ? ($osv <= $vsn ? 1 : 0) : 1; } $skip and $comment =~ s/$/, failure expected on $^O $osv/; } @@ -146,7 +146,7 @@ for ($i = 1; @tests; $i++) { # tag 'all' is allowed for todo tests that should fail on any system # # >%G< >1234567e96< >1.23457E+102< >exponent too big skip: os390< -# >%.0g< >-0.0< >-0< >No minus skip: VMS hpux:10.20< +# >%.0g< >-0.0< >-0< >No minus skip: MSWin32 VMS hpux:10.20< # >%d< >4< >1< >4 != 1 skip: all< # # The following tests are not currently run, for the reasons stated: @@ -310,7 +310,7 @@ __END__ >%g< >12345.6789< >12345.7< >%+g< >12345.6789< >+12345.7< >%#g< >12345.6789< >12345.7< ->%.0g< >-0.0< >-0< >No minus skip: VMS hpux:10.20< +>%.0g< >-0.0< >-0< >No minus skip: MSWin32 VMS hpux:10.20< >%.0g< >12345.6789< >1e+04< >%#.0g< >12345.6789< >1.e+04< >%.2g< >12345.6789< >1.2e+04< |