Index: /branches/release-39/t/ddl-tests.pl
===================================================================
--- /branches/release-39/t/ddl-tests.pl (revision 2489)
+++ /branches/release-39/t/ddl-tests.pl (revision 2512)
@@ -255,4 +255,20 @@
 }
 
+sub _00_drop_table_test : Test(shutdown => 3) {
+    my $self = shift;
+
+    my $driver    = MT::Object->dbi_driver;
+    my $dbh       = $driver->rw_handle;
+    my $ddl_class = $driver->dbd->ddl_class;
+
+    my $drop_sql = $ddl_class->drop_table_sql('Ddltest');
+    ok($drop_sql, 'Drop Table SQL for Ddltest is available');
+    my $res = $dbh->do($drop_sql);
+    ok($res, 'Driver could perform Drop Table SQL for Ddltest');
+    diag($dbh->errstr || $DBI::errstr) if !$res;
+
+    ok(!defined $ddl_class->column_defs('Ddltest'), 'Ddltest table no longer exists');
+}
+
 package main;