my mistake, change 96file_column.pm to 96file_column.t

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

diff --git a/t/96file_column.t b/t/96file_column.t
new file mode 100644 (file)
index 0000000..25d9149
--- /dev/null
+++ b/t/96file_column.t
@@ -0,0 +1,18 @@
+use strict;
+use warnings;  
+
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+use IO::File;
+
+my $schema = DBICTest->init_schema();
+
+plan tests => 2;
+
+
+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.');