Skip to content

Commit

Permalink
Tie-File: 29_downcopy.t: improve 'ok' output
Browse files Browse the repository at this point in the history
Each call to try does two ok's: make the description vary slightly
between the two ok outputs to distinguish them.
  • Loading branch information
iabyn committed Feb 25, 2024
1 parent 6c203a2 commit 71114de
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions dist/Tie-File/t/29_downcopy.t
Original file line number Diff line number Diff line change
Expand Up @@ -298,8 +298,8 @@ sub try0 {
if ($err) {
if ($err =~ /^Alarm clock/) {
print STDERR "# $0 Timeout after $alarm_time seconds at test $N - $desc\n";
print "not ok $N - $desc\n"; $N++;
print "not ok $N - $desc\n"; $N++;
print "not ok $N - exp $desc TIMEOUT\n"; $N++;
print "not ok $N - ret $desc TIMEOUT\n"; $N++;
return;
} else {
$@ = $err;
Expand All @@ -321,9 +321,9 @@ sub try0 {
for (@ARGS) { $_ = "UNDEF" unless defined }
print "# try(@ARGS) expected file length $xlen, actual $alen!\n";
}
print $actual eq $expected ? "ok $N - $desc\n" : "not ok $N - $desc\n";
print $actual eq $expected ? "ok $N - exp $desc\n" : "not ok $N - exp $desc\n";
$N++;
print $a_retval eq $x_retval ? "ok $N - $desc\n" : "not ok $N - $desc\n";
print $a_retval eq $x_retval ? "ok $N - ret $desc\n" : "not ok $N - ret $desc\n";
$N++;
}

Expand Down

0 comments on commit 71114de

Please sign in to comment.