|
Lines 4-10
use Modern::Perl;
Link Here
|
| 4 |
use C4::Stats; |
4 |
use C4::Stats; |
| 5 |
use Koha::Database; |
5 |
use Koha::Database; |
| 6 |
|
6 |
|
| 7 |
use Test::More tests => 19; |
7 |
use Test::More tests => 18; |
| 8 |
|
8 |
|
| 9 |
BEGIN { |
9 |
BEGIN { |
| 10 |
use_ok('C4::Stats'); |
10 |
use_ok('C4::Stats'); |
|
Lines 119-125
is ($params->{other}, $line->{other}, "UpdateStats save other
Link Here
|
| 119 |
is ($params->{itemtype}, $line->{itemtype}, "UpdateStats save itemtype param in itemtype field of statistics table"); |
119 |
is ($params->{itemtype}, $line->{itemtype}, "UpdateStats save itemtype param in itemtype field of statistics table"); |
| 120 |
is ($params->{location}, $line->{location}, "UpdateStats save location param in location field of statistics table"); |
120 |
is ($params->{location}, $line->{location}, "UpdateStats save location param in location field of statistics table"); |
| 121 |
is ($params->{ccode}, $line->{ccode}, "UpdateStats save ccode param in ccode field of statistics table"); |
121 |
is ($params->{ccode}, $line->{ccode}, "UpdateStats save ccode param in ccode field of statistics table"); |
| 122 |
is (undef, $line->{proccode}, "UpdateStats save no proccode param in proccode field of statistics table"); |
|
|
| 123 |
|
122 |
|
| 124 |
$dbh->do(q|DELETE FROM statistics|); |
123 |
$dbh->do(q|DELETE FROM statistics|); |
| 125 |
$params = { |
124 |
$params = { |
| 126 |
- |
|
|