t/io/fs.t

100 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
111     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
137     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
152     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
161     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
172     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
177     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
237 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
247 note("basic check of atime and mtime");
253 ($atime,$mtime) = (stat 'b')[8,9];
254 note("# utime undef, undef --> $atime, $mtime");
255 isnt($atime, $ut,          'atime: utime called with two undefs');
282 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
479     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
488         skip "filesystem atime/mtime granularity too low", 2
495         note("# atime - $atime  mtime - $mtime  delta - $delta");
496         if($atime == $ut && $mtime == $ut + $delta) {
497             pass('atime: granularity test');
505                 note("# Maybe stat() cannot get the correct atime, ".
510                 if ($new_atime == $atime && $new_mtime - $mtime == $delta) {
511                     pass("atime - accounted for possible NFS/glibc2.2 bug on linux");
515                     fail("atime - $atime/$new_atime $mtime/$new_mtime");
516                     fail("mtime - $atime/$new_atime $mtime/$new_mtime");
521                 is( $atime, $ut + 1,      'atime: VMS' );
525                 pass("atime not updated");
529                 fail("atime: default case");
532         } # END failed atime mtime 'else' block