Index: /branches/release-39/t/ddl-tests.pl
===================================================================
--- /branches/release-39/t/ddl-tests.pl (revision 2488)
+++ /branches/release-39/t/ddl-tests.pl (revision 2489)
@@ -35,5 +35,4 @@
 
 package Ddltest;
-
 use base qw( MT::Object );
 
@@ -76,4 +75,18 @@
 
 
+package Ddltest::InvalidType;
+use base qw( MT::Object );
+
+__PACKAGE__->install_properties({
+    column_defs => {
+        id => 'integer not null auto_increment',
+        boo => 'asfdasf',
+    },
+    datasource  => 'ddltest_invalidtype',
+    primary_key => 'id',
+    cacheable   => 0,
+});
+
+
 package Test::DDL;
 use base qw( Test::Class MT::Test );
@@ -229,4 +242,17 @@
 }
 
+sub invalid_type : Tests(3) {
+    my $self = shift;
+
+    my $driver    = MT::Object->dbi_driver;
+    my $dbh       = $driver->rw_handle;
+    my $ddl_class = $driver->dbd->ddl_class;
+
+    ok(!$driver->table_exists('Ddltest::InvalidType'), 'Ddltest::InvalidType table does not yet exist');
+    ok(!defined $ddl_class->column_defs('Ddltest::InvalidType'), 'Ddltest::InvalidType table has no column defs');
+
+    ok(!eval { $ddl_class->create_table_sql('Ddltest::InvalidType') }, 'Ddltest::InvalidType cannot make creation sql');
+}
+
 package main;