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

(-)a/t/db_dependent/Circulation.t (-1 / +1 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 105;
20
use Test::More tests => 109;
21
21
22
use DateTime;
22
use DateTime;
23
23
(-)a/t/db_dependent/Circulation/issue.t (-3 / +2 lines)
Lines 207-214 $sth = $dbh->prepare($query); Link Here
207
$sth->execute;
207
$sth->execute;
208
my $countaccount = $sth -> fetchrow_array;
208
my $countaccount = $sth -> fetchrow_array;
209
is ($countaccount,0,"0 accountline exists");
209
is ($countaccount,0,"0 accountline exists");
210
is( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ),
210
is( ref( C4::Circulation::AddIssuingCharge( $item_id1, $borrower_id1, 10 ) ),
211
    1, "An issuing charge has been added" );
211
    'Koha::Account::Offset', "An issuing charge has been added" );
212
my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef );
212
my $account_id = $dbh->last_insert_id( undef, undef, 'accountlines', undef );
213
$sth->execute;
213
$sth->execute;
214
$countaccount = $sth -> fetchrow_array;
214
$countaccount = $sth -> fetchrow_array;
215
- 

Return to bug 14826