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

(-)a/t/db_dependent/Budgets.t (-2 / +6 lines)
Lines 1-6 Link Here
1
use strict;
1
use strict;
2
use warnings;
2
use warnings;
3
use Test::More tests=>17;
3
use Test::More tests=>19;
4
4
5
BEGIN {use_ok('C4::Budgets') }
5
BEGIN {use_ok('C4::Budgets') }
6
use C4::Budgets;
6
use C4::Budgets;
Lines 88-93 ok($budget_id=AddBudget( Link Here
88
88
89
my $budget;
89
my $budget;
90
ok($budget=GetBudget($budget_id) ,"GetBudget OK");
90
ok($budget=GetBudget($budget_id) ,"GetBudget OK");
91
my $budget_id = $budget->{id};
92
my $budget_code = $budget->{budget_code};
91
$$budget{budget_permission}=1;
93
$$budget{budget_permission}=1;
92
ok($mod_status=ModBudget($budget),"ModBudget OK");
94
ok($mod_status=ModBudget($budget),"ModBudget OK");
93
ok(GetBudgets()>0,
95
ok(GetBudgets()>0,
Lines 102-105 ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{" Link Here
102
ok($del_status=DelBudget($budget_id),
104
ok($del_status=DelBudget($budget_id),
103
	"DelBudget returned $del_status");
105
	"DelBudget returned $del_status");
104
106
107
my $budget_by_code = GetBudgetByCode( $budget_code );
108
ok($budget_by_code->{id} == $budget_id, "GetBudgetByCode, check id");
109
ok($budget_by_code->{budget_notes} eq 'This is a note', "GetBudgetByCode, check notes");
105
110
106
- 

Return to bug 7180