Changeset 2853

Timestamp:

07/29/08 17:46:50 (4 months ago)

Author:

mpaschal

Message:

Test column definitions on the declaration side too
Look for whether a class key is a 'key' (table defs don't expose that)
BugzID: 80847

Files:

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

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

@@ -187 +187 @@
-
-sub _def {
-auto, $not_null, $type, $size
+not_null, $type, %param
-    my $def = {
-        auto => $auto,
-        not_null => $not_null,
-        type => $type,
+        %param,
-    };
-    $def->{size} = $size if defined $size;
-    return $def;
-}
@@ -200 +199 @@
-    my ($got, $expected, $reason) = @_;
-
-
+key 
-        if ($expected->{$field} xor $got->{$field}) {
-            fail($reason);
@@ -225 +224 @@
-}
-
+sub class_defs : Tests(26) {
+    my $defs = Ddltest->column_defs();
+    ok($defs, 'Ddltest class DDL settings are defined');
+
+    is_def($defs->{id}, _def(1, 'integer', auto => 1, key => 1), 'Ddltest id column def is correct');
+
+    is_def($defs->{string_25},    _def(0, 'string', size => 25),   'Ddltest string_25 column def is correct');
+    is_def($defs->{string_25_nn}, _def(1, 'string', size => 25),   'Ddltest string_25_nn column def is correct');
+    is_def($defs->{string_255},   _def(0, 'string', size => 255),  'Ddltest string_255 column def is correct');
+    is_def($defs->{string_1024},  _def(0, 'string', size => 1024), 'Ddltest string_1024 column def is correct');
+
+    is_def($defs->{int_bool},     _def(0, 'boolean'),  'Ddltest int_bool column def is correct');
+    is_def($defs->{int_bool_nn},  _def(1, 'boolean'),  'Ddltest int_bool_nn column def is correct');
+    is_def($defs->{int_small},    _def(0, 'smallint'), 'Ddltest int_small column def is correct');
+    is_def($defs->{int_small_nn}, _def(1, 'smallint'), 'Ddltest int_small_nn column def is correct');
+    is_def($defs->{int_med},      _def(0, 'integer'),  'Ddltest int_med column def is correct');
+    is_def($defs->{int_med_nn},   _def(1, 'integer'),  'Ddltest int_med_nn column def is correct');
+    is_def($defs->{int_big},      _def(0, 'bigint'),   'Ddltest int_big column def is correct');
+    is_def($defs->{int_big_nn},   _def(1, 'bigint'),   'Ddltest int_big_nn column def is correct');
+    is_def($defs->{float},        _def(0, 'float'),    'Ddltest float column def is correct');
+    is_def($defs->{float_nn},     _def(1, 'float'),    'Ddltest float_nn column def is correct');
+    is_def($defs->{text},         _def(0, 'text'),     'Ddltest text column def is correct');
+    is_def($defs->{text_nn},      _def(1, 'text'),     'Ddltest text_nn column def is correct');
+    is_def($defs->{blob},         _def(0, 'blob'),     'Ddltest blob column def is correct');
+    is_def($defs->{blob_nn},      _def(1, 'blob'),     'Ddltest blob_nn column def is correct');
+    is_def($defs->{datetime},     _def(0, 'datetime'), 'Ddltest datetime column def is correct');
+    is_def($defs->{datetime_nn},  _def(1, 'datetime'), 'Ddltest datetime_nn column def is correct');
+
+    # audit fields
+    is_def($defs->{created_on},  _def(0, 'datetime'), 'Ddltest created_on column def is correct');
+    is_def($defs->{created_by},  _def(0, 'integer'),  'Ddltest created_by column def is correct');
+    is_def($defs->{modified_on}, _def(0, 'datetime'), 'Ddltest modified_on column def is correct');
+    is_def($defs->{modified_by}, _def(0, 'integer'),  'Ddltest modified_by column def is correct');
+}
+
-sub table_defs : Tests(26) {
-    my $defs = MT::Object->driver->dbd->ddl_class->column_defs('Ddltest');
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-    # audit fields
-0, 
-0, 
-0, 
-0, 
+
+
+
+
-}
-