[dbsrgits/DBIx-Class.git] / t / 14mssql.t

use lib qw(lib t/lib);\r
use DBICTest::Schema;\r
\r
use Test::More;\r
\r
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/};\r
\r
#warn "$dsn $user $pass";\r
\r
plan skip_all, 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'\r
  unless ($dsn);\r
\r
plan tests => 1;\r
\r
DBICTest::Schema->compose_connection('MSSQLTest' => $dsn, $user, $pass);\r
\r
my $dbh = MSSQLTest::Artist->storage->dbh;\r
\r
$dbh->do("IF OBJECT_ID('artist', 'U') IS NOT NULL\r
    DROP TABLE artist");\r
\r
$dbh->do("CREATE TABLE artist (artistid INT IDENTITY PRIMARY KEY, name VARCHAR(255));");\r
\r
MSSQLTest::Artist->load_components('PK::Auto::MSSQL');\r
\r
my $new = MSSQLTest::Artist->create({ name => 'foo' });\r
\r
ok($new->artistid, "Auto-PK worked");\r
\r
1;\r
Commit	Line	Data
b8566d66	1	use lib qw(lib t/lib);\r
	2	use DBICTest::Schema;\r
	3	\r
	4	use Test::More;\r
	5	\r
	6	my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/};\r
	7	\r
	8	#warn "$dsn $user $pass";\r
	9	\r
	10	plan skip_all, 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'\r
	11	unless ($dsn);\r
	12	\r
	13	plan tests => 1;\r
	14	\r
	15	DBICTest::Schema->compose_connection('MSSQLTest' => $dsn, $user, $pass);\r
	16	\r
	17	my $dbh = MSSQLTest::Artist->storage->dbh;\r
	18	\r
	19	$dbh->do("IF OBJECT_ID('artist', 'U') IS NOT NULL\r
	20	DROP TABLE artist");\r
	21	\r
	22	$dbh->do("CREATE TABLE artist (artistid INT IDENTITY PRIMARY KEY, name VARCHAR(255));");\r
	23	\r
	24	MSSQLTest::Artist->load_components('PK::Auto::MSSQL');\r
	25	\r
	26	my $new = MSSQLTest::Artist->create({ name => 'foo' });\r
	27	\r
	28	ok($new->artistid, "Auto-PK worked");\r
	29	\r
	30	1;\r