Lines 155-162
subtest "recordpayment() tests" => sub {
Link Here
|
155 |
|
155 |
|
156 |
my $line1 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 100 })->store(); |
156 |
my $line1 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 100 })->store(); |
157 |
my $line2 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 200 })->store(); |
157 |
my $line2 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 200 })->store(); |
158 |
$line1->_result->discard_changes; |
|
|
159 |
$line2->_result->discard_changes; |
160 |
|
158 |
|
161 |
$sth = $dbh->prepare("SELECT count(*) FROM accountlines"); |
159 |
$sth = $dbh->prepare("SELECT count(*) FROM accountlines"); |
162 |
$sth->execute; |
160 |
$sth->execute; |
163 |
- |
|
|