projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of ssh://git.indexdata.com/home/git/pub/irspy
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Test
/
ResultSet
/
Named.pm
diff --git
a/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm
b/lib/ZOOM/IRSpy/Test/ResultSet/Named.pm
index
fc1cc64
..
9acc097
100644
(file)
--- a/
lib/ZOOM/IRSpy/Test/ResultSet/Named.pm
+++ b/
lib/ZOOM/IRSpy/Test/ResultSet/Named.pm
@@
-1,4
+1,3
@@
-# $Id: Named.pm,v 1.5 2007-03-15 11:38:53 mike Exp $
# See the "Main" test package for documentation
# See the "Main" test package for documentation
@@
-86,7
+85,7
@@
sub completed_search_b {
$error = 'hitcount';
}
$error = 'hitcount';
}
- if ($record ne $test_args->{'record_a'}) {
+ if (!defined $record || $record ne $test_args->{'record_a'}) {
$conn->log('irspy_test', 'Named result set not supported: ',
'Mis-matching records');
$error = 'record';
$conn->log('irspy_test', 'Named result set not supported: ',
'Mis-matching records');
$error = 'record';
@@
-104,6
+103,7
@@
sub error {
my($conn, $task, $test_args, $exception) = @_;
$conn->log("irspy_test", "Named resultset check failed:", $exception);
my($conn, $task, $test_args, $exception) = @_;
$conn->log("irspy_test", "Named resultset check failed:", $exception);
+ zoom_error_timeout_update($conn, $exception);
return ZOOM::IRSpy::Status::TASK_DONE;
}
return ZOOM::IRSpy::Status::TASK_DONE;
}