t/db_dependent/Budgets.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests=>20;
   4
   5 BEGIN {use_ok('C4::Budgets') }
   6 use C4::Dates;
   7 use C4::Context;
   8
   9 use YAML;
  10
  11 my $dbh = C4::Context->dbh();
  12 $dbh->{AutoCommit} = 0;
  13 $dbh->{RaiseError} = 1;
  14
  15 $dbh->do('DELETE FROM aqbudgetperiods');
  16
  17 #
  18 # Budget Periods :
  19 #
  20 my $bpid;
  21 my $budgetperiod;
  22 my $active_period;
  23 my $mod_status;
  24 my $del_status;
  25 ok($bpid=AddBudgetPeriod(
  26                                                 { budget_period_startdate       => '2008-01-01'
  27                                                 , budget_period_enddate         => '2008-12-31'
  28                                                 , budget_description            => "MAPERI"}),
  29         "AddBudgetPeriod with iso dates OK");
  30
  31 ok($budgetperiod=GetBudgetPeriod($bpid),
  32         "GetBudgetPeriod($bpid) returned ".Dump($budgetperiod));
  33 ok(!GetBudgetPeriod(0) ,"GetBudgetPeriod(0) returned undef : noactive BudgetPeriod");
  34 $$budgetperiod{budget_period_active}=1;
  35 ok($mod_status=ModBudgetPeriod($budgetperiod),"ModBudgetPeriod OK");
  36 ok($active_period=GetBudgetPeriod(0),"GetBudgetPeriod(0) returned".Dump($active_period));
  37 ok(scalar(GetBudgetPeriods())>0,"GetBudgetPeriods OK");#Should at least return the Budget inserted
  38 ok($del_status=DelBudgetPeriod($bpid),"DelBudgetPeriod returned $del_status");
  39
  40 #
  41 # Budget  :
  42 #
  43
  44 # Add A budget Period
  45 if (C4::Context->preference('dateformat') eq "metric"){
  46 ok($bpid=AddBudgetPeriod(
  47                                                 { budget_period_startdate       =>'01-01-2008'
  48                                                 , budget_period_enddate         =>'31-12-2008'
  49                                                 , budget_description            =>"MAPERI"}),
  50         "AddBudgetPeriod returned $bpid");
  51 } elsif (C4::Context->preference('dateformat') eq "us"){
  52 ok($bpid=AddBudgetPeriod(
  53                                                 { budget_period_startdate       =>'01-01-2008'
  54                                                 , budget_period_enddate         =>'12-31-2008'
  55                                                 , budget_description            =>"MAPERI"}),
  56         "AddBudgetPeriod returned $bpid");
  57 }
  58 else{
  59 ok($bpid=AddBudgetPeriod(
  60                                                 {budget_period_startdate=>'2008-01-01'
  61                                                 ,budget_period_enddate  =>'2008-12-31'
  62                                                 ,budget_description             =>"MAPERI"
  63                                                 }),
  64         "AddBudgetPeriod returned $bpid");
  65
  66 }
  67 my $budget_id;
  68 ok($budget_id=AddBudget(
  69                                                 {   budget_code                 => "ABCD"
  70                                                         , budget_amount         => "123.132"
  71                                                         , budget_name           => "Périodiques"
  72                                                         , budget_notes          => "This is a note"
  73                                                         , budget_description=> "Serials"
  74                                                         , budget_active         => 1
  75                                                         , budget_period_id      => $bpid
  76                                                 }
  77                                            ),
  78         "AddBudget returned $budget_id");
  79 #budget_code            | varchar(30)   | YES  |     | NULL              |       |
  80 #| budget_amount          | decimal(28,6) | NO   |     | 0.000000          |       |
  81 #| budget_id              | int(11)       | NO   | PRI | NULL              |       |
  82 #| budget_branchcode      | varchar(10)   | YES  |     | NULL              |       |
  83 #| budget_parent_id       | int(11)       | YES  |     | NULL              |       |
  84 #| budget_name            | varchar(80)   | YES  |     | NULL              |       |
  85 #| budget_encumb          | decimal(28,6) | YES  |     | 0.000000          |       |
  86 #| budget_expend          | decimal(28,6) | YES  |     | 0.000000          |       |
  87 #| budget_notes           | mediumtext    | YES  |     | NULL              |       |
  88 #| timestamp              | timestamp     | NO   |     | CURRENT_TIMESTAMP |       |
  89 #| budget_period_id       | int(11)       | YES  | MUL | NULL              |       |
  90 #| sort1_authcat          | varchar(80)   | YES  |     | NULL              |       |
  91 #| sort2_authcat          | varchar(80)   | YES  |     | NULL              |       |
  92 #| budget_owner_id        | int(11)       | YES  |     | NULL              |       |
  93 #| budget_permission      | int(1)        | YES  |     | 0                 |       |
  94
  95 my $budget;
  96 ok($budget=GetBudget($budget_id) ,"GetBudget OK");
  97 $$budget{budget_permission}=1;
  98 ok($mod_status=ModBudget($budget),"ModBudget OK");
  99 ok(GetBudgets()>0,
 100         "GetBudgets OK");
 101 ok(GetBudgets({budget_period_id=>$bpid})>0,
 102         "GetBudgets With Filter OK");
 103 ok(GetBudgets({budget_period_id=>$bpid},[{"budget_name"=>0}])>0,
 104         "GetBudgets With Order OK");
 105 ok(GetBudgets({budget_period_id=>GetBudgetPeriod($bpid)->{budget_period_id}},[{"budget_name"=>0}])>0,
 106         "GetBudgets With Order
 107         Getting Active budgetPeriod OK");
 108
 109 my $budget_name = GetBudgetName( $budget_id );
 110 is($budget_name, $budget->{budget_name}, "Test the GetBudgetName routine");
 111
 112 my $second_budget_id;
 113 ok($second_budget_id=AddBudget(
 114                         {   budget_code         => "ZZZZ",
 115                             budget_amount       => "500.00",
 116                             budget_name     => "Art",
 117                             budget_notes        => "This is a note",
 118                             budget_description=> "Art",
 119                             budget_active       => 1,
 120                             budget_period_id    => $bpid,
 121                         }
 122                        ),
 123     "AddBudget returned $second_budget_id");
 124
 125 my $budgets = GetBudgets({ budget_period_id => $bpid});
 126 ok($budgets->[0]->{budget_name} lt $budgets->[1]->{budget_name}, 'default sort order for GetBudgets is by name');
 127
 128 ok($del_status=DelBudget($budget_id),
 129     "DelBudget returned $del_status");
 130