Changeset 2489

Timestamp:

06/02/08 21:55:53 (6 months ago)

Author:

mpaschal

Message:

Test error making create table sql for class with nonsense column type
BugzID: 79949

Files:

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

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

@@ -35 +35 @@
-
-package Ddltest;
-
-use base qw( MT::Object );
-
@@ -76 +75 @@
-
-
+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 +242 @@
-}
-
+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;
-