From: Marc Mims Date: Mon, 6 Oct 2008 20:04:50 +0000 (+0000) Subject: Remove superfluous TODO test X-Git-Tag: v0.08240~335 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d8d86113e979681ace58e678a899fcf39ed47f2;p=dbsrgits%2FDBIx-Class.git Remove superfluous TODO test --- diff --git a/t/96file_column.t b/t/96file_column.t index d81292e..f4a166f 100644 --- a/t/96file_column.t +++ b/t/96file_column.t @@ -10,7 +10,7 @@ use Path::Class qw/file/; 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 @@ $fc->delete; 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}, - ); - ok ( -e $storage, 'storage exists (2)' ); +$storage = file( + $fc->column_info('file')->{file_column_path}, + $fc->id, + $fc->file->{filename}, +); +TODO: { + local $TODO = 'need resultset delete override to delete_all'; $rs->delete; ok ( ! -e $storage, 'storage does not exist after $rs->delete' ); };