summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2018-10-29 16:44:31 -0400
committerJames E Keenan <jkeenan@cpan.org>2018-10-30 17:28:23 -0400
commit398bbfb82b1eaa00be42f52712440e992b029a13 (patch)
treee84f31264865b12f5e621bb81f33ec17aeae8c1d
parent40f909803ebee7624103ac43c37efa8f2ba605ae (diff)
downloadperl-398bbfb82b1eaa00be42f52712440e992b029a13.tar.gz
Add notes so it's easier to see where we are in test file.
-rw-r--r--t/io/fs.t6
1 files changed, 4 insertions, 2 deletions
diff --git a/t/io/fs.t b/t/io/fs.t
index d5aa336393..7f5be246c5 100644
--- 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) {