Lines 90-96
subtest 'outstanding_credits() tests' => sub {
Link Here
|
90 |
$schema->storage->txn_begin; |
90 |
$schema->storage->txn_begin; |
91 |
|
91 |
|
92 |
my $patron = $builder->build_object({ class => 'Koha::Patrons' }); |
92 |
my $patron = $builder->build_object({ class => 'Koha::Patrons' }); |
93 |
my $account = Koha::Account->new({ patron_id => $patron->id }); |
93 |
my $account = $patron->account; |
94 |
|
94 |
|
95 |
my @generated_lines; |
95 |
my @generated_lines; |
96 |
push @generated_lines, $account->add_credit({ amount => 1 }); |
96 |
push @generated_lines, $account->add_credit({ amount => 1 }); |
Lines 98-106
subtest 'outstanding_credits() tests' => sub {
Link Here
|
98 |
push @generated_lines, $account->add_credit({ amount => 3 }); |
98 |
push @generated_lines, $account->add_credit({ amount => 3 }); |
99 |
push @generated_lines, $account->add_credit({ amount => 4 }); |
99 |
push @generated_lines, $account->add_credit({ amount => 4 }); |
100 |
|
100 |
|
101 |
my ( $total, $lines ) = $account->outstanding_credits(); |
101 |
my $lines = $account->outstanding_credits(); |
102 |
|
102 |
|
103 |
is( $total, -10, 'Outstandig credits total is correctly calculated' ); |
103 |
is( $lines->total_outstanding, -10, 'Outstandig credits total is correctly calculated' ); |
104 |
|
104 |
|
105 |
my $i = 0; |
105 |
my $i = 0; |
106 |
foreach my $line ( @{ $lines->as_list } ) { |
106 |
foreach my $line ( @{ $lines->as_list } ) { |
Lines 109-116
subtest 'outstanding_credits() tests' => sub {
Link Here
|
109 |
$i++; |
109 |
$i++; |
110 |
} |
110 |
} |
111 |
|
111 |
|
112 |
( $total, $lines ) = Koha::Account->new({ patron_id => 'InvalidBorrowernumber' })->outstanding_credits(); |
112 |
my $patron_2 = $builder->build_object({ class => 'Koha::Patrons' }); |
113 |
is( $total, 0, "Total if no outstanding credits is 0" ); |
113 |
$lines = $patron_2->account->outstanding_credits(); |
|
|
114 |
is( $lines->total_outstanding, 0, "Total if no outstanding credits is 0" ); |
114 |
is( $lines->count, 0, "With no outstanding credits, we get back a Lines object with 0 lines" ); |
115 |
is( $lines->count, 0, "With no outstanding credits, we get back a Lines object with 0 lines" ); |
115 |
|
116 |
|
116 |
$schema->storage->txn_rollback; |
117 |
$schema->storage->txn_rollback; |
117 |
- |
|
|