Fix errors from resultset components (and move tests into t/90ensure_class_loaded...

[dbsrgits/DBIx-Class.git] / t / 96file_column.t

diff --git a/t/96file_column.t b/t/96file_column.t
index 25d9149..d32e373 100644 (file)
--- a/t/96file_column.t
+++ b/t/96file_column.t
@@ -8,11 +8,8 @@ use IO::File;
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 2;
+plan tests => 1;
 
-
-eval { $schema->resultset('FileColumn')->create({file=>'wrong set'}) };
-ok($@, 'FileColumn checking for checks against bad sets');
-my $fh = new IO::File('t/96file_column.pm','r');
-eval { $schema->resultset('FileColumn')->create({file => {handle => $fh, filename =>'96file_column.pm'}})};
-ok(!$@,'FileColumn checking if file handled properly.');
+my $fh = new IO::File('t/96file_column.t','r');
+eval { $schema->resultset('FileColumn')->create({file => {handle => $fh, filename =>'96file_column.t'}})};
+cmp_ok($@,'eq','','FileColumn checking if file handled properly.');