t/16mssql_common.t

   1 use strict;
   2 use warnings;
   3
   4 # use this if you keep a copy of DBD::Sybase linked to FreeTDS somewhere else
   5 BEGIN {
   6   if (my $lib_dirs = $ENV{DBICTEST_MSSQL_PERL5LIB}) {
   7     unshift @INC, $_ for split /:/, $lib_dirs;
   8   }
   9 }
  10
  11 use lib qw(t/lib);
  12 use dbixcsl_common_tests;
  13
  14 my $dsn      = $ENV{DBICTEST_MSSQL_DSN} || '';
  15 my $user     = $ENV{DBICTEST_MSSQL_USER} || '';
  16 my $password = $ENV{DBICTEST_MSSQL_PASS} || '';
  17
  18 my $tester = dbixcsl_common_tests->new(
  19     vendor      => 'Microsoft',
  20     auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY',
  21     dsn         => $dsn,
  22     user        => $user,
  23     password    => $password,
  24 );
  25
  26 if( !$dsn || !$user ) {
  27     $tester->skip_tests('You need to set the DBICTEST_MSSQL_DSN, _USER, and _PASS environment variables');
  28 }
  29 else {
  30     $tester->run_tests();
  31 }