|
Lines 18-24
use Modern::Perl;
Link Here
|
| 18 |
use Test::More tests => 552; |
18 |
use Test::More tests => 552; |
| 19 |
use t::lib::Mocks qw(mock_preference); |
19 |
use t::lib::Mocks qw(mock_preference); |
| 20 |
use POSIX qw(strftime); |
20 |
use POSIX qw(strftime); |
| 21 |
use Data::Dumper; |
|
|
| 22 |
|
21 |
|
| 23 |
BEGIN { |
22 |
BEGIN { |
| 24 |
use_ok('C4::UsageStats'); |
23 |
use_ok('C4::UsageStats'); |
|
Lines 42-47
can_ok(
Link Here
|
| 42 |
my $dbh = C4::Context->dbh; |
41 |
my $dbh = C4::Context->dbh; |
| 43 |
$dbh->{AutoCommit} = 0; |
42 |
$dbh->{AutoCommit} = 0; |
| 44 |
$dbh->{RaiseError} = 1; |
43 |
$dbh->{RaiseError} = 1; |
|
|
44 |
|
| 45 |
$dbh->do('DELETE FROM issues'); |
| 45 |
$dbh->do('DELETE FROM biblio'); |
46 |
$dbh->do('DELETE FROM biblio'); |
| 46 |
$dbh->do('DELETE FROM items'); |
47 |
$dbh->do('DELETE FROM items'); |
| 47 |
$dbh->do('DELETE FROM auth_header'); |
48 |
$dbh->do('DELETE FROM auth_header'); |
| 48 |
- |
|
|