1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
use strict;
use warnings;
use Test::More;
BEGIN {
eval "use DBI;";
if ($@) {
plan skip_all => "No DBI installed";
exit(0);
}
};
use Log::Handler::Output::DBI;
plan tests => 7;
my ($ret, $log);
$log = Log::Handler::Output::DBI->new(
database => 'dbname',
driver => 'mysql',
user => 'dbuser',
password => 'dbpass',
host => '127.0.0.1',
port => 3306,
debug => 0,
table => 'messages',
columns => 'level message',
values => '%level %message',
persistent => 0,
reconnect => 0,
);
ok(1, 'new');
$ret = $log->{statement} eq 'insert into messages (level,message) values (?,?)';
ok($ret, 'checking statement');
$ret = $log->{cstr}->[0] eq 'dbi:mysql:database=dbname;host=127.0.0.1;port=3306';
ok($ret, 'checking cstr');
$ret = $log->{cstr}->[1] eq 'dbuser';
ok($ret, 'checking user');
$ret = $log->{cstr}->[2] eq 'dbpass';
ok($ret, 'checking password');
$ret = $log->{cstr}->[3]->{PrintError} == 0;
ok($ret, 'checking argument PrintError');
$ret = $log->{cstr}->[3]->{AutoCommit} == 1;
ok($ret, 'checking argument AutoCommit');
|
