Lines 31-36
use Test::More tests => 3;
Link Here
|
31 |
use Test::MockModule; |
31 |
use Test::MockModule; |
32 |
use Test::Warn; |
32 |
use Test::Warn; |
33 |
use t::lib::Mocks; |
33 |
use t::lib::Mocks; |
|
|
34 |
use t::lib::TestBuilder; |
34 |
|
35 |
|
35 |
use Koha::Caches; |
36 |
use Koha::Caches; |
36 |
|
37 |
|
Lines 45-50
use File::Path;
Link Here
|
45 |
our $child; |
46 |
our $child; |
46 |
our $datadir; |
47 |
our $datadir; |
47 |
|
48 |
|
|
|
49 |
my $builder = t::lib::TestBuilder->new; |
50 |
|
48 |
sub index_sample_records_and_launch_zebra { |
51 |
sub index_sample_records_and_launch_zebra { |
49 |
my ($datadir, $marc_type) = @_; |
52 |
my ($datadir, $marc_type) = @_; |
50 |
|
53 |
|
Lines 700-714
ok(MARC::Record::new_from_xml($results_hashref->{biblioserver}->{RECORDS}->[0],'
Link Here
|
700 |
## Regression test for Bug 10741 |
703 |
## Regression test for Bug 10741 |
701 |
|
704 |
|
702 |
# make one of the test items appear to be in transit |
705 |
# make one of the test items appear to be in transit |
703 |
my $circ_module = Test::MockModule->new('C4::Circulation'); |
706 |
my $transfer = $builder->build( |
704 |
$circ_module->mock('GetTransfers', sub { |
707 |
{ |
705 |
my $itemnumber = shift // -1; |
708 |
source => 'Branchtransfer', |
706 |
if ($itemnumber == 11) { |
709 |
value => { |
707 |
return ('2013-07-19', 'MPL', 'CPL'); |
710 |
itemnumber => 11, |
708 |
} else { |
711 |
frombranch => 'MPL', |
709 |
return; |
712 |
tobranch => 'CPL', |
|
|
713 |
datesent => \'NOW()' |
714 |
} |
710 |
} |
715 |
} |
711 |
}); |
716 |
); |
712 |
|
717 |
|
713 |
($error, $results_hashref, $facets_loop) = getRecords("TEST12121212","TEST12121212",[ ], [ 'biblioserver' ],20,0,\%branches,\%itemtypes,$query_type,0); |
718 |
($error, $results_hashref, $facets_loop) = getRecords("TEST12121212","TEST12121212",[ ], [ 'biblioserver' ],20,0,\%branches,\%itemtypes,$query_type,0); |
714 |
@newresults = searchResults({'interface'=>'intranet'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
719 |
@newresults = searchResults({'interface'=>'intranet'}, $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 17, 0, 0, |
715 |
- |
|
|