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