prototype blob implementation

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

diff --git a/t/746sybase.t b/t/746sybase.t
index 5b25b06..f0818fa 100644 (file)
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -164,7 +164,7 @@ SQL
   my $id = 0;
 
   TODO: {
-    local $TODO = 'TEXT/IMAGE columns don\'t work yet';
+#    local $TODO = 'TEXT/IMAGE columns don\'t work yet';
 
     foreach my $type (qw(blob clob)) {
       foreach my $size (qw(small large)) {
@@ -173,6 +173,8 @@ SQL
 
         eval { $rs->create( { 'id' => $id, $type => $binstr{$size} } ) };
         ok(!$@, "inserted $size $type without dying");
+        diag $@ if $@;
+
         ok(eval {
           $rs->search({ id=> $id }, { select => [$type] })->single->$type
         } eq $binstr{$size}, "verified inserted $size $type" );