| | 257 | sub _00_drop_table_test : Test(shutdown => 3) { |
|---|
| | 258 | my $self = shift; |
|---|
| | 259 | |
|---|
| | 260 | my $driver = MT::Object->dbi_driver; |
|---|
| | 261 | my $dbh = $driver->rw_handle; |
|---|
| | 262 | my $ddl_class = $driver->dbd->ddl_class; |
|---|
| | 263 | |
|---|
| | 264 | my $drop_sql = $ddl_class->drop_table_sql('Ddltest'); |
|---|
| | 265 | ok($drop_sql, 'Drop Table SQL for Ddltest is available'); |
|---|
| | 266 | my $res = $dbh->do($drop_sql); |
|---|
| | 267 | ok($res, 'Driver could perform Drop Table SQL for Ddltest'); |
|---|
| | 268 | diag($dbh->errstr || $DBI::errstr) if !$res; |
|---|
| | 269 | |
|---|
| | 270 | ok(!defined $ddl_class->column_defs('Ddltest'), 'Ddltest table no longer exists'); |
|---|
| | 271 | } |
|---|
| | 272 | |
|---|
