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