From: Tina Mueller <cpan2@tinita.de>
Date: Tue, 4 Aug 2015 13:52:42 +0000 (+0200)
Subject: test for blob insert inside of transaction
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2aed7179a8477180f326cbd9a9cc20f00c882a13;p=dbsrgits%2FDBIx-Class-Historic.git

test for blob insert inside of transaction
---

diff --git a/t/746sybase.t b/t/746sybase.t
index d4588c5..4f1c2cd 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -490,6 +490,14 @@ SQL
       $rs->update({ blob => undef });
       is((grep !defined($_->blob), $rs->all), 2);
     } 'blob update to NULL';
+
+    lives_ok {
+        $schema->txn_do(sub {
+              my $created = $rs->create( { clob => "some text" } );
+          });
+    } 'insert blob field in transaction';
+    $ping_count-- if $@; # dbh_do calls ->connected
+
   }
 
 # test MONEY column support (and some other misc. stuff)