remove some leftover debug output from filetime_from_time()

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