11 use Path::Class qw/file/;
14 local $ENV{DBIC_IC_FILE_NOWARN} = 1;
16 package DBICTest::Schema::FileColumn;
20 use base qw/DBICTest::BaseResult/;
22 use File::Temp qw/tempdir/;
24 __PACKAGE__->load_components (qw/InflateColumn::File/);
25 __PACKAGE__->table('file_columns');
27 __PACKAGE__->add_columns(
28 id => { data_type => 'integer', is_auto_increment => 1 },
30 data_type => 'varchar',
32 file_column_path => tempdir(CLEANUP => 1),
37 __PACKAGE__->set_primary_key('id');
39 DBICTest::Schema->load_classes('FileColumn');
41 my $schema = DBICTest->init_schema;
45 my $rs = $schema->resultset('FileColumn');
46 my $source_file = file(__FILE__);
47 my $fname = $source_file->basename;
48 my $fh = $source_file->open('r') or die "failed to open $source_file: $!\n";
50 $rs->create({ file => { handle => $fh, filename => $fname } })
52 is ( $@, '', 'created' );
57 $fc->column_info('file')->{file_column_path},
59 $fc->file->{filename},
61 ok ( -e $storage, 'storage exists' );
64 $fc = $rs->find({ id => $fc->id });
66 is ( $fc->file->{filename}, $fname, 'filename matches' );
67 ok ( compare($storage, $source_file) == 0, 'file contents matches' );
70 my $new_fname = 'File.pm';
71 my $new_source_file = file(qw/lib DBIx Class InflateColumn File.pm/);
72 my $new_storage = file(
73 $fc->column_info('file')->{file_column_path},
77 $fh = $new_source_file->open('r') or die "failed to open $new_source_file: $!\n";
79 $fc->file({ handle => $fh, filename => $new_fname });
83 local $TODO = 'design change required';
84 ok ( ! -e $storage, 'old storage does not exist' );
87 ok ( -e $new_storage, 'new storage exists' );
90 $fc = $rs->find({ id => $fc->id });
92 is ( $fc->file->{filename}, $new_fname, 'new filname matches' );
93 ok ( compare($new_storage, $new_source_file) == 0, 'new content matches' );
95 if ($^O =~ /win32|cygwin/i) {
96 close $fc->file->{handle}; # can't delete open files on Windows
100 ok ( ! -e $storage, 'storage deleted' );
102 $fh = $source_file->openr or die "failed to open $source_file: $!\n";
103 $fc = $rs->create({ file => { handle => $fh, filename => $fname } });
106 $fc->discard_changes;
109 $fc->column_info('file')->{file_column_path},
111 $fc->file->{filename},
115 local $TODO = 'need resultset delete override to delete_all';
117 ok ( ! -e $storage, 'storage does not exist after $rs->delete' );