Lines 19-25
use Modern::Perl;
Link Here
|
19 |
|
19 |
|
20 |
use CGI qw ( -utf8 ); |
20 |
use CGI qw ( -utf8 ); |
21 |
|
21 |
|
22 |
use Test::More tests => 3; |
22 |
use Test::More tests => 4; |
23 |
use Test::MockModule; |
23 |
use Test::MockModule; |
24 |
use t::lib::Mocks; |
24 |
use t::lib::Mocks; |
25 |
use t::lib::TestBuilder; |
25 |
use t::lib::TestBuilder; |
Lines 198-200
subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes
Link Here
|
198 |
$schema->storage->txn_rollback; |
198 |
$schema->storage->txn_rollback; |
199 |
}; |
199 |
}; |
200 |
|
200 |
|
201 |
- |
201 |
|
|
|
202 |
# This is a stub, as it merely is for triggering the GetMarcBiblio call. |
203 |
subtest 'GetRecords' => sub { |
204 |
|
205 |
plan tests => 1; |
206 |
|
207 |
$schema->storage->txn_begin; |
208 |
|
209 |
my $biblio = $builder->build({ |
210 |
source => 'Biblio', |
211 |
value => { |
212 |
title => 'Title 1', }, |
213 |
}); |
214 |
|
215 |
my $item = $builder->build({ |
216 |
source => 'Item', |
217 |
value => { |
218 |
biblionumber => $biblio->{biblionumber}, |
219 |
}, |
220 |
}); |
221 |
|
222 |
my $biblioitem = $builder->build({ |
223 |
source => 'Biblioitem', |
224 |
value => { |
225 |
biblionumber => $biblio->{biblionumber}, |
226 |
itemnumber => $item->{itemnumber}, |
227 |
}, |
228 |
}); |
229 |
|
230 |
my $query = CGI->new({ |
231 |
'schema' => 'MARCXML', |
232 |
'id' => [ $biblio->{biblionumber} ] |
233 |
}); |
234 |
|
235 |
my $result = C4::ILSDI::Services::GetRecords($query); |
236 |
ok($result,'There is a result'); |
237 |
|
238 |
$schema->storage->txn_rollback; |
239 |
} |