t/backcompat/0.04006/13db2_common.t

   1 use DBIx::Class::Schema::Loader::Optional::Dependencies
   2     -skip_all_without => qw(test_backcompat test_rdbms_db2);
   3
   4 use strict;
   5 use warnings;
   6 use lib qw(t/backcompat/0.04006/lib);
   7 use dbixcsl_common_tests;
   8 use Test::More;
   9
  10 my $dsn      = $ENV{DBICTEST_DB2_DSN} || '';
  11 my $user     = $ENV{DBICTEST_DB2_USER} || '';
  12 my $password = $ENV{DBICTEST_DB2_PASS} || '';
  13
  14 dbixcsl_common_tests->new(
  15     vendor         => 'DB2',
  16     auto_inc_pk    => 'INTEGER GENERATED BY DEFAULT AS IDENTITY NOT NULL PRIMARY KEY',
  17     dsn            => $dsn,
  18     user           => $user,
  19     password       => $password,
  20     db_schema      => uc $user,
  21 )->run_tests();