From 54ba2fb4301509ffc779d526a645ea2317552a6c Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 17 Oct 2006 15:46:30 +0000 Subject: [PATCH] Task-level logging for failed tests. --- lib/ZOOM/IRSpy.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index aad702c..595d427 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.31 2006-10-13 15:17:25 mike Exp $ +# $Id: IRSpy.pm,v 1.32 2006-10-17 15:46:30 mike Exp $ package ZOOM::IRSpy; @@ -404,6 +404,7 @@ sub check { } elsif ($res == ZOOM::IRSpy::Status::TEST_GOOD || $res == ZOOM::IRSpy::Status::TEST_BAD) { my $x = ($res == ZOOM::IRSpy::Status::TEST_GOOD) ? "good" : "bad"; + $conn->log("irspy_task", "test ended during task $task ($x)"); $conn->log("irspy_test", "test completed ($x)"); $conn->current_task(0); $conn->next_task(0); -- 1.7.10.4