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
Resolve
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Test
/
Record
/
OPAC.pm
diff --git
a/lib/ZOOM/IRSpy/Test/Record/OPAC.pm
b/lib/ZOOM/IRSpy/Test/Record/OPAC.pm
index
4045201
..
caca4ce
100644
(file)
--- a/
lib/ZOOM/IRSpy/Test/Record/OPAC.pm
+++ b/
lib/ZOOM/IRSpy/Test/Record/OPAC.pm
@@
-75,8
+75,16
@@
sub completed_search {
# We have a result-set of three of more records, and we requested
# that those records be included in the Search Response using
# piggybacking. Was it done?
# We have a result-set of three of more records, and we requested
# that those records be included in the Search Response using
# piggybacking. Was it done?
+ my $ok = 0;
my $rec = $task->{rs}->record_immediate(2);
my $rec = $task->{rs}->record_immediate(2);
- my $ok = defined $rec && $rec->error() == 0;
+ if (defined $rec) {
+ my $syntax = $rec->get("syntax");
+ if (lc($syntax) ne "opac") {
+ $conn->log("irspy_test", "requested OPAC record, but got $syntax");
+ } else {
+ $ok = $rec->error() == 0;
+ }
+ }
$task->{rs}->destroy();
$conn->record()->store_result('multiple_opac', 'ok' => $ok);
$task->{rs}->destroy();
$conn->record()->store_result('multiple_opac', 'ok' => $ok);