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

(-)a/t/db_dependent/Budgets.t (-60 / +29 lines)
Lines 430-459 $budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod( Link Here
430
        mark_original_budget_as_inactive => 1,
430
        mark_original_budget_as_inactive => 1,
431
    }
431
    }
432
);
432
);
433
# Add A budget Period
434
if (C4::Context->preference('dateformat') eq "metric"){
435
ok($bpid=AddBudgetPeriod(
436
            { budget_period_startdate   =>'01-01-2008'
437
            , budget_period_enddate     =>'31-12-2008'
438
            , budget_period_description =>"MAPERI"
439
            , budget_period_active      =>1}),
440
    "AddBudgetPeriod returned $bpid");
441
} elsif (C4::Context->preference('dateformat') eq "us"){
442
ok($bpid=AddBudgetPeriod(
443
            { budget_period_startdate   =>'01-01-2008'
444
            , budget_period_enddate     =>'12-31-2008'
445
            , budget_period_description =>"MAPERI"
446
            , budget_period_active      =>1}),
447
    "AddBudgetPeriod returned $bpid");
448
}
449
else{
450
ok($bpid=AddBudgetPeriod(
451
            {budget_period_startdate=>'2008-01-01'
452
            ,budget_period_enddate  =>'2008-12-31'
453
            ,budget_period_active   =>1
454
            ,budget_period_description  =>"MAPERI"
455
            }),
456
"AddBudgetPeriod returned $bpid");
457
433
458
$budget_hierarchy        = GetBudgetHierarchy($budget_period_id);
434
$budget_hierarchy        = GetBudgetHierarchy($budget_period_id);
459
is( $budget_hierarchy->[0]->{children}->[0]->{budget_name}, 'budget_11', 'GetBudgetHierarchy should return budgets ordered by name, first child is budget_11' );
435
is( $budget_hierarchy->[0]->{children}->[0]->{budget_name}, 'budget_11', 'GetBudgetHierarchy should return budgets ordered by name, first child is budget_11' );
Lines 493-532 for my $budget (@$budget_hierarchy_cloned) { Link Here
493
is( $number_of_budgets_not_reset, 0,
469
is( $number_of_budgets_not_reset, 0,
494
    'CloneBudgetPeriod has reset all budgets (funds)' );
470
    'CloneBudgetPeriod has reset all budgets (funds)' );
495
471
496
my $budget_name = GetBudgetName( $budget_id );
472
#GetBudgetPeriodDescription
497
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine");
473
$my_budgetperiod = {
498
474
     budget_period_startdate   => '2008-01-01',
499
my $second_budget_id;
475
     budget_period_enddate     => '2008-12-31',
500
ok($second_budget_id=AddBudget(
476
     budget_period_description => 'MAPERI',
501
                        {   budget_code         => "ZZZZ",
477
     budget_period_active      => 0,
502
                            budget_amount       => "500.00",
478
};
503
                            budget_name     => "Art",
479
$bpid = AddBudgetPeriod($my_budgetperiod);
504
                            budget_notes        => "This is a note",
480
$my_budget = {
505
                            budget_active       => 1,
481
     budget_code      => 'ABCD',
506
                            budget_period_id    => $bpid,
482
     budget_amount    => '123.132000',
507
                        }
483
     budget_name      => 'Periodiques',
508
                       ),
484
     budget_notes     => 'This is a note',
509
    "AddBudget returned $second_budget_id");
485
     budget_period_id => $bpid,
510
486
};
511
my $budgets = GetBudgets({ budget_period_id => $bpid});
487
$budget_id = AddBudget($my_budget);
512
ok($budgets->[0]->{budget_name} lt $budgets->[1]->{budget_name}, 'default sort order for GetBudgets is by name');
488
my $data=GetBudgetPeriodDescription($budget_id);
513
489
is( $data->{budget_period_description}, 'MAPERI' ,'GetBudgetPeriodDescription return right value');
514
ok(GetBudgetPeriodDescription($budget_id)->{budget_period_description} eq "MAPERI",
490
515
    "GetBudgetPeriodDescription OK");
491
#GetBudgetsByActivity
516
492
my $result=C4::Budgets::GetBudgetsByActivity(1);
517
ok(GetBudgetsByActivity(1) > 0,
493
isnt( $result, undef ,'GetBudgetsByActivity return correct value with parameter 1');
518
    "GetActiveBudgets can return active budgets");
494
$result=C4::Budgets::GetBudgetsByActivity(0);
519
495
 isnt( $result, undef ,'GetBudgetsByActivity return correct value with parameter 0');
520
# Deactivate budget period
496
$result=C4::Budgets::GetBudgetsByActivity();
521
$budgetperiod=GetBudgetPeriod($bpid);
497
 is( $result, 0 , 'GetBudgetsByActivity return 0 with none parameter or other 0 or 1' );
522
$$budgetperiod{budget_period_active}=0;
498
DelBudget($budget_id);
523
ModBudgetPeriod($budgetperiod);
499
DelBudgetPeriod($bpid);
524
525
ok(GetBudgetsByActivity(0) > 0,
526
    "GetActiveBudgets can return inactive budgets");
527
my $del_status;
528
ok($del_status=DelBudget($budget_id),
529
    "DelBudget returned $del_status");
530
500
531
# MoveOrders
501
# MoveOrders
532
my $number_orders_moved = C4::Budgets::MoveOrders();
502
my $number_orders_moved = C4::Budgets::MoveOrders();
Lines 676-679 sub _get_budgetname_by_id { Link Here
676
# C4::Context->userenv
646
# C4::Context->userenv
677
sub Mock_userenv {
647
sub Mock_userenv {
678
    return $userenv;
648
    return $userenv;
679
}}
649
}
680
- 

Return to bug 11371