X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F98savepoints.t;fp=t%2F98savepoints.t;h=7bc6d64735080dd83a3ccabc026485f9b2888742;hb=199fbc453ec03891d0e156d7353c5e992ba4de47;hp=45fe577f187d240e49321316ddbc586b9c4f9f89;hpb=64b3598fcf53fcec068a67277d80363540f19427;p=dbsrgits%2FDBIx-Class.git diff --git a/t/98savepoints.t b/t/98savepoints.t index 45fe577..7bc6d64 100644 --- a/t/98savepoints.t +++ b/t/98savepoints.t @@ -2,14 +2,21 @@ use strict; use warnings; use Test::More; +use DBIx::Class::Optional::Dependencies (); my ($create_sql, $dsn, $user, $pass); if ($ENV{DBICTEST_PG_DSN}) { + plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('rdbms_pg') + unless DBIx::Class::Optional::Dependencies->req_ok_for ('rdbms_pg'); + ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/}; $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}) { + plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('test_rdbms_mysql') + unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_rdbms_mysql'); + ($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(100), rank INTEGER NOT NULL DEFAULT '13', charfield CHAR(10)) ENGINE=InnoDB";