X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F74mssql.t;h=4f72cc4a8d9446b7e7609b27f8ec91db9b99aea2;hb=da4a8fe752719362c6f6b1be5b42593fc4509ad6;hp=263fecbc3842a5bd2e08adfa31c0850543435f19;hpb=d587f67adadbedf890fdd68147e28f5d002874a5;p=dbsrgits%2FDBIx-Class.git diff --git a/t/74mssql.t b/t/74mssql.t index 263fecb..4f72cc4 100644 --- a/t/74mssql.t +++ b/t/74mssql.t @@ -1,22 +1,15 @@ +use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_mssql_sybase'; + use strict; use warnings; use Test::More; use Test::Exception; use Scalar::Util 'weaken'; -use DBIx::Class::Optional::Dependencies (); use lib qw(t/lib); use DBICTest; my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/}; - -plan skip_all => 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test' - unless ($dsn); - - -plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('test_rdbms_mssql_sybase') - unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_rdbms_mssql_sybase'); - { my $srv_ver = DBICTest::Schema->connect($dsn, $user, $pass)->storage->_server_info->{dbms_version}; ok ($srv_ver, 'Got a test server version on fresh schema: ' . ($srv_ver||'???') );