X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746sybase.t;h=0b8406c5cee25251ed780ac82cc030fb7bd15e68;hb=b8e92dac9f2f65895700dbd0d0606f75b900a8e0;hp=2536bcd992e791dd63ff9c909900ed44f037f74b;hpb=5241250d8ed0c5b8e186382eb365147c9de6ffd5;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/746sybase.t b/t/746sybase.t
index 2536bcd..0b8406c 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -501,6 +501,13 @@ 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 $@; # failure retry triggers a ping
   }
 
 # test MONEY column support (and some other misc. stuff)