Bug 9259: Use is instead of is_deeply
[koha.git] / t / db_dependent / Stats.t
1 #!/usr/bin/perl
2
3 use Modern::Perl;
4 use C4::Stats;
5
6 use Test::More tests => 17;
7
8 BEGIN {
9     use_ok('C4::Stats');
10 }
11 can_ok(
12     'C4::Stats',
13     qw(UpdateStats
14     TotalPaid
15       )
16 );
17
18 #Start transaction
19 my $dbh = C4::Context->dbh;
20 $dbh->{RaiseError} = 1;
21 $dbh->{AutoCommit} = 0;
22
23 #
24 # Test UpdateStats
25 #
26
27 is (UpdateStats () ,undef, "UpdateStats returns undef if no params");
28
29 my $params = {
30               branch => "BRA",
31               itemnumber => 31,
32               borrowernumber => 5,
33               amount =>5.1,
34               other => "bla",
35               itemtype => "BK",
36               accountno => 51,
37               ccode => "CODE",
38 };
39 my $return_error;
40
41 # returns undef and croaks if type is not allowed
42 $params -> {type} = "bla";
43 eval {UpdateStats($params)};
44 $return_error = $@;
45 isnt ($return_error,'',"UpdateStats returns undef and croaks if type is not allowed");
46
47 delete $params->{type};
48 # returns undef and croaks if type is missing
49 eval {UpdateStats($params)};
50 $return_error = $@;
51 isnt ($return_error,'',"UpdateStats returns undef and croaks if no type given");
52
53 $params -> {type} = undef;
54 # returns undef and croaks if type is undef
55 eval {UpdateStats($params)};
56 $return_error = $@;
57 isnt ($return_error,'',"UpdateStats returns undef and croaks if type is undef");
58
59 # returns undef and croaks if mandatory params are missing
60 my @allowed_circulation_types = qw (renew issue localuse return);
61 my @allowed_accounts_types = qw (writeoff payment);
62 my @circulation_mandatory_keys = qw (branch borrowernumber itemnumber ccode itemtype); #don't check type here
63 my @accounts_mandatory_keys = qw (branch borrowernumber amount); #don't check type here
64
65 my @missing_errors = ();
66 foreach my $key (@circulation_mandatory_keys) {
67     my $value = $params->{$key};
68     delete $params->{$key};
69     foreach my $type (@allowed_circulation_types) {
70         $params->{type} = $type;
71         eval {UpdateStats($params)};
72         $return_error = $@;
73         push @missing_errors, "key:$key for type:$type" unless $return_error;
74     }
75     $params->{$key} = $value;
76 }
77 foreach my $key (@accounts_mandatory_keys) {
78     my $value = $params->{$key};
79     delete $params->{$key};
80     foreach my $type (@allowed_accounts_types) {
81         $params->{type} = $type;
82         eval {UpdateStats($params)};
83         $return_error = $@;
84         push @missing_errors, "key:$key for type:$type" unless $return_error;
85     }
86     $params->{$key} = $value;
87
88 }
89 is (join (", ", @missing_errors),'',"UpdateStats returns undef and croaks if mandatory params are missing");
90
91 # returns undef and croaks if forbidden params are given
92 $params -> {type} = "return";
93 $params -> {newparam} = "true";
94 eval {UpdateStats($params)};
95 $return_error = $@;
96 isnt ($return_error,'',"UpdateStats returns undef and croaks if a forbidden param is given");
97 delete $params->{newparam};
98
99 # save the params in the right database fields
100 $dbh->do(q|DELETE FROM statistics|);
101 $params = {
102               branch => "BRA",
103               itemnumber => 31,
104               borrowernumber => 5,
105               amount =>5.1,
106               other => "bla",
107               itemtype => "BK",
108               accountno => 51,
109               ccode => "CODE",
110               type => "return"
111 };
112 UpdateStats ($params);
113 my $sth = $dbh->prepare("SELECT * FROM statistics");
114 $sth->execute();
115 my $line = ${ $sth->fetchall_arrayref( {} ) }[0];
116 is ($params-> {branch},         $line->{branch},         "UpdateStats save branch param in branch field of statistics table");
117 is ($params-> {type},           $line->{type},           "UpdateStats save type param in type field of statistics table");
118 is ($params-> {borrowernumber}, $line->{borrowernumber}, "UpdateStats save borrowernumber param in borrowernumber field of statistics table");
119 cmp_ok($params-> {amount},'==', $line->{value},          "UpdateStats save amount param in value field of statistics table");
120 is ($params-> {other},          $line->{other},          "UpdateStats save other param in other field of statistics table");
121 is ($params-> {itemtype},       $line->{itemtype},       "UpdateStats save itemtype param in itemtype field of statistics table");
122 is ($params-> {accountno},      $line->{proccode},       "UpdateStats save accountno param in proccode field of statistics table");
123 is ($params-> {ccode},          $line->{ccode},          "UpdateStats save ccode param in ccode field of statistics table");
124
125 #
126 # Test TotalPaid
127 #
128
129 is (TotalPaid (),undef,"TotalPaid returns undef if no params are given");
130 # More tests to write!
131
132 #End transaction
133 $dbh->rollback;