From dd10af007f7a8a3d05293148cbd71cbace57e1e9 Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Fri, 13 Oct 2006 10:03:31 +0000 Subject: [PATCH] Passing hash ref as a test and using a more generic xml representation of the test result. --- lib/ZOOM/IRSpy/Test/Search/Bib1.pm | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Search/Bib1.pm b/lib/ZOOM/IRSpy/Test/Search/Bib1.pm index d01fb5b..4f60481 100644 --- a/lib/ZOOM/IRSpy/Test/Search/Bib1.pm +++ b/lib/ZOOM/IRSpy/Test/Search/Bib1.pm @@ -1,4 +1,4 @@ -# $Id: Bib1.pm,v 1.8 2006-10-12 14:40:33 mike Exp $ +# $Id: Bib1.pm,v 1.9 2006-10-13 10:03:31 sondberg Exp $ # See the "Main" test package for documentation @@ -8,6 +8,7 @@ use 5.008; use strict; use warnings; +use Data::Dumper; use ZOOM::IRSpy::Test; our @ISA = qw(ZOOM::IRSpy::Test); @@ -23,7 +24,8 @@ sub start { 1016, # any ); foreach my $attr (@attrs) { - $conn->irspy_search_pqf("\@attr 1=$attr mineral", $attr, + $conn->irspy_search_pqf("\@attr 1=$attr mineral", + {'attr' => $attr}, ZOOM::Event::RECV_SEARCH, \&found, exception => \&error); } @@ -31,29 +33,31 @@ sub start { sub found { - my($conn, $task, $attr, $event) = @_; - + my($conn, $task, $test_args, $event) = @_; + my $attr = $test_args->{'attr'}; my $n = $task->{rs}->size(); + $conn->log("irspy_test", "search on access-point $attr found $n record", $n==1 ? "" : "s"); $conn->record()->append_entry("irspy:status", - "" . + "". isodate(time()) . - ""); + ""); return ZOOM::IRSpy::Status::TASK_DONE; } sub error { - my($conn, $task, $attr, $exception) = @_; + my($conn, $task, $test_args, $exception) = @_; + my $attr = $test_args->{'attr'}; $conn->log("irspy_test", "search on access-point $attr had error: ", $exception); $conn->record()->append_entry("irspy:status", - "" . + "". isodate(time()) . - ""); + ""); return ZOOM::IRSpy::Status::TASK_DONE; } -- 1.7.10.4