Reshape initial tests

[dbsrgits/DBIx-Class-Historic.git] / t / inflate / file_column.t

diff --git a/t/inflate/file_column.t b/t/inflate/file_column.t
index a9a75f0..b8330bf 100644 (file)
--- a/t/inflate/file_column.t
+++ b/t/inflate/file_column.t
@@ -1,14 +1,22 @@
 use strict;
-use warnings;  
+use warnings;
 
 use Test::More;
 use lib qw(t/lib);
+
+# inject IC::File into the result baseclass for testing
+BEGIN {
+  $ENV{DBIC_IC_FILE_NOWARN} = 1;
+  require DBICTest::BaseResult;
+  DBICTest::BaseResult->load_components (qw/InflateColumn::File/);
+}
+
+
 use DBICTest;
-use IO::File;
 use File::Compare;
 use Path::Class qw/file/;
 
-my $schema = DBICTest->init_schema();
+my $schema = DBICTest->init_schema;
 
 plan tests => 10;
 
@@ -62,6 +70,9 @@ $fc = $rs->find({ id => $fc->id });
 is ( $fc->file->{filename}, $new_fname, 'new filname matches' );
 ok ( compare($new_storage, $new_source_file) == 0, 'new content matches' );
 
+if ($^O =~ /win32|cygwin/i) {
+  close $fc->file->{handle}; # can't delete open files on Windows
+}
 $fc->delete;
 
 ok ( ! -e $storage, 'storage deleted' );