diff options
| author | David Mitchell <davem@iabyn.com> | 2022-11-12 09:16:04 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2022-11-12 09:16:04 +0000 |
| commit | a85f936ace2104c88703975ecce6de2f18d0c4f3 (patch) | |
| tree | 264eb5f1497beca31fbcd191059da06e89254974 /dist | |
| parent | f29bc1413d76f0960f58d4a3c04b75d4680688c1 (diff) | |
| download | perl-a85f936ace2104c88703975ecce6de2f18d0c4f3.tar.gz | |
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....)
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Tie-File/t/29_downcopy.t | 2 | ||||
| -rw-r--r-- | dist/Tie-File/t/29a_upcopy.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/dist/Tie-File/t/29_downcopy.t b/dist/Tie-File/t/29_downcopy.t index a86d21f8e2..af27ae3fb0 100644 --- a/dist/Tie-File/t/29_downcopy.t +++ b/dist/Tie-File/t/29_downcopy.t @@ -280,7 +280,7 @@ sub try { undef $o; untie @lines; alarm(0); if ($err) { if ($err =~ /^Alarm clock/) { - print "# Timeout\n"; + print STDERR "# $0 Timeout at test $N\n"; print "not ok $N\n"; $N++; print "not ok $N\n"; $N++; if (defined $len) { diff --git a/dist/Tie-File/t/29a_upcopy.t b/dist/Tie-File/t/29a_upcopy.t index 2c593f1581..62b860f554 100644 --- a/dist/Tie-File/t/29a_upcopy.t +++ b/dist/Tie-File/t/29a_upcopy.t @@ -136,7 +136,7 @@ sub try { undef $o; untie @lines; alarm(0); if ($err) { if ($err =~ /^Alarm clock/) { - print "# Timeout\n"; + print STDERR "# $0 Timeout at test $N\n"; print "not ok $N\n"; $N++; return; } else { |