|
Lines 381-387
is( Check_Userid( C4::Context->config('user'), '' ), 0,
Link Here
|
| 381 |
|
381 |
|
| 382 |
subtest 'GetMemberAccountRecords' => sub { |
382 |
subtest 'GetMemberAccountRecords' => sub { |
| 383 |
|
383 |
|
| 384 |
plan tests => 2; |
384 |
plan tests => 3; |
| 385 |
|
385 |
|
| 386 |
my $borrowernumber = $builder->build({ source => 'Borrower' })->{ borrowernumber }; |
386 |
my $borrowernumber = $builder->build({ source => 'Borrower' })->{ borrowernumber }; |
| 387 |
my $accountline_1 = $builder->build({ |
387 |
my $accountline_1 = $builder->build({ |
|
Lines 395-400
subtest 'GetMemberAccountRecords' => sub {
Link Here
|
| 395 |
my ($total,undef,undef) = GetMemberAccountRecords( $borrowernumber ); |
395 |
my ($total,undef,undef) = GetMemberAccountRecords( $borrowernumber ); |
| 396 |
is( $total , 64.60, "Rounding works correctly in total calculation (single value)" ); |
396 |
is( $total , 64.60, "Rounding works correctly in total calculation (single value)" ); |
| 397 |
|
397 |
|
|
|
398 |
my $borrowernumber2 = $builder->build({ source => 'Borrower' })->{ borrowernumber }; |
| 399 |
my $accountline_2 = $builder->build({ |
| 400 |
source => 'Accountline', |
| 401 |
value => { |
| 402 |
borrowernumber => $borrowernumber2, |
| 403 |
amountoutstanding => 7.56 |
| 404 |
} |
| 405 |
}); |
| 406 |
($total,undef,undef) = GetMemberAccountRecords( $borrowernumber2 ); |
| 407 |
is( $total , 7.56, "Rounding works correctly in total calculation (single value)" ); |
| 408 |
|
| 398 |
my $accountline_2 = $builder->build({ |
409 |
my $accountline_2 = $builder->build({ |
| 399 |
source => 'Accountline', |
410 |
source => 'Accountline', |
| 400 |
value => { |
411 |
value => { |
| 401 |
- |
|
|