5 if (defined $ENV{DBI_DSN}) {
8 plan skip_all => 'cannot test without DB info';
11 my $dbh1 = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
12 {RaiseError => 1, AutoCommit => 1}
18 my $dbh2 = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS},
19 {RaiseError => 1, AutoCommit => 1}
25 ok($dbh1->do(q{DELETE FROM test}),
29 my $rows = ($dbh1->selectrow_array(q{SELECT COUNT(*) FROM test}))[0];
31 'fetch on empty table from dbh1'
34 $rows = ($dbh2->selectrow_array(q{SELECT COUNT(*) FROM test}))[0];
36 'fetch on empty table from dbh2'
39 ok($dbh1->do(q{INSERT INTO test (id, name, val) VALUES (1, 'foo', 'horse')}),
43 $rows = ($dbh1->selectrow_array(q{SELECT COUNT(*) FROM test}))[0];
45 'fetch one row from dbh1'
48 $rows = ($dbh2->selectrow_array(q{SELECT COUNT(*) FROM test}))[0];
50 'fetch one row from dbh1'
53 local $SIG{__WARN__} = sub {};
58 ok(!$dbh1->rollback(),
62 ok($dbh1->disconnect(),
66 ok($dbh2->disconnect(),