Changeset 2862
- Timestamp:
- 07/29/08 22:16:33 (4 months ago)
- Files:
-
- branches/release-42/t/ddl-tests.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/release-42/t/ddl-tests.pl
r2861 r2862 332 332 is_def($class_defs->{value}, _def(0, 'string', size => 1024, key => 0), 'Multikey value column def is correct'); 333 333 334 $self-> _setup_table('Ddltest::Multikey');334 $self->reset_table_for('Ddltest::Multikey'); 335 335 my $table_defs = MT::Object->driver->dbd->ddl_class->column_defs('Ddltest::Multikey'); 336 336 ok($table_defs, 'Multikey table DDL settings are defined'); … … 343 343 sub multikey_unique : Tests(1) { 344 344 my $self = shift; 345 $self-> _setup_table('Ddltest::Multikey');345 $self->reset_table_for('Ddltest::Multikey'); 346 346 347 347 my $orig = Ddltest::Multikey->new(); … … 385 385 } 386 386 387 sub _setup_table {388 my $self = shift;389 my ($class) = @_;390 391 my $driver = MT::Object->dbi_driver;392 my $dbh = $driver->rw_handle;393 my $ddl_class = $driver->dbd->ddl_class;394 395 eval {396 if ($driver->table_exists($class)) {397 my $sql = $ddl_class->drop_table_sql($class);398 $dbh->do($sql);399 }400 };401 eval {402 my $sql = $ddl_class->create_table_sql($class);403 $dbh->do($sql);404 };405 }406 407 387 sub fixable : Tests(12) { 408 388 my $self = shift; … … 412 392 my $ddl_class = $driver->dbd->ddl_class; 413 393 414 $self-> _setup_table('Ddltest::Fixable');394 $self->reset_table_for('Ddltest::Fixable'); 415 395 for my $i (1..5) { 416 396 my $obj = Ddltest::Fixable->new;
