|
Lines 199-205
subtest 'cancel() tests' => sub {
Link Here
|
| 199 |
is( $ar->cancellation_reason, $reason, 'Cancellation reason stored correctly' ); |
199 |
is( $ar->cancellation_reason, $reason, 'Cancellation reason stored correctly' ); |
| 200 |
is( $ar->notes, $notes, 'Notes stored correctly' ); |
200 |
is( $ar->notes, $notes, 'Notes stored correctly' ); |
| 201 |
|
201 |
|
| 202 |
is( abs $patron->account->balance, $payed_amount, 'The patron has been refunded the right value' ); |
202 |
is( $patron->account->balance, -$payed_amount, 'The patron has a credit balance' ); |
| 203 |
|
203 |
|
| 204 |
$schema->storage->txn_rollback; |
204 |
$schema->storage->txn_rollback; |
| 205 |
}; |
205 |
}; |
| 206 |
- |
|
|