Lines 1-6
Link Here
|
1 |
use strict; |
1 |
use strict; |
2 |
use warnings; |
2 |
use warnings; |
3 |
use Test::More tests=>18; |
3 |
use Test::More tests => 20; |
4 |
|
4 |
|
5 |
BEGIN {use_ok('C4::Budgets') } |
5 |
BEGIN {use_ok('C4::Budgets') } |
6 |
use C4::Dates; |
6 |
use C4::Dates; |
Lines 87-92
ok($budget_id=AddBudget(
Link Here
|
87 |
|
87 |
|
88 |
my $budget; |
88 |
my $budget; |
89 |
ok($budget=GetBudget($budget_id) ,"GetBudget OK"); |
89 |
ok($budget=GetBudget($budget_id) ,"GetBudget OK"); |
|
|
90 |
$budget_id = $budget->{budget_id}; |
90 |
$$budget{budget_permission}=1; |
91 |
$$budget{budget_permission}=1; |
91 |
ok($mod_status=ModBudget($budget),"ModBudget OK"); |
92 |
ok($mod_status=ModBudget($budget),"ModBudget OK"); |
92 |
ok(GetBudgets()>0, |
93 |
ok(GetBudgets()>0, |
Lines 102-106
ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{"
Link Here
|
102 |
my $budget_name = GetBudgetName( $budget_id ); |
103 |
my $budget_name = GetBudgetName( $budget_id ); |
103 |
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine"); |
104 |
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine"); |
104 |
|
105 |
|
|
|
106 |
my $budget_code = $budget->{budget_code}; |
107 |
my $budget_by_code = GetBudgetByCode( $budget_code ); |
108 |
is($budget_by_code->{budget_id}, $budget_id, "GetBudgetByCode, check id"); |
109 |
is($budget_by_code->{budget_notes}, 'This is a note', "GetBudgetByCode, check notes"); |
110 |
|
105 |
ok($del_status=DelBudget($budget_id), |
111 |
ok($del_status=DelBudget($budget_id), |
106 |
"DelBudget returned $del_status"); |
112 |
"DelBudget returned $del_status"); |
107 |
- |
|
|