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

(-)a/t/db_dependent/Budgets.t (-2 / +17 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 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
- 

Return to bug 10535