X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F745db2.t;h=17a63430c9b8a1eb020ede75eff59469b60b6f89;hb=e9d552de92cde6552f35cd45a3572df1e25609cc;hp=9123330c2db1c782dfcf78a2bf2daf550f9bfb43;hpb=4ca1fd6fb90a85f5138d11f580394025aa20ea4a;p=dbsrgits%2FDBIx-Class.git diff --git a/t/745db2.t b/t/745db2.t index 9123330..17a6343 100644 --- a/t/745db2.t +++ b/t/745db2.t @@ -1,23 +1,15 @@ +use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_db2'; + use strict; use warnings; use Test::More; use Test::Exception; use Try::Tiny; -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_db2') - unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_rdbms_db2'); - my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_DB2_${_}" } qw/DSN USER PASS/}; - -#warn "$dsn $user $pass"; - -plan skip_all => 'Set $ENV{DBICTEST_DB2_DSN}, _USER and _PASS to run this test' - unless ($dsn && $user); - my $schema = DBICTest::Schema->connect($dsn, $user, $pass); my $name_sep = $schema->storage->_dbh_get_info('SQL_QUALIFIER_NAME_SEPARATOR');