This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make descriptions more self-documenting
authorJames E Keenan <jkeenan@cpan.org>
Mon, 29 Oct 2018 21:00:50 +0000 (17:00 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Tue, 30 Oct 2018 21:28:23 +0000 (17:28 -0400)
So that while debugging we can see which 'atime' and 'utime' cases we
are handling.

t/io/fs.t

index 7f5be24..3ed0919 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -255,8 +255,8 @@ check_utime_result();
 utime undef, undef, 'b';
 ($atime,$mtime) = (stat 'b')[8,9];
 note("# utime undef, undef --> $atime, $mtime");
-isnt($atime, 500000000, 'atime');
-isnt($mtime, 500000000 + $delta, 'mtime');
+isnt($atime, 500000000,          'atime: utime called with two undefs');
+isnt($mtime, 500000000 + $delta, 'mtime: utime called with two undefs');
 
 SKIP: {
     skip "no futimes", 6 unless ($Config{d_futimes} || "") eq "define";
@@ -314,8 +314,8 @@ sub check_utime_result {
            }
            elsif ($^O eq 'VMS') {
                # why is this 1 second off?
-               is( $atime, 500000001,          'atime' );
-               is( $mtime, 500000000 + $delta, 'mtime' );
+               is( $atime, 500000001,          'atime: VMS' );
+               is( $mtime, 500000000 + $delta, 'mtime: VMS' );
            }
            elsif ($^O eq 'haiku') {
             SKIP: {
@@ -324,8 +324,8 @@ sub check_utime_result {
                is($mtime, 500000001, 'mtime');
            }
            else {
-               fail("atime");
-               fail("mtime");
+               fail("atime: default case");
+               fail("mtime: default case");
            }
        }
     }