Changeset 2886
- Timestamp:
- 08/01/08 23:28:22 (4 months ago)
- Files:
-
- branches/release-42/t/ddl-tests.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/release-42/t/ddl-tests.pl
r2884 r2886 227 227 } 228 228 229 if (!defined $got->{type} || $expected->{type} ne $got->{type}) {229 if (!defined $got->{type}) { 230 230 fail($reason); 231 diag("Expected type ", $expected->{type}, " but got ", $got->{type}); 231 diag("Expected MT data type ", $expected->{type}, " but got no type at all"); 232 return; 233 } 234 235 my $ddl_class = MT::Object->driver->dbd->ddl_class; 236 my $got_type = $ddl_class->type2db($got); 237 my $expected_type = $ddl_class->type2db($expected); 238 if (!defined $got_type || $expected_type ne $got_type) { 239 fail($reason); 240 diag("Expected db data type ", $expected_type, " but got ", $got_type); 232 241 return; 233 242 }
