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 | ||
28d4067a | 11 | plan tests => 1; |
4740bdb7 | 12 | |
28d4067a | 13 | my $fh = new IO::File('t/96file_column.t','r'); |
14 | eval { $schema->resultset('FileColumn')->create({file => {handle => $fh, filename =>'96file_column.t'}})}; | |
2ec8e594 | 15 | cmp_ok($@,'eq','','FileColumn checking if file handled properly.'); |