Bug 31351: (QA follow-up) Extend the encode/decode test

[koha-ffzg.git] / t / db_dependent / Stats.t

diff --git a/t/db_dependent/Stats.t b/t/db_dependent/Stats.t
old mode 100644 (file)
new mode 100755 (executable)
index 2c6cdbc..ce41190
--- a/t/db_dependent/Stats.t
+++ b/t/db_dependent/Stats.t
@@ -1,13 +1,13 @@
 #!/usr/bin/perl
 
 use Modern::Perl;
-use C4::Stats;
+use C4::Stats qw( UpdateStats );
 use Koha::Database;
 
-use Test::More tests => 19;
+use Test::More tests => 18;
 
 BEGIN {
-    use_ok('C4::Stats');
+    use_ok('C4::Stats', qw( UpdateStats ));
 }
 can_ok(
     'C4::Stats',
@@ -55,7 +55,7 @@ $return_error = $@;
 isnt ($return_error,'',"UpdateStats returns undef and croaks if type is undef");
 
 # returns undef and croaks if mandatory params are missing
-my @allowed_circulation_types = qw (renew issue localuse return);
+my @allowed_circulation_types = qw (renew issue localuse return onsite_checkout recall);
 my @allowed_accounts_types = qw (writeoff payment);
 my @circulation_mandatory_keys = qw (branch borrowernumber itemnumber ccode itemtype); #don't check type here
 my @accounts_mandatory_keys = qw (branch borrowernumber amount); #don't check type here
@@ -119,7 +119,6 @@ is ($params->{other},          $line->{other},          "UpdateStats save other
 is ($params->{itemtype},       $line->{itemtype},       "UpdateStats save itemtype param in itemtype field of statistics table");
 is ($params->{location},       $line->{location},       "UpdateStats save location param in location field of statistics table");
 is ($params->{ccode},          $line->{ccode},          "UpdateStats save ccode param in ccode field of statistics table");
-is (undef,                     $line->{proccode},       "UpdateStats save no proccode param in proccode field of statistics table");
 
 $dbh->do(q|DELETE FROM statistics|);
 $params = {