X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F748informix.t;h=08fc4b5f124798907fa62e974b3e74c3489a91ca;hb=7cb3585200c48fdf62e6be033517497ce792709b;hp=8ddb01a259a99f91cee8400cf2d68b984607fd6f;hpb=b9889595401a12c705b2d974acbe00fda54dc7bd;p=dbsrgits%2FDBIx-Class.git diff --git a/t/748informix.t b/t/748informix.t index 8ddb01a..08fc4b5 100644 --- a/t/748informix.t +++ b/t/748informix.t @@ -1,3 +1,5 @@ +use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_informix'; + use strict; use warnings; @@ -8,11 +10,6 @@ use DBICTest; my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_INFORMIX_${_}" } qw/DSN USER PASS/}; -#warn "$dsn $user $pass"; - -plan skip_all => 'Set $ENV{DBICTEST_INFORMIX_DSN}, _USER and _PASS to run this test' - unless $dsn; - my $schema = DBICTest::Schema->connect($dsn, $user, $pass, { auto_savepoint => 1 }); @@ -129,7 +126,7 @@ lives_ok { } 'with_deferred_fk_checks code survived'; is eval { $schema->resultset('Track')->find(999)->title }, 'deferred FK track', - 'code in with_deferred_fk_checks worked'; + 'code in with_deferred_fk_checks worked'; throws_ok { $schema->resultset('Track')->create({ @@ -141,6 +138,7 @@ done_testing; # clean up our mess END { - my $dbh = eval { $schema->storage->_dbh }; - $dbh->do("DROP TABLE artist") if $dbh; + my $dbh = eval { $schema->storage->_dbh }; + $dbh->do("DROP TABLE artist") if $dbh; + undef $schema; }