Skip to content

Commit a85f936

Browse files
committed
Tie-File: report test timeouts to STDERR
Currently some tests have a 5 second timeout. If this is exceeded, the test number is output as "not ok", along with "# Timeout" to STDOUT. Change the latter to output to STDERR along with the test filename and test number, for easer debugging of smoke logs. (Really these test files need upgrading to use Test::* but that's a job for another day and another person....)
1 parent f29bc14 commit a85f936

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

dist/Tie-File/t/29_downcopy.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -280,7 +280,7 @@ sub try {
280280
undef $o; untie @lines; alarm(0);
281281
if ($err) {
282282
if ($err =~ /^Alarm clock/) {
283-
print "# Timeout\n";
283+
print STDERR "# $0 Timeout at test $N\n";
284284
print "not ok $N\n"; $N++;
285285
print "not ok $N\n"; $N++;
286286
if (defined $len) {

dist/Tie-File/t/29a_upcopy.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -136,7 +136,7 @@ sub try {
136136
undef $o; untie @lines; alarm(0);
137137
if ($err) {
138138
if ($err =~ /^Alarm clock/) {
139-
print "# Timeout\n";
139+
print STDERR "# $0 Timeout at test $N\n";
140140
print "not ok $N\n"; $N++;
141141
return;
142142
} else {

0 commit comments

Comments
 (0)