|
Lines 327-333
subtest 'Handle ids duplication' => sub {
Link Here
|
| 327 |
is( $messages->{DataCorrupted}, 1, 'messages should have the DataCorrupted flag set to 1' ); |
327 |
is( $messages->{DataCorrupted}, 1, 'messages should have the DataCorrupted flag set to 1' ); |
| 328 |
|
328 |
|
| 329 |
my $account_lines = Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber, issue_id => $issue_id }); |
329 |
my $account_lines = Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber, issue_id => $issue_id }); |
| 330 |
is( $account_lines->count, 0, 'No account lines should exist for this issue_id, patron should not have been charged' ); |
330 |
is( $account_lines->count, 1, 'One account line should exist for this issue_id, the patron was charged a rental fee by AddIssue' ); |
| 331 |
|
331 |
|
| 332 |
is( Koha::Checkouts->find( $issue_id )->issue_id, $issue_id, 'The issues entry should not have been removed' ); |
332 |
is( Koha::Checkouts->find( $issue_id )->issue_id, $issue_id, 'The issues entry should not have been removed' ); |
| 333 |
}; |
333 |
}; |
| 334 |
- |
|
|