[Bast-commits] r4895 - DBIx-Class/0.08/trunk/t

[semifor at dev.catalyst.perl.org]

Author: semifor
Date: 2008-10-06 21:04:50 +0100 (Mon, 06 Oct 2008)
New Revision: 4895

Modified:
   DBIx-Class/0.08/trunk/t/96file_column.t
Log:
Remove superfluous TODO test

Modified: DBIx-Class/0.08/trunk/t/96file_column.t
===================================================================
--- DBIx-Class/0.08/trunk/t/96file_column.t	2008-10-06 18:16:07 UTC (rev 4894)
+++ DBIx-Class/0.08/trunk/t/96file_column.t	2008-10-06 20:04:50 UTC (rev 4895)
@@ -10,7 +10,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 11;
+plan tests => 10;
 
 my $rs = $schema->resultset('FileColumn');
 my $fname = '96file_column.t';
@@ -66,22 +66,20 @@
 
 ok ( ! -e $storage, 'storage deleted' );
 
-TODO: {
-    local $TODO = 'need resultset delete override to delete_all';
+$fh = $source_file->openr or die "failed to open $source_file: $!\n";
+$fc = $rs->create({ file => { handle => $fh, filename => $fname } });
 
-    $fh = $source_file->openr or die "failed to open $source_file: $!\n";
-    $fc = $rs->create({ file => { handle => $fh, filename => $fname } });
+# read it back
+$fc->discard_changes;
 
-    # read it back
-    $fc->discard_changes;
+$storage = file(
+    $fc->column_info('file')->{file_column_path},
+    $fc->id,
+    $fc->file->{filename},
+);
 
-    $storage = file(
-        $fc->column_info('file')->{file_column_path},
-        $fc->id,
-        $fc->file->{filename},
-    );
-    ok ( -e $storage, 'storage exists (2)' );
-
+TODO: {
+    local $TODO = 'need resultset delete override to delete_all';
     $rs->delete;
     ok ( ! -e $storage, 'storage does not exist after $rs->delete' );
 };