From 3b59bc342d83d4d0d8d0c7083728278bdc5dbea4 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 18 Jul 2006 10:40:13 +0000 Subject: [PATCH] Note failure as well as success. --- lib/ZOOM/IRSpy/Test/Ping.pm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Ping.pm b/lib/ZOOM/IRSpy/Test/Ping.pm index 36b4b1f..af61b3c 100644 --- a/lib/ZOOM/IRSpy/Test/Ping.pm +++ b/lib/ZOOM/IRSpy/Test/Ping.pm @@ -1,4 +1,4 @@ -# $Id: Ping.pm,v 1.5 2006-07-11 14:16:06 mike Exp $ +# $Id: Ping.pm,v 1.6 2006-07-18 10:40:13 mike Exp $ # See the "Main" test package for documentation @@ -19,17 +19,23 @@ sub run { my $pod = $irspy->pod(); $pod->callback(ZOOM::Event::CONNECT, \&connected); + $pod->callback("exception", \¬_connected); my $err = $pod->wait($irspy); return 0; } -sub connected { - my($conn, $irspy, $rs, $event) = @_; +sub connected { maybe_connected(@_, 1) } +sub not_connected { maybe_connected(@_, 0) } + +sub maybe_connected { + my($conn, $irspy, $rs, $event, $ok) = @_; my $rec = $irspy->record($conn); - $irspy->log("irspy_test", $conn->option("host"), " connected"); + $irspy->log("irspy_test", $conn->option("host"), + ($ok ? "" : " not"), " connected"); + $rec->failed(1) if !$ok; ### At this point we should note the successful connection in $rec return 0; } -- 1.7.10.4