diff options
author | James E Keenan <jkeenan@cpan.org> | 2018-10-29 16:44:31 -0400 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2018-10-30 17:28:23 -0400 |
commit | 398bbfb82b1eaa00be42f52712440e992b029a13 (patch) | |
tree | e84f31264865b12f5e621bb81f33ec17aeae8c1d | |
parent | 40f909803ebee7624103ac43c37efa8f2ba605ae (diff) | |
download | perl-398bbfb82b1eaa00be42f52712440e992b029a13.tar.gz |
Add notes so it's easier to see where we are in test file.
-rw-r--r-- | t/io/fs.t | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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) { |