Attachment #46209 for bug #14097

View | Details | Raw Unified | Return to bug 14097
Collapse All | Expand All




use Test::More tests => 552;
use t::lib::Mocks qw(mock_preference);
use POSIX qw(strftime);
use Data::Dumper;

BEGIN {
    use_ok('C4::UsageStats');

my $dbh = C4::Context->dbh;
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;

$dbh->do('DELETE FROM issues');
$dbh->do('DELETE FROM biblio');
$dbh->do('DELETE FROM items');
$dbh->do('DELETE FROM auth_header');
- 

Return to bug 14097

Lines 18-24 use Modern::Perl; Link Here

(-)a/t/db_dependent/UsageStats.t (-2 / +2 lines)
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	-