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 => 2;
  12
  13
  14 eval { $schema->resultset('FileColumn')->create({file=>'wrong set'}) };
  15 ok($@, 'FileColumn checking for checks against bad sets');
  16 my $fh = new IO::File('t/96file_column.pm','r');
  17 eval { $schema->resultset('FileColumn')->create({file => {handle => $fh, filename =>'96file_column.pm'}})};
  18 ok(!$@,'FileColumn checking if file handled properly.');