|
Lines 3-9
Link Here
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
use C4::Stats; |
4 |
use C4::Stats; |
| 5 |
|
5 |
|
| 6 |
use Test::More tests => 18; |
6 |
use Test::More tests => 19; |
| 7 |
|
7 |
|
| 8 |
BEGIN { |
8 |
BEGIN { |
| 9 |
use_ok('C4::Stats'); |
9 |
use_ok('C4::Stats'); |
|
Lines 119-124
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"); |
| 122 |
|
123 |
|
| 123 |
$dbh->do(q|DELETE FROM statistics|); |
124 |
$dbh->do(q|DELETE FROM statistics|); |
| 124 |
$params = { |
125 |
$params = { |
| 125 |
- |
|
|