X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finflate%2Ffile_column.t;h=b8330bfd6f8838d3346c9586024446335bdb63f7;hb=b5c8410c7296e6d5128292b3d21a6a2c261774cc;hp=7f0eddd3a61251e43959d60230ace39e06caccd5;hpb=823c91a18ccb75b3bd2e9adf87139b612c96ba86;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/inflate/file_column.t b/t/inflate/file_column.t
index 7f0eddd..b8330bf 100644
--- a/t/inflate/file_column.t
+++ b/t/inflate/file_column.t
@@ -70,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' );