File tree Expand file tree Collapse file tree 1 file changed +9
-5
lines changed Expand file tree Collapse file tree 1 file changed +9
-5
lines changed Original file line number Diff line number Diff line change @@ -39,9 +39,11 @@ sub num_rows($$$) {
39
39
40
40
my $engines = $dbh -> selectall_hashref(' SHOW ENGINES' , ' Engine' );
41
41
my $have_innodb = exists $engines -> {InnoDB } && $engines -> {InnoDB }-> {Support } ne ' NO' ;
42
+ my $have_myisam = exists $engines -> {MyISAM } && $engines -> {MyISAM }-> {Support } ne ' NO' ;
43
+
44
+ plan tests => 1 + ($have_myisam ? 12 : 0) + ($have_innodb ? 22 : 0);
42
45
43
46
if ($have_innodb ) {
44
- plan tests => 22;
45
47
46
48
ok $dbh -> do(" DROP TABLE IF EXISTS dbd_mysql_t50commit" ), " drop table if exists dbd_mysql_t50commit" ;
47
49
my $create =<<EOT ;
@@ -100,15 +102,15 @@ EOT
100
102
ok $dbh -> do(" DROP TABLE dbd_mysql_t50commit" );
101
103
102
104
}
103
- else {
104
- plan tests => 13;
105
+
106
+ if ( $have_myisam ) {
105
107
106
108
ok $dbh -> do(" DROP TABLE IF EXISTS dbd_mysql_t50commit" ), " drop table if exists dbd_mysql_t50commit" ;
107
109
my $create =<<EOT ;
108
110
CREATE TABLE dbd_mysql_t50commit (
109
111
id INT(4) NOT NULL default 0,
110
112
name VARCHAR(64) NOT NULL default ''
111
- )
113
+ ) ENGINE=MyISAM
112
114
EOT
113
115
114
116
ok $dbh -> do($create ), ' create dbd_mysql_t50commit' ;
154
156
ok $got_warning , " Should be warning defined upon rollback of non-trx table" ;
155
157
156
158
ok $dbh -> do(" DROP TABLE dbd_mysql_t50commit" );
157
- ok $dbh -> disconnect();
159
+
158
160
}
161
+
162
+ ok $dbh -> disconnect();
You can’t perform that action at this time.
0 commit comments