8 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_ODBC_${_}" } qw/DSN USER PASS/};
10 plan skip_all => 'Set $ENV{DBICTEST_MSSQL_ODBC_DSN}, _USER and _PASS to run this test'
11 unless ($dsn && $user);
15 my $schema = DBICTest::Schema->connect($dsn, $user, $pass, {AutoCommit => 1});
17 $schema->storage->ensure_connected;
18 isa_ok( $schema->storage, 'DBIx::Class::Storage::DBI::ODBC::Microsoft_SQL_Server' );
20 my $dbh = $schema->storage->_dbh;
22 eval { $dbh->do("DROP TABLE artist") };
26 artistid INT IDENTITY NOT NULL,
28 charfield CHAR(10) NULL,
34 # fresh $schema so we start unconnected
35 $schema = DBICTest::Schema->connect($dsn, $user, $pass, {AutoCommit => 1});
37 # test primary key handling
38 my $new = $schema->resultset('Artist')->create({ name => 'foo' });
39 ok($new->artistid > 0, "Auto-PK worked");
41 $seen_id{$new->artistid}++;
45 $new = $schema->resultset('Artist')->create({ name => 'Artist ' . $_ });
46 is ( $seen_id{$new->artistid}, undef, "id for Artist $_ is unique" );
47 $seen_id{$new->artistid}++;
50 my $it = $schema->resultset('Artist')->search( {}, {
52 order_by => 'artistid',
55 is( $it->count, 3, "LIMIT count ok" );
56 is( $it->next->name, "foo", "iterator->next ok" );
58 is( $it->next->name, "Artist 2", "iterator->next ok" );
59 is( $it->next, undef, "next past end of resultset ok" );
64 $dbh = eval { $schema->storage->_dbh };
65 $dbh->do('DROP TABLE artist') if $dbh;