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 lib qw(t/backcompat/0.04006/lib);
   6 use dbixcsl_common_tests;
   7 use Test::More;
   8
   9 my $dsn      = $ENV{DBICTEST_DB2_DSN} || '';
  10 my $user     = $ENV{DBICTEST_DB2_USER} || '';
  11 my $password = $ENV{DBICTEST_DB2_PASS} || '';
  12
  13 dbixcsl_common_tests->new(
  14     vendor         => 'DB2',
  15     auto_inc_pk    => 'INTEGER GENERATED BY DEFAULT AS IDENTITY NOT NULL PRIMARY KEY',
  16     dsn            => $dsn,
  17     user           => $user,
  18     password       => $password,
  19     db_schema      => uc $user,
  20 )->run_tests();