diff options
Diffstat (limited to 't')
-rw-r--r-- | t/win32/stat.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/win32/stat.t b/t/win32/stat.t index 3ce66ed6ba..c2fe60a326 100644 --- a/t/win32/stat.t +++ b/t/win32/stat.t @@ -8,6 +8,7 @@ BEGIN { use strict; use Fcntl ":seek"; +use Config; Win32::FsType() eq 'NTFS' or skip_all("need NTFS"); @@ -175,6 +176,19 @@ if (ok(mkdir($tmpfile1), "make a work directory")) { rmdir $tmpfile1; } + SKIP: +{ # github 19668 + $Config{ivsize} == 8 + or skip "Need 64-bit int", 1; + open my $tmp, ">", $tmpfile1 + or skip "Cannot create test file: $!", 1; + close $tmp; + fresh_perl_is("utime(500_000_000_000, 500_000_000_000, '$tmpfile1')", + "", { stderr => 1 }, + "check debug output removed"); + unlink $tmpfile1; +} + # Other stat issues possibly fixed by the stat() re-work # https://github.com/Perl/perl5/issues/9025 - win32 - file test operators don't work for //?/UNC/server/file filenames |