+
+ # Here I want to get a use attribute from the session, which we've
+ # managed to search for in the Search/Bib1 or Search/Dan1 tests.
+ # But how? So far we search for title: 1=4
+ $conn->irspy_search_pqf($queries[0], { queryindex => 0 }, {},
+ ZOOM::Event::ZEND, \&completed_search,
+ exception => \&completed_search);
+}
+
+
+sub completed_search {
+ my($conn, $task, $udata, $event) = @_;
+
+ my $n = $task->{rs}->size();
+ $conn->log("irspy_test", "Fetch test search (", $task->render_query(), ") ",
+ ref $event && $event->isa("ZOOM::Exception") ?
+ "failed: $event" : "found $n records (event=$event)");
+ if ($n == 0) {
+ $task->{rs}->destroy();
+ my $qindex = $udata->{queryindex}+1;
+ my $q = $queries[$qindex];
+ return ZOOM::IRSpy::Status::TEST_SKIPPED
+ if !defined $q;
+
+ $conn->log("irspy_test", "Trying another search ...");
+ $conn->irspy_search_pqf($queries[$qindex], { queryindex => $qindex }, {},
+ ZOOM::Event::ZEND, \&completed_search,
+ exception => \&completed_search);
+ return ZOOM::IRSpy::Status::TASK_DONE;
+ }
+