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

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.');
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.');