|
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 |
} |