From 306497793bbb2d3b62816cb7e4ce65dcabadcea8 Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Fri, 13 Oct 2006 13:40:29 +0000 Subject: [PATCH] Getting ready to search for Dan1 attributes. --- lib/ZOOM/IRSpy/Test/Search/Dan1.pm | 60 ++++++++++++++++++++++++++++++++++++ lib/ZOOM/IRSpy/Test/Search/Main.pm | 4 +-- 2 files changed, 62 insertions(+), 2 deletions(-) create mode 100644 lib/ZOOM/IRSpy/Test/Search/Dan1.pm diff --git a/lib/ZOOM/IRSpy/Test/Search/Dan1.pm b/lib/ZOOM/IRSpy/Test/Search/Dan1.pm new file mode 100644 index 0000000..f435ba9 --- /dev/null +++ b/lib/ZOOM/IRSpy/Test/Search/Dan1.pm @@ -0,0 +1,60 @@ +# $Id: Dan1.pm,v 1.1 2006-10-13 13:40:29 sondberg Exp $ + +# See the "Main" test package for documentation + +package ZOOM::IRSpy::Test::Search::Dan1; + +use 5.008; +use strict; +use warnings; + +use ZOOM::IRSpy::Test; +our @ISA = qw(ZOOM::IRSpy::Test); + + +sub start { + my $class = shift(); + my($conn) = @_; + my @attrs = ( 1..27 # Dan-1 + ); + + foreach my $attr (@attrs) { + $conn->irspy_search_pqf("\@attr dan1 1=$attr mineral", + {'attr' => $attr}, + ZOOM::Event::RECV_SEARCH, \&found, + exception => \&error); + } +} + + +sub found { + 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, $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; diff --git a/lib/ZOOM/IRSpy/Test/Search/Main.pm b/lib/ZOOM/IRSpy/Test/Search/Main.pm index dd9371d..3fb4edb 100644 --- a/lib/ZOOM/IRSpy/Test/Search/Main.pm +++ b/lib/ZOOM/IRSpy/Test/Search/Main.pm @@ -1,4 +1,4 @@ -# $Id: Main.pm,v 1.3 2006-10-12 16:54:13 mike Exp $ +# $Id: Main.pm,v 1.4 2006-10-13 13:40:29 sondberg Exp $ package ZOOM::IRSpy::Test::Search::Main; @@ -9,7 +9,7 @@ use warnings; use ZOOM::IRSpy::Test; our @ISA = qw(ZOOM::IRSpy::Test); -sub subtests { qw(Search::Title Search::Bib1) } +sub subtests { qw(Search::Title Search::Bib1 Search::Dan1) } sub start { my $class = shift(); -- 1.7.10.4