This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add notes so it's easier to see where we are in test file.
authorJames E Keenan <jkeenan@cpan.org>
Mon, 29 Oct 2018 20:44:31 +0000 (16:44 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Tue, 30 Oct 2018 21:28:23 +0000 (17:28 -0400)
t/io/fs.t

index d5aa336..7f5be24 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -247,6 +247,7 @@ is($ino, undef, "ino of renamed file a should be undef");
 $delta = $accurate_timestamps ? 1 : 2; # Granularity of time on the filesystem
 chmod 0777, 'b';
 
+note("basic check of atime and mtime");
 $foo = (utime 500000000,500000000 + $delta,'b');
 is($foo, 1, "utime");
 check_utime_result();
@@ -259,6 +260,7 @@ isnt($mtime, 500000000 + $delta, 'mtime');
 
 SKIP: {
     skip "no futimes", 6 unless ($Config{d_futimes} || "") eq "define";
+    note("check futimes");
     open(my $fh, "<", 'b');
     $foo = (utime 500000000,500000000 + $delta, $fh);
     is($foo, 1, "futime");
@@ -291,8 +293,8 @@ sub check_utime_result {
 
        note("# atime - $atime  mtime - $mtime  delta - $delta");
        if($atime == 500000000 && $mtime == 500000000 + $delta) {
-           pass('atime');
-           pass('mtime');
+           pass('atime: granularity test');
+           pass('mtime: granularity test');
        }
        else {
            if ($^O =~ /\blinux\b/i) {