|
Lines 31-37
use Test::MockModule;
Link Here
|
| 31 |
use Test::Warn; |
31 |
use Test::Warn; |
| 32 |
use t::lib::Mocks; |
32 |
use t::lib::Mocks; |
| 33 |
use t::lib::Mocks::Zebra; |
33 |
use t::lib::Mocks::Zebra; |
| 34 |
use t::lib::TestBuilder; |
|
|
| 35 |
|
34 |
|
| 36 |
use Koha::Caches; |
35 |
use Koha::Caches; |
| 37 |
|
36 |
|
|
Lines 703-731
ok(MARC::Record::new_from_xml($results_hashref->{biblioserver}->{RECORDS}->[0],'
Link Here
|
| 703 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
702 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 704 |
is(scalar(@{$newresults[0]->{'ALTERNATEHOLDINGS'}}), 1, 'Alternate holdings filled in correctly'); |
703 |
is(scalar(@{$newresults[0]->{'ALTERNATEHOLDINGS'}}), 1, 'Alternate holdings filled in correctly'); |
| 705 |
|
704 |
|
| 706 |
|
|
|
| 707 |
## Regression test for Bug 10741 |
| 708 |
|
| 709 |
# make one of the test items appear to be in transit |
| 710 |
my $circ_module = Test::MockModule->new('C4::Circulation'); |
| 711 |
my $builder = t::lib::TestBuilder->new; |
| 712 |
my $transfer = $builder->build( |
| 713 |
{ |
| 714 |
source => 'Branchtransfer', |
| 715 |
value => { |
| 716 |
itemnumber => 11, |
| 717 |
frombranch => 'MPL', |
| 718 |
tobranch => 'CPL', |
| 719 |
datesent => \'NOW()' |
| 720 |
} |
| 721 |
} |
| 722 |
); |
| 723 |
|
| 724 |
($error, $results_hashref, $facets_loop) = getRecords("TEST12121212","TEST12121212",[ ], [ 'biblioserver' ],20,0,\%branches,\%itemtypes,$query_type,0); |
| 725 |
@newresults = searchResults({'interface'=>'intranet'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
| 726 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
| 727 |
ok(!exists($newresults[0]->{norequests}), 'presence of a transit does not block hold request action (bug 10741)'); |
| 728 |
|
| 729 |
## Regression test for bug 10684 |
705 |
## Regression test for bug 10684 |
| 730 |
( undef, $results_hashref, $facets_loop ) = |
706 |
( undef, $results_hashref, $facets_loop ) = |
| 731 |
getRecords('ti:punctuation', 'punctuation', [], [ 'biblioserver' ], '19', 0, \%branches, \%itemtypes, 'ccl', undef); |
707 |
getRecords('ti:punctuation', 'punctuation', [], [ 'biblioserver' ], '19', 0, \%branches, \%itemtypes, 'ccl', undef); |
|
Lines 947-953
sub run_unimarc_search_tests {
Link Here
|
| 947 |
} |
923 |
} |
| 948 |
|
924 |
|
| 949 |
subtest 'MARC21 + DOM' => sub { |
925 |
subtest 'MARC21 + DOM' => sub { |
| 950 |
plan tests => 94; |
926 |
plan tests => 93; |
| 951 |
run_marc21_search_tests(); |
927 |
run_marc21_search_tests(); |
| 952 |
}; |
928 |
}; |
| 953 |
|
929 |
|
| 954 |
- |
|
|