merge in some more MSSQL code, including odbc dynamic cursor support

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

diff --git a/t/746mssql.t b/t/746mssql.t
index fa8f137..e5be28a 100644 (file)
--- a/t/746mssql.t
+++ b/t/746mssql.t
@@ -12,7 +12,7 @@ my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_ODBC_${_}" } qw/DSN USER PA
 plan skip_all => 'Set $ENV{DBICTEST_MSSQL_ODBC_DSN}, _USER and _PASS to run this test'
   unless ($dsn && $user);
 
-plan tests => 33;
+plan tests => 34;
 
 my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
 
@@ -48,12 +48,22 @@ SQL
 
 my %seen_id;
 
-# fresh $schema so we start unconnected
-$schema = DBICTest::Schema->connect($dsn, $user, $pass);
+my @opts = (
+  { on_connect_call => 'use_dynamic_cursors' },
+  {},
+);
+my $new;
 
-# test primary key handling
-my $new = $schema->resultset('Artist')->create({ name => 'foo' });
-ok($new->artistid > 0, "Auto-PK worked");
+# test Auto-PK with different options
+for my $opts (@opts) {
+  $schema = DBICTest::Schema->clone;
+  $schema->connection($dsn, $user, $pass, $opts);
+
+  $schema->resultset('Artist')->search({ name => 'foo' })->delete;
+
+  $new = $schema->resultset('Artist')->create({ name => 'foo' });
+  ok($new->artistid > 0, "Auto-PK worked");
+}
 
 $seen_id{$new->artistid}++;