Lines 1-6
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
use Modern::Perl; |
2 |
use Modern::Perl; |
3 |
use Test::More tests => 122; |
3 |
use Test::More ; |
4 |
|
4 |
|
5 |
BEGIN { |
5 |
BEGIN { |
6 |
use_ok('C4::Budgets') |
6 |
use_ok('C4::Budgets') |
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 |
- |
|
|