Commit | Line | Data |
4740bdb7 |
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.'); |