|
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 112-117
ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{"
Link Here
|
| 112 |
my $budget_name = GetBudgetName( $budget_id ); |
112 |
my $budget_name = GetBudgetName( $budget_id ); |
| 113 |
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine"); |
113 |
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine"); |
| 114 |
|
114 |
|
|
|
115 |
my $second_budget_id; |
| 116 |
ok($second_budget_id=AddBudget( |
| 117 |
{ budget_code => "ZZZZ", |
| 118 |
budget_amount => "500.00", |
| 119 |
budget_name => "Art", |
| 120 |
budget_notes => "This is a note", |
| 121 |
budget_description=> "Art", |
| 122 |
budget_active => 1, |
| 123 |
budget_period_id => $bpid, |
| 124 |
} |
| 125 |
), |
| 126 |
"AddBudget returned $second_budget_id"); |
| 127 |
|
| 128 |
my $budgets = GetBudgets({ budget_period_id => $bpid}); |
| 129 |
ok($budgets->[0]->{budget_name} lt $budgets->[1]->{budget_name}, 'default sort order for GetBudgets is by name'); |
| 130 |
|
| 115 |
ok($del_status=DelBudget($budget_id), |
131 |
ok($del_status=DelBudget($budget_id), |
| 116 |
"DelBudget returned $del_status"); |
132 |
"DelBudget returned $del_status"); |
| 117 |
|
133 |
|
| 118 |
- |
|
|