t/96file_column.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7 use IO::File;
   8
   9 my $schema = DBICTest->init_schema();
  10
  11 plan tests => 1;
  12
  13 my $fh = new IO::File('t/96file_column.t','r');
  14 eval { $schema->resultset('FileColumn')->create({file => {handle => $fh, filename =>'96file_column.t'}})};
  15 cmp_ok($@,'eq','','FileColumn checking if file handled properly.');