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