|
Lines 192-198
subtest 'add_credit() tests' => sub {
Link Here
|
| 192 |
$schema->storage->txn_rollback; |
192 |
$schema->storage->txn_rollback; |
| 193 |
}; |
193 |
}; |
| 194 |
|
194 |
|
| 195 |
subtest 'normalize_balance' => sub { |
195 |
subtest 'reconcile_balance' => sub { |
| 196 |
|
196 |
|
| 197 |
plan tests => 3; |
197 |
plan tests => 3; |
| 198 |
|
198 |
|
|
Lines 226-232
subtest 'normalize_balance' => sub {
Link Here
|
| 226 |
is( $account->outstanding_debits->total_outstanding, 10, 'Outstanding debits sum 10' ); |
226 |
is( $account->outstanding_debits->total_outstanding, 10, 'Outstanding debits sum 10' ); |
| 227 |
is( $account->outstanding_credits->total_outstanding, -15, 'Outstanding credits sum -15' ); |
227 |
is( $account->outstanding_credits->total_outstanding, -15, 'Outstanding credits sum -15' ); |
| 228 |
|
228 |
|
| 229 |
$account->normalize_balance(); |
229 |
$account->reconcile_balance(); |
| 230 |
|
230 |
|
| 231 |
is( $account->balance(), -5, "Account balance is -5" ); |
231 |
is( $account->balance(), -5, "Account balance is -5" ); |
| 232 |
is( $account->outstanding_debits->total_outstanding, 0, 'No outstanding debits' ); |
232 |
is( $account->outstanding_debits->total_outstanding, 0, 'No outstanding debits' ); |
|
Lines 264-270
subtest 'normalize_balance' => sub {
Link Here
|
| 264 |
is( $account->outstanding_debits->total_outstanding, 10, 'Outstanding debits sum 10' ); |
264 |
is( $account->outstanding_debits->total_outstanding, 10, 'Outstanding debits sum 10' ); |
| 265 |
is( $account->outstanding_credits->total_outstanding, -10, 'Outstanding credits sum -10' ); |
265 |
is( $account->outstanding_credits->total_outstanding, -10, 'Outstanding credits sum -10' ); |
| 266 |
|
266 |
|
| 267 |
$account->normalize_balance(); |
267 |
$account->reconcile_balance(); |
| 268 |
|
268 |
|
| 269 |
is( $account->balance(), 0, "Account balance is 0" ); |
269 |
is( $account->balance(), 0, "Account balance is 0" ); |
| 270 |
is( $account->outstanding_debits->total_outstanding, 0, 'No outstanding debits' ); |
270 |
is( $account->outstanding_debits->total_outstanding, 0, 'No outstanding debits' ); |
|
Lines 303-309
subtest 'normalize_balance' => sub {
Link Here
|
| 303 |
is( $account->outstanding_debits->total_outstanding, 15, 'Outstanding debits sum 15' ); |
303 |
is( $account->outstanding_debits->total_outstanding, 15, 'Outstanding debits sum 15' ); |
| 304 |
is( $account->outstanding_credits->total_outstanding, -10, 'Outstanding credits sum -10' ); |
304 |
is( $account->outstanding_credits->total_outstanding, -10, 'Outstanding credits sum -10' ); |
| 305 |
|
305 |
|
| 306 |
$account->normalize_balance(); |
306 |
$account->reconcile_balance(); |
| 307 |
|
307 |
|
| 308 |
is( $account->balance(), 5, "Account balance is 5" ); |
308 |
is( $account->balance(), 5, "Account balance is 5" ); |
| 309 |
is( $account->outstanding_debits->total_outstanding, 5, 'Outstanding debits sum 5' ); |
309 |
is( $account->outstanding_debits->total_outstanding, 5, 'Outstanding debits sum 5' ); |
| 310 |
- |
|
|