X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F748informix.t;h=42bdac8984d59b113c5e81bd79850376f13752e5;hb=cc506f8b4fdf305b5f4483c7fdad19bc84ea68c8;hp=8ddb01a259a99f91cee8400cf2d68b984607fd6f;hpb=b9889595401a12c705b2d974acbe00fda54dc7bd;p=dbsrgits%2FDBIx-Class.git diff --git a/t/748informix.t b/t/748informix.t index 8ddb01a..42bdac8 100644 --- a/t/748informix.t +++ b/t/748informix.t @@ -3,9 +3,13 @@ use warnings; use Test::More; use Test::Exception; +use DBIx::Class::Optional::Dependencies (); use lib qw(t/lib); use DBICTest; +plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('test_rdbms_informix') + unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_rdbms_informix'); + my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_INFORMIX_${_}" } qw/DSN USER PASS/}; #warn "$dsn $user $pass"; @@ -129,7 +133,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 +145,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; }