From 26360761aba0b9b4043c8cc3f0dcdb073491ea13 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 3 Nov 2006 13:11:29 +0000 Subject: [PATCH] Support for Status::TEST_SKIPPED --- lib/ZOOM/IRSpy.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 5cbd307..e6f2c52 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.47 2006-11-02 13:16:49 mike Exp $ +# $Id: IRSpy.pm,v 1.48 2006-11-03 13:11:29 mike Exp $ package ZOOM::IRSpy; @@ -29,6 +29,7 @@ sub OK { 29 } # No problems, task is still progressing sub TASK_DONE { 18 } # Task is complete, next task should begin sub TEST_GOOD { 8 } # Whole test is complete, and succeeded sub TEST_BAD { 31 } # Whole test is complete, and failed +sub TEST_SKIPPED { 12 } # Test couldn't be run package ZOOM::IRSpy; @@ -447,6 +448,13 @@ sub check { $nskipped += $n; } } + + } elsif ($res == ZOOM::IRSpy::Status::TEST_SKIPPED) { + $conn->log("irspy_task", "test skipped during task $task"); + $conn->current_task(0); + $conn->next_task(0); + # I think that's all we need to do + } else { die "unknown callback return-value '$res'"; } -- 1.7.10.4