From: Rafael Kitover <rkitover@cpan.org>
Date: Mon, 29 Jun 2009 21:45:19 +0000 (+0000)
Subject: branch pushed, removing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc54ca97b71fac500876df327858394769f80a19;p=dbsrgits%2FDBIx-Class-Historic.git

branch pushed, removing
---

diff --git a/t/746sybase.t b/t/746sybase.t
index f0818fa..2d0d491 100644
--- a/t/746sybase.t
+++ b/t/746sybase.t
@@ -163,22 +163,18 @@ SQL
   my $rs = $schema->resultset('BindType');
   my $id = 0;
 
-  TODO: {
-#    local $TODO = 'TEXT/IMAGE columns don\'t work yet';
-
-    foreach my $type (qw(blob clob)) {
-      foreach my $size (qw(small large)) {
-        no warnings 'uninitialized';
-        $id++;
-
-        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" );
-      }
+  foreach my $type (qw(blob clob)) {
+    foreach my $size (qw(small large)) {
+      no warnings 'uninitialized';
+      $id++;
+
+      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" );
     }
   }
 }