3 use Test::More tests=>18;
5 BEGIN {use_ok('C4::Budgets') }
18 ok($bpid=AddBudgetPeriod(
19 { budget_period_startdate => '2008-01-01'
20 , budget_period_enddate => '2008-12-31'
21 , budget_description => "MAPERI"}),
22 "AddBudgetPeriod with iso dates OK");
24 ok($budgetperiod=GetBudgetPeriod($bpid),
25 "GetBudgetPeriod($bpid) returned ".Dump($budgetperiod));
26 ok(!GetBudgetPeriod(0) ,"GetBudgetPeriod(0) returned undef : noactive BudgetPeriod");
27 $$budgetperiod{budget_period_active}=1;
28 ok($mod_status=ModBudgetPeriod($budgetperiod),"ModBudgetPeriod OK");
29 ok($active_period=GetBudgetPeriod(0),"GetBudgetPeriod(0) returned".Dump($active_period));
30 ok(scalar(GetBudgetPeriods())>0,"GetBudgetPeriods OK");#Should at least return the Budget inserted
31 ok($del_status=DelBudgetPeriod($bpid),"DelBudgetPeriod returned $del_status");
38 if (C4::Context->preference('dateformat') eq "metric"){
39 ok($bpid=AddBudgetPeriod(
40 { budget_period_startdate =>'01-01-2008'
41 , budget_period_enddate =>'31-12-2008'
42 , budget_description =>"MAPERI"}),
43 "AddBudgetPeriod returned $bpid");
44 } elsif (C4::Context->preference('dateformat') eq "us"){
45 ok($bpid=AddBudgetPeriod(
46 { budget_period_startdate =>'01-01-2008'
47 , budget_period_enddate =>'12-31-2008'
48 , budget_description =>"MAPERI"}),
49 "AddBudgetPeriod returned $bpid");
52 ok($bpid=AddBudgetPeriod(
53 {budget_period_startdate=>'2008-01-01'
54 ,budget_period_enddate =>'2008-12-31'
55 ,budget_description =>"MAPERI"
57 "AddBudgetPeriod returned $bpid");
61 ok($budget_id=AddBudget(
62 { budget_code => "ABCD"
63 , budget_amount => "123.132"
64 , budget_name => "Périodiques"
65 , budget_notes => "This is a note"
66 , budget_description=> "Serials"
68 , budget_period_id => $bpid
71 "AddBudget returned $budget_id");
72 #budget_code | varchar(30) | YES | | NULL | |
73 #| budget_amount | decimal(28,6) | NO | | 0.000000 | |
74 #| budget_id | int(11) | NO | PRI | NULL | |
75 #| budget_branchcode | varchar(10) | YES | | NULL | |
76 #| budget_parent_id | int(11) | YES | | NULL | |
77 #| budget_name | varchar(80) | YES | | NULL | |
78 #| budget_encumb | decimal(28,6) | YES | | 0.000000 | |
79 #| budget_expend | decimal(28,6) | YES | | 0.000000 | |
80 #| budget_notes | mediumtext | YES | | NULL | |
81 #| timestamp | timestamp | NO | | CURRENT_TIMESTAMP | |
82 #| budget_period_id | int(11) | YES | MUL | NULL | |
83 #| sort1_authcat | varchar(80) | YES | | NULL | |
84 #| sort2_authcat | varchar(80) | YES | | NULL | |
85 #| budget_owner_id | int(11) | YES | | NULL | |
86 #| budget_permission | int(1) | YES | | 0 | |
89 ok($budget=GetBudget($budget_id) ,"GetBudget OK");
90 $$budget{budget_permission}=1;
91 ok($mod_status=ModBudget($budget),"ModBudget OK");
94 ok(GetBudgets({budget_period_id=>$bpid})>0,
95 "GetBudgets With Filter OK");
96 ok(GetBudgets({budget_period_id=>$bpid},[{"budget_name"=>0}])>0,
97 "GetBudgets With Order OK");
98 ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{"budget_name"=>0}])>0,
99 "GetBudgets With Order
100 Getting Active budgetPeriod OK");
102 my $budget_name = GetBudgetName( $budget_id );
103 is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine");
105 ok($del_status=DelBudget($budget_id),
106 "DelBudget returned $del_status");