X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F98savepoints.t;h=4ca9a95625ae2f96f747ac0670ed06a851f6c3c3;hb=a0da03096cd65314cb337d6f4254cd1a0ce4ed7b;hp=8e85f206f76e00d3d0aaf1da3a2ed18a18d6ee07;hpb=ddf66ced51e4cb9b888001bc926bc0b3c3af0f8b;p=dbsrgits%2FDBIx-Class.git diff --git a/t/98savepoints.t b/t/98savepoints.t index 8e85f20..4ca9a95 100644 --- a/t/98savepoints.t +++ b/t/98savepoints.t @@ -8,14 +8,14 @@ use DBICTest::Stats; my ($create_sql, $dsn, $user, $pass); -if (exists $ENV{DBICTEST_PG_DSN}) { +if ($ENV{DBICTEST_PG_DSN}) { ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/}; - $create_sql = "CREATE TABLE artist (artistid serial PRIMARY KEY, name VARCHAR(100), charfield CHAR(10))"; -} elsif (exists $ENV{DBICTEST_MYSQL_DSN}) { + $create_sql = "CREATE TABLE artist (artistid serial PRIMARY KEY, name VARCHAR(100), rank INTEGER NOT NULL DEFAULT '13', charfield CHAR(10))"; +} elsif ($ENV{DBICTEST_MYSQL_DSN}) { ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MYSQL_${_}" } qw/DSN USER PASS/}; - $create_sql = "CREATE TABLE artist (artistid INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(255), charfield CHAR(10)) ENGINE=InnoDB"; + $create_sql = "CREATE TABLE artist (artistid INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(100), rank INTEGER NOT NULL DEFAULT '13', charfield CHAR(10)) ENGINE=InnoDB"; } else { plan skip_all => 'Set DBICTEST_(PG|MYSQL)_DSN _USER and _PASS if you want to run savepoint tests'; } @@ -30,7 +30,11 @@ $schema->storage->debugobj($stats); $schema->storage->debug(1); -$schema->storage->dbh->do ($create_sql); +{ + local $SIG{__WARN__} = sub {}; + $schema->storage->dbh->do ('DROP TABLE IF EXISTS artist'); + $schema->storage->dbh->do ($create_sql); +} $schema->resultset('Artist')->create({ name => 'foo' });