View | Details | Raw Unified | Return to bug 15004
Collapse All | Expand All

(-)a/t/db_dependent/Budgets.t (-2 / +14 lines)
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
- 

Return to bug 15004