Changeset 2705 for branches/release-41/t/ddl-tests.pl

Timestamp:

07/03/08 23:42:42 (17 months ago)

Author:

bchoate

Message:

Added support for determining autoincrement/nullable columns for sqlite's DDL module.

Files:

• branches/release-41/t/ddl-tests.pl (modified) (3 diffs)

branches/release-41/t/ddl-tests.pl

@@ -112 +112 @@
     my $self = shift;
 
-    $self->init_testdb();
-
     my $driver    = MT::Object->dbi_driver;
     my $dbh       = $driver->rw_handle;
@@ -312 +310 @@
     ok($defs->{baz}, 'Ddltest::Fixable table has baz column after creation');
 
-    my $sql = $ddl_class->drop_column_sql('Ddltest::Fixable', 'baz');
-    ok($sql, 'Ddltest::Fixable can have column dropping sql');
-    my $res = $dbh->do($sql);
-    ok($res, 'Ddltest::Fixable could have its column dropped');
+    my $sql;
+    my $res;
+
+    SKIP: {
+        skip("Driver cannot drop columns", 2) unless $ddl_class->can_drop_column;
+        $sql = $ddl_class->drop_column_sql('Ddltest::Fixable', 'baz');
+        ok($sql, 'Ddltest::Fixable can have column dropping sql');
+        $res = $dbh->do($sql);
+        ok($res, 'Ddltest::Fixable could have its column dropped');
+    }
 
     {
@@ -327 +331 @@
 
     $defs = $ddl_class->column_defs('Ddltest::Fixable');
-    ok(!$defs->{baz},  'Ddltest::Fixable did indeed have a column dropped');
+    SKIP: {
+        skip("Driver cannot drop columns", 1) unless $ddl_class->can_drop_column;
+        ok(!$defs->{baz},  'Ddltest::Fixable did indeed have a column dropped');
+    }
     ok( $defs->{borf}, 'Ddltest::Fixable did indeed have a column added');