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' |