Changeset 2858

Timestamp:

07/29/08 19:49:59 (4 months ago)

Author:

mpaschal

Message:

Test column definitions of a multikey class
BugzID: 80847

Files:

• branches/release-42/t/ddl-tests.pl (modified) (5 diffs)

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

@@ -75 +75 @@
-
-
+package Ddltest::Multikey;
+use base qw( MT::Object );
+
+__PACKAGE__->install_properties({
+    column_defs => {
+        fkey  => 'integer not null',
+        type  => 'string(255) not null',
+        value => 'string(1024)',
+    },
+    datasource  => 'multikey',
+    primary_key => [ qw( fkey type ) ],
+    cacheable   => 0,
+});
+
+
-package Ddltest::InvalidType;
-use base qw( MT::Object );
@@ -209 +224 @@
-    }
-
-
+!defined $got->{type} || 
-        fail($reason);
-        diag("Expected type ", $expected->{type}, " but got ", $got->{type});
@@ -306 +321 @@
-}
-
+sub multikey_defs : Tests(8) {
+    my $self = shift;
+
+    my $class_defs = Ddltest::Multikey->column_defs();
+    ok($class_defs, 'Multikey class DDL settings are defined');
+
+    # TODO: multikeys aren't reported as keys.
+    is_def($class_defs->{fkey},  _def(1, 'integer', auto => 0,    key => 0), 'Multikey id column def is correct');
+    is_def($class_defs->{type},  _def(1, 'string',  size => 255,  key => 0), 'Multikey type column def is correct');
+    is_def($class_defs->{value}, _def(0, 'string',  size => 1024, key => 0), 'Multikey value column def is correct');
+
+    $self->_setup_table('Ddltest::Multikey');
+    my $table_defs = MT::Object->driver->dbd->ddl_class->column_defs('Ddltest::Multikey');
+    ok($table_defs, 'Multikey table DDL settings are defined');
+
+    is_def($table_defs->{fkey},  _def(1, 'integer', auto => 0),    'Multikey id column def is correct');
+    is_def($table_defs->{type},  _def(1, 'string',  size => 255),  'Multikey type column def is correct');
+    is_def($table_defs->{value}, _def(0, 'string',  size => 1024), 'Multikey value column def is correct');
+}
+
-sub invalid_type : Tests(3) {
-    my $self = shift;
@@ -319 +354 @@
-}
-
-
-
+
+
+
-
-    my $driver    = MT::Object->dbi_driver;
@@ -327 +363 @@
-
-    eval {
-'Ddltest::Fixable'
-'Ddltest::Fixable'
+$class
+$class
-            $dbh->do($sql);
-        }
-    };
-    eval {
-'Ddltest::Fixable'
+$class
-        $dbh->do($sql);
-    };
+}
+
+sub fixable : Tests(12) {
+    my $self = shift;
+
+    my $driver    = MT::Object->dbi_driver;
+    my $dbh       = $driver->rw_handle;
+    my $ddl_class = $driver->dbd->ddl_class;
+
+    $self->_setup_table('Ddltest::Fixable');
-    for my $i (1..5) {
-        my $obj = Ddltest::Fixable->new;