diff options
author | David Mitchell <davem@iabyn.com> | 2022-11-18 10:05:32 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2022-11-18 10:07:13 +0000 |
commit | f2df8f283fc616ea58c6ae26cf85356b7bb066c9 (patch) | |
tree | 226e079d2c9593917f706fb6eab2fa1294e71600 | |
parent | 23eac292b841f2e39bb594d1e62f46a30b2aded0 (diff) | |
download | perl-f2df8f283fc616ea58c6ae26cf85356b7bb066c9.tar.gz |
dist/Tie-File/t/29a_upcopy.t add test descriptions
-rw-r--r-- | dist/Tie-File/t/29a_upcopy.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dist/Tie-File/t/29a_upcopy.t b/dist/Tie-File/t/29a_upcopy.t index 62b860f554..53e45639ab 100644 --- a/dist/Tie-File/t/29a_upcopy.t +++ b/dist/Tie-File/t/29a_upcopy.t @@ -157,7 +157,9 @@ sub try { unless ($alen == $xlen) { print "# try(@_) expected file length $xlen, actual $alen!\n"; } - print $actual eq $expected ? "ok $N\n" : "not ok $N\n"; + my $desc = sprintf "try(%d, %d, %s)", + $src, $dst, (defined $len ? $len : "undef"); + print $actual eq $expected ? "ok $N - $desc\n" : "not ok $N - $desc\n"; $N++; } |