Index: /branches/release-39/t/ddl-tests.pl
===================================================================
--- /branches/release-39/t/ddl-tests.pl (revision 2512)
+++ /branches/release-39/t/ddl-tests.pl (revision 2513)
@@ -157,4 +157,19 @@
 }
 
+sub _03_create_sequence : Tests(2) {
+    my $self = shift;
+
+    my $driver    = MT::Object->dbi_driver;
+    my $dbh       = $driver->rw_handle;
+    my $ddl_class = $driver->dbd->ddl_class;
+
+    $ddl_class->create_sequence('Ddltest');
+    pass('Created Ddltest sequence without dying');
+
+    $ddl_class->drop_sequence('Ddltest');
+    $ddl_class->create_sequence('Ddltest');
+    pass('Recreated Ddltest sequence after drop without dying');
+}
+
 sub _def {
     my ($auto, $not_null, $type, $size) = @_;