• Home
  • History
  • Annotate
  • Line#
  • Navigate
  • Raw
  • Download
  • only in /macosx-10.9.5/CPANInternal-140/DBIx-Class-Schema-Loader-0.07033/t/backcompat/0.04006/
1use strict;
2use lib qw(t/backcompat/0.04006/lib);
3use dbixcsl_common_tests;
4use Test::More;
5plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
6    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
7
8
9my $dsn      = $ENV{DBICTEST_DB2_DSN} || '';
10my $user     = $ENV{DBICTEST_DB2_USER} || '';
11my $password = $ENV{DBICTEST_DB2_PASS} || '';
12
13my $tester = 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);
21
22if( !$dsn || !$user ) {
23    $tester->skip_tests('You need to set the DBICTEST_DB2_DSN, _USER, and _PASS environment variables');
24}
25else {
26    $tester->run_tests();
27}
28