+ my $n = $task->{rs}->size();
+ $conn->log("irspy_test", "Fetch test search found $n records");
+ if ($n == 0) {
+ my $n = $udata->{queryindex}+1;
+ my $q = $queries[$n];
+ if (defined $q) {
+ $conn->log("irspy_test", "Trying another search ...");
+ $conn->irspy_search_pqf($queries[$n], { queryindex => $n }, {},
+ ZOOM::Event::RECV_SEARCH, \&completed_search,
+ exception => \&error);
+ return ZOOM::IRSpy::Status::TASK_DONE;
+ } else {
+ return ZOOM::IRSpy::Status::TEST_SKIPPED;
+ }
+ }
+