Lines 1-5
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
use Test::More tests => 129; |
2 |
use Test::More tests => 130; |
3 |
|
3 |
|
4 |
BEGIN { |
4 |
BEGIN { |
5 |
use_ok('C4::Budgets') |
5 |
use_ok('C4::Budgets') |
Lines 490-495
cmp_ok($budget_hierarchy_cloned->[3]->{budget_amount}, '==', 115, "CloneBudgetPe
Link Here
|
490 |
cmp_ok($budget_hierarchy_cloned->[4]->{budget_amount}, '==', 2320, "CloneBudgetPeriod changed correctly funds amounts"); |
490 |
cmp_ok($budget_hierarchy_cloned->[4]->{budget_amount}, '==', 2320, "CloneBudgetPeriod changed correctly funds amounts"); |
491 |
cmp_ok($budget_hierarchy_cloned->[5]->{budget_amount}, '==', 0, "CloneBudgetPeriod changed correctly funds amounts"); |
491 |
cmp_ok($budget_hierarchy_cloned->[5]->{budget_amount}, '==', 0, "CloneBudgetPeriod changed correctly funds amounts"); |
492 |
|
492 |
|
|
|
493 |
$budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod( |
494 |
{ |
495 |
budget_period_id => $budget_period_id, |
496 |
budget_period_startdate => '2014-01-01', |
497 |
budget_period_enddate => '2014-12-31', |
498 |
amount_change_percentage => 16, |
499 |
amount_change_round_increment => 5, |
500 |
reset_all_budgets => 1, |
501 |
} |
502 |
); |
503 |
$budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned); |
504 |
cmp_ok($budget_hierarchy_cloned->[0]->{budget_amount}, '==', 0, "CloneBudgetPeriod reset all fund amounts"); |
505 |
|
493 |
# MoveOrders |
506 |
# MoveOrders |
494 |
my $number_orders_moved = C4::Budgets::MoveOrders(); |
507 |
my $number_orders_moved = C4::Budgets::MoveOrders(); |
495 |
is( $number_orders_moved, undef, 'MoveOrders return undef if no arg passed' ); |
508 |
is( $number_orders_moved, undef, 'MoveOrders return undef if no arg passed' ); |
496 |
- |
|
|