diff options
author | Steve Hay <SteveHay@planit.com> | 2006-11-22 16:49:10 +0000 |
---|---|---|
committer | Steve Hay <SteveHay@planit.com> | 2006-11-22 16:49:10 +0000 |
commit | 53059177fb9583870694fa5e8162174b9a224ed1 (patch) | |
tree | af3bbd8f1c4ccc485129067a7399d0d35f5cd991 /ext/POSIX | |
parent | ac8e80845b5f5f80ca4d75f0efae260754ee057a (diff) | |
download | perl-53059177fb9583870694fa5e8162174b9a224ed1.tar.gz |
VC8 regards 60 seconds as an invalid parameter for strftime()
so skip the test in that case.
p4raw-id: //depot/perl@29352
Diffstat (limited to 'ext/POSIX')
-rw-r--r-- | ext/POSIX/t/posix.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index 6d7da842b9..8022fc1977 100644 --- a/ext/POSIX/t/posix.t +++ b/ext/POSIX/t/posix.t @@ -186,7 +186,12 @@ sub try_strftime { $lc = &POSIX::setlocale(&POSIX::LC_TIME, 'C') if $Config{d_setlocale}; try_strftime("Wed Feb 28 00:00:00 1996 059", 0,0,0, 28,1,96); -try_strftime("Thu Feb 29 00:00:60 1996 060", 60,0,-24, 30,1,96); +SKIP: { + skip("VC++ 8 regards 60 seconds as an invalid parameter", 1) + if $Config{cc} eq 'cl' and $Config{ccversion} =~ /^(\d+)/ and $1 >= 14; + + try_strftime("Thu Feb 29 00:00:60 1996 060", 60,0,-24, 30,1,96); +} try_strftime("Fri Mar 01 00:00:00 1996 061", 0,0,-24, 31,1,96); try_strftime("Sun Feb 28 00:00:00 1999 059", 0,0,0, 28,1,99); try_strftime("Mon Mar 01 00:00:00 1999 060", 0,0,24, 28,1,99); |