View | Details | Raw Unified | Return to bug 14385
Collapse All | Expand All

(-)a/t/db_dependent/ILSDI_Services.t (-2 / +40 lines)
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
}

Return to bug 14385