Lines Matching refs:dbh

11 my $dbh;
12 eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
23     my($dbh, $table, $num) = @_;
26     if (!($sth = $dbh->prepare("SELECT * FROM dbd_mysql_t50commit"))) {
27       return "Failed to prepare: err " . $dbh->err . ", errstr "
28         . $dbh->errstr;
31       return "Failed to execute: err " . $dbh->err . ", errstr "
32         . $dbh->errstr;
44 $have_transactions = have_transactions($dbh);
50 …ok $dbh->do("DROP TABLE IF EXISTS dbd_mysql_t50commit"), "drop table if exists dbd_mysql_t50commit…
58   ok $dbh->do($create), 'create dbd_mysql_t50commit';
60   ok !$dbh->{AutoCommit}, "\$dbh->{AutoCommit} not defined |$dbh->{AutoCommit}|";
62   $dbh->{AutoCommit} = 0;
63   ok !$dbh->err;
64   ok !$dbh->errstr;
65   ok !$dbh->{AutoCommit};
67   ok $dbh->do("INSERT INTO dbd_mysql_t50commit VALUES (1, 'Jochen')"),
71   $msg = num_rows($dbh, 'dbd_mysql_t50commit', 1);
74   ok $dbh->rollback, 'rollback';
76   $msg = num_rows($dbh, 'dbd_mysql_t50commit', 0);
79 …ok $dbh->do("DELETE FROM dbd_mysql_t50commit WHERE id = 1"), "delete from dbd_mysql_t50commit wher…
81   $msg = num_rows($dbh, 'dbd_mysql_t50commit', 0);
83   ok $dbh->commit, 'commit';
85   $msg = num_rows($dbh, 'dbd_mysql_t50commit', 0);
89   ok $dbh->do("INSERT INTO dbd_mysql_t50commit VALUES (1, 'Jochen')");
91   $msg = num_rows($dbh, 'dbd_mysql_t50commit', 1);
94   ok $dbh->disconnect;
96   ok ($dbh = DBI->connect($test_dsn, $test_user, $test_password));
98   ok $dbh, "connected";
100   $msg = num_rows($dbh, 'dbd_mysql_t50commit', 0);
103   ok $dbh->{AutoCommit}, "\$dbh->{AutoCommit} $dbh->{AutoCommit}";
104   ok $dbh->do("DROP TABLE dbd_mysql_t50commit");
110 …ok $dbh->do("DROP TABLE IF EXISTS dbd_mysql_t50commit"), "drop table if exists dbd_mysql_t50commit…
118   ok $dbh->do($create), 'create dbd_mysql_t50commit';
123   ok $dbh->do("INSERT INTO dbd_mysql_t50commit VALUES (1, 'Jochen')");
124   my $msg = num_rows($dbh, 'dbd_mysql_t50commit', 1);
127   ok $dbh->disconnect;
129   ok ($dbh = DBI->connect($test_dsn, $test_user, $test_password));
131   $msg = num_rows($dbh, 'dbd_mysql_t50commit', 1);
134   ok $dbh->do("INSERT INTO dbd_mysql_t50commit VALUES (2, 'Tim')");
143   eval { $result = $dbh->commit; };
152   ok $dbh->do("INSERT INTO dbd_mysql_t50commit VALUES (3, 'Alligator')");
157   eval { $result = $dbh->rollback; };
162   ok $dbh->do("DROP TABLE dbd_mysql_t50commit");
163   ok $dbh->disconnect();