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

(-)a/t/db_dependent/ILSDI_Services.t (-3 / +10 lines)
Lines 103-109 subtest 'AuthenticatePatron test' => sub { Link Here
103
103
104
subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes' => sub {
104
subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes' => sub {
105
105
106
    plan tests => 2;
106
    plan tests => 4;
107
107
108
    $schema->storage->txn_begin;
108
    $schema->storage->txn_begin;
109
109
Lines 191-197 subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes Link Here
191
        }
191
        }
192
    } );
192
    } );
193
193
194
    $builder->build(
194
    my $fine = $builder->build(
195
        {
195
        {
196
            source => 'Accountline',
196
            source => 'Accountline',
197
            value  => {
197
            value  => {
Lines 208-213 subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes Link Here
208
    $query->param( 'service', 'GetPatronInfo' );
208
    $query->param( 'service', 'GetPatronInfo' );
209
    $query->param( 'patron_id', $brwr->{'borrowernumber'} );
209
    $query->param( 'patron_id', $brwr->{'borrowernumber'} );
210
    $query->param( 'show_attributes', '1' );
210
    $query->param( 'show_attributes', '1' );
211
    $query->param( 'show_fines', '1' );
211
212
212
    my $reply = C4::ILSDI::Services::GetPatronInfo( $query );
213
    my $reply = C4::ILSDI::Services::GetPatronInfo( $query );
213
214
Lines 225-230 subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes Link Here
225
    is( $reply->{'charges'}, '10.00',
226
    is( $reply->{'charges'}, '10.00',
226
        'The \'charges\' attribute should be correctly filled (bug 17836)' );
227
        'The \'charges\' attribute should be correctly filled (bug 17836)' );
227
228
229
    is( scalar( @{$reply->{fines}->{fine}}), 1, 'There should be only 1 account line');
230
    is(
231
        $reply->{fines}->{fine}->[0]->{accountlines_id},
232
        $fine->{accountlines_id},
233
        "The accountline should be the correct one"
234
    );
235
228
    # Check results:
236
    # Check results:
229
    is_deeply( $reply->{'attributes'}, [ $cmp ], 'Test GetPatronInfo - show_attributes parameter' );
237
    is_deeply( $reply->{'attributes'}, [ $cmp ], 'Test GetPatronInfo - show_attributes parameter' );
230
238
231
- 

Return to bug 21681