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

(-)a/t/db_dependent/Budgets.t (-2 / +18 lines)
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 102-106 ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{" Link Here
102
my $budget_name = GetBudgetName( $budget_id );
102
my $budget_name = GetBudgetName( $budget_id );
103
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine");
103
is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine");
104
104
105
my $second_budget_id;
106
ok($second_budget_id=AddBudget(
107
                        {   budget_code         => "ZZZZ",
108
                            budget_amount       => "500.00",
109
                            budget_name     => "Art",
110
                            budget_notes        => "This is a note",
111
                            budget_description=> "Art",
112
                            budget_active       => 1,
113
                            budget_period_id    => $bpid,
114
                        }
115
                       ),
116
    "AddBudget returned $second_budget_id");
117
118
my $budgets = GetBudgets({ budget_period_id => $bpid});
119
ok($budgets->[0]->{budget_name} lt $budgets->[1]->{budget_name}, 'default sort order for GetBudgets is by name');
120
105
ok($del_status=DelBudget($budget_id),
121
ok($del_status=DelBudget($budget_id),
106
    "DelBudget returned $del_status");
122
    "DelBudget returned $del_status");
107
- 
123

Return to bug 10535