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 use dbixcsl_mssql_extra_tests;
  14
  15 my $dsn      = $ENV{DBICTEST_MSSQL_DSN} || '';
  16 my $user     = $ENV{DBICTEST_MSSQL_USER} || '';
  17 my $password = $ENV{DBICTEST_MSSQL_PASS} || '';
  18
  19 my $tester = dbixcsl_common_tests->new(
  20     vendor      => 'mssql',
  21     auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY',
  22     default_function     => 'getdate()',
  23     default_function_def => 'DATETIME DEFAULT getdate()',
  24     dsn         => $dsn,
  25     user        => $user,
  26     password    => $password,
  27     extra       => dbixcsl_mssql_extra_tests->extra,
  28 );
  29
  30 if( !$dsn || !$user ) {
  31     $tester->skip_tests('You need to set the DBICTEST_MSSQL_DSN, _USER, and _PASS environment variables');
  32 }
  33 else {
  34     $tester->run_tests();
  35 }