1 # $Id: Fetch.pm,v 1.6 2006-10-25 11:44:35 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);
40 foreach my $syn (@syntax) {
41 ## Here I want to get a use attribute from the session, which we've
42 ## managed to search for in the Search/Bib1 or Search/Dan1 tests. But
43 ## how? So far we search for title: 1=4
44 $conn->irspy_search_pqf("\@attr 1=4 mineral",
46 { start => 0, count => 1,
47 preferredRecordSyntax => $syn },
48 ZOOM::Event::RECV_RECORD, \&record,
49 exception => \&error);
55 my($conn, $task, $test_args, $event) = @_;
56 my $syn = $test_args->{'syntax'};
60 print STDERR "Hits: ", $rs->size(), "\n";
61 print STDERR "Syntax: ", $syn, "\n";
62 print STDERR $rs->record(0)->render();
65 $conn->log("irspy_test", "Successfully retrieved a $syn record");
66 $conn->record()->store_result('record_fetch',
70 return ZOOM::IRSpy::Status::TASK_DONE;
75 my($conn, $task, $test_args, $exception) = @_;
76 my $syn = $test_args->{'syntax'};
78 $conn->log("irspy_test", "Retrieval of $syn record failed: ", $exception);
79 $conn->record()->store_result('record_fetch',
82 return ZOOM::IRSpy::Status::TASK_DONE;