test for blob insert inside of transaction

diff --git a/t/746sybase.t b/t/746sybase.t
index d4588c5..4f1c2cd 100644 (file)
--- 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)