|
Lines 27-32
use t::lib::TestBuilder;
Link Here
|
| 27 |
use Koha::Account; |
27 |
use Koha::Account; |
| 28 |
use Koha::Account::Lines; |
28 |
use Koha::Account::Lines; |
| 29 |
use Koha::Account::Line; |
29 |
use Koha::Account::Line; |
|
|
30 |
use Koha::Account::Offsets; |
| 30 |
|
31 |
|
| 31 |
BEGIN { |
32 |
BEGIN { |
| 32 |
use_ok('C4::Accounts'); |
33 |
use_ok('C4::Accounts'); |
|
Lines 253-259
subtest "Koha::Account::pay tests" => sub {
Link Here
|
| 253 |
|
254 |
|
| 254 |
subtest "More Koha::Account::pay tests" => sub { |
255 |
subtest "More Koha::Account::pay tests" => sub { |
| 255 |
|
256 |
|
| 256 |
plan tests => 6; |
257 |
plan tests => 8; |
| 257 |
|
258 |
|
| 258 |
# Create a borrower |
259 |
# Create a borrower |
| 259 |
my $category = $builder->build({ source => 'Category' })->{ categorycode }; |
260 |
my $category = $builder->build({ source => 'Category' })->{ categorycode }; |
|
Lines 283-288
subtest "More Koha::Account::pay tests" => sub {
Link Here
|
| 283 |
# make the full payment |
284 |
# make the full payment |
| 284 |
$account->pay({ lines => [$line], amount => $amount, library_id => $branch, note => 'A payment note' }); |
285 |
$account->pay({ lines => [$line], amount => $amount, library_id => $branch, note => 'A payment note' }); |
| 285 |
|
286 |
|
|
|
287 |
my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->{accountlines_id} })->next(); |
| 288 |
is( $offset->amount(), '-100.000000', 'Offset amount is -100.00' ); |
| 289 |
is( $offset->type(), 'Payment', 'Offset type is Payment' ); |
| 290 |
|
| 286 |
my $stat = $schema->resultset('Statistic')->search({ |
291 |
my $stat = $schema->resultset('Statistic')->search({ |
| 287 |
branch => $branch, |
292 |
branch => $branch, |
| 288 |
type => 'payment' |
293 |
type => 'payment' |
|
Lines 302-308
subtest "More Koha::Account::pay tests" => sub {
Link Here
|
| 302 |
|
307 |
|
| 303 |
subtest "Even more Koha::Account::pay tests" => sub { |
308 |
subtest "Even more Koha::Account::pay tests" => sub { |
| 304 |
|
309 |
|
| 305 |
plan tests => 6; |
310 |
plan tests => 8; |
| 306 |
|
311 |
|
| 307 |
# Create a borrower |
312 |
# Create a borrower |
| 308 |
my $category = $builder->build({ source => 'Category' })->{ categorycode }; |
313 |
my $category = $builder->build({ source => 'Category' })->{ categorycode }; |
|
Lines 333-338
subtest "Even more Koha::Account::pay tests" => sub {
Link Here
|
| 333 |
# make the full payment |
338 |
# make the full payment |
| 334 |
$account->pay({ lines => [$line], amount => $partialamount, library_id => $branch, note => 'A payment note' }); |
339 |
$account->pay({ lines => [$line], amount => $partialamount, library_id => $branch, note => 'A payment note' }); |
| 335 |
|
340 |
|
|
|
341 |
my $offset = Koha::Account::Offsets->search( { debit_id => $accountline->{ accountlines_id } } )->next(); |
| 342 |
is( $offset->amount, '-60.000000', 'Offset amount is -60.00' ); |
| 343 |
is( $offset->type, 'Payment', 'Offset type is payment' ); |
| 344 |
|
| 336 |
my $stat = $schema->resultset('Statistic')->search({ |
345 |
my $stat = $schema->resultset('Statistic')->search({ |
| 337 |
branch => $branch, |
346 |
branch => $branch, |
| 338 |
type => 'payment' |
347 |
type => 'payment' |