+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_file );
+
use strict;
use warnings;
use Test::More;
-use lib qw(t/lib);
-
use DBICTest;
use DBICTest::Schema;
+use File::Temp ();
use File::Compare;
use Path::Class qw/file/;
use warnings;
use base qw/DBICTest::BaseResult/;
- use File::Temp qw/tempdir/;
-
__PACKAGE__->load_components (qw/InflateColumn::File/);
__PACKAGE__->table('file_columns');
file => {
data_type => 'varchar',
is_file_column => 1,
- file_column_path => tempdir(CLEANUP => 1),
+ file_column_path => File::Temp->newdir( CLEANUP => 1, DIR => DBICTest::Util::tmpdir() ),
size => 255
}
);
$fc->file({ handle => $fh, filename => $new_fname });
$fc->update;
-TODO: {
+{
local $TODO = 'design change required';
ok ( ! -e $storage, 'old storage does not exist' );
};
$fc->file->{filename},
);
-TODO: {
+{
local $TODO = 'need resultset delete override to delete_all';
$rs->delete;
ok ( ! -e $storage, 'storage does not exist after $rs->delete' );
-};
+}