From: Rafael Kitover <rkitover@cpan.org>
Date: Mon, 10 Jan 2011 19:55:20 +0000 (-0500)
Subject: remove warning about trying to delete open file in t/inflate/file_column.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1239d14e2874c2209270d5388fd5055e348cf83f;p=dbsrgits%2FDBIx-Class-Historic.git

remove warning about trying to delete open file in t/inflate/file_column.t
---

diff --git a/Changes b/Changes
index 99ba5c7..043f9d4 100644
--- a/Changes
+++ b/Changes
@@ -7,6 +7,10 @@ Revision history for DBIx::Class
         - Fix proper composition of bind values across all possible
           SQL areas ( group_by => \[ ... ] now works properly )
 
+    * Misc
+        - Fix test warning on win32 - at this point the test suite is
+          warning-free on all known OSes
+
 0.08126 2010-12-28 18:10 (UTC)
     * Fixes
         - Bump forgotten Class::Accessor::Grouped core dependency
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' );