From: Rafael Kitover <rkitover@cpan.org>
Date: Mon, 14 Sep 2009 13:33:14 +0000 (+0000)
Subject: add another test for sybase bulk stuff (passes)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c20a4aa53fcb667f6746c71faa5de819cda7722d;p=dbsrgits%2FDBIx-Class-Historic.git

add another test for sybase bulk stuff (passes)
---

diff --git a/t/746sybase.t b/t/746sybase.t
index 1b8af4a..59b7178 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -11,7 +11,7 @@ use DBIx::Class::Storage::DBI::Sybase::NoBindVars;
 
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_${_}" } qw/DSN USER PASS/};
 
-my $TESTS = 49 + 2;
+my $TESTS = 52 + 2;
 
 if (not ($dsn && $user)) {
   plan skip_all =>
@@ -223,6 +223,32 @@ SQL
 
   $bulk_rs->delete;
 
+# make sure insert_bulk works a second time on the same connection
+  lives_ok {
+    $schema->resultset('Artist')->populate([
+      {
+        name => 'bulk artist 1',
+        charfield => 'bar',
+      },
+      {
+        name => 'bulk artist 2',
+        charfield => 'bar',
+      },
+      {
+        name => 'bulk artist 3',
+        charfield => 'bar',
+      },
+    ]);
+  } 'insert_bulk via populate called a second time';
+
+  is $bulk_rs->count, 3,
+    'correct number inserted via insert_bulk';
+
+  is ((grep $_->charfield eq 'bar', $bulk_rs->all), 3,
+    'column set correctly via insert_bulk');
+
+  $bulk_rs->delete;
+
 # test invalid insert_bulk (missing required column)
 #
 # There should be a rollback, reconnect and the next valid insert_bulk should