[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 15sybase_common.t

use strict;
use lib qw(t/lib);
use dbixcsl_common_tests;

# you need maxConnect=256 in your DSN for this test to pass

my $dsn      = $ENV{DBICTEST_SYBASE_DSN} || '';
my $user     = $ENV{DBICTEST_SYBASE_USER} || '';
my $password = $ENV{DBICTEST_SYBASE_PASS} || '';

my $tester = dbixcsl_common_tests->new(
    vendor      => 'Sybase',
    auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY',
    dsn         => $dsn,
    user        => $user,
    password    => $password,
);

if( !$dsn || !$user ) {
    $tester->skip_tests('You need to set the DBICTEST_SYBASE_DSN, _USER, and _PASS environment variables');
}
else {
    $tester->run_tests();
}
Commit	Line	Data
fe67d343	1	use strict;
	2	use lib qw(t/lib);
	3	use dbixcsl_common_tests;
	4
1765b8a0	5	# you need maxConnect=256 in your DSN for this test to pass
1765b8a0	6
fe67d343	7	my $dsn = $ENV{DBICTEST_SYBASE_DSN} \|\| '';
	8	my $user = $ENV{DBICTEST_SYBASE_USER} \|\| '';
	9	my $password = $ENV{DBICTEST_SYBASE_PASS} \|\| '';
	10
	11	my $tester = dbixcsl_common_tests->new(
	12	vendor => 'Sybase',
fe67d343	13	auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY',
	14	dsn => $dsn,
	15	user => $user,
	16	password => $password,
	17	);
	18
	19	if( !$dsn \|\| !$user ) {
	20	$tester->skip_tests('You need to set the DBICTEST_SYBASE_DSN, _USER, and _PASS environment variables');
	21	}
	22	else {
	23	$tester->run_tests();
	24	}