1 # $Id: Fetch.pm,v 1.1 2006-10-23 13:54:52 sondberg Exp $
3 # See the "Main" test package for documentation
5 package ZOOM::IRSpy::Test::Record::Fetch;
11 use ZOOM::IRSpy::Test;
12 our @ISA = qw(ZOOM::IRSpy::Test);
16 print STDERR "Got here\n";
20 my @syntax = ( 'canmarc',
41 foreach my $syn (@syntax) {
42 $conn->option('preferredRecordSyntax' => $syn);
43 $conn->option('start' => 0);
44 $conn->option('count' => 1);
46 ## Here I want to get a use attribute from the session, which we've
47 ## managed to search for in the Search/Bib1 or Search/Dan1 tests. But
48 ## how? So far we search for title: 1=4
49 $conn->irspy_search_pqf("\@attr 1=4 mineral",
51 ZOOM::Event::RECV_RECORD, \&record,
52 exception => \&error);
58 my($conn, $task, $test_args, $event) = @_;
59 my $syn = $test_args->{'syn'};
61 $conn->log("irspy_test", "search on access-point $attr found $n record",
63 $conn->record()->store_result('record_fetch',
67 return ZOOM::IRSpy::Status::TASK_DONE;
72 my($conn, $task, $test_args, $exception) = @_;
73 my $syn = $test_args->{'syn'};
75 $conn->log("irspy_test", "search on access-point $attr had error: ",
77 $conn->record()->store_result('record_fetch',
80 return ZOOM::IRSpy::Status::TASK_DONE;