[Bast-commits] r7445 - in trunk/DBIx-Class-EncodedColumn: . t t/lib

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2009-08-30 20:04:17 +0000 (Sun, 30 Aug 2009)
New Revision: 7445

Modified:
   trunk/DBIx-Class-EncodedColumn/Changes
   trunk/DBIx-Class-EncodedColumn/t/02digest.t
   trunk/DBIx-Class-EncodedColumn/t/lib/DigestTest.pm
Log:
disconnect dbh before unlinking so tests pass on win32

Modified: trunk/DBIx-Class-EncodedColumn/Changes
===================================================================
--- trunk/DBIx-Class-EncodedColumn/Changes	2009-08-30 16:56:43 UTC (rev 7444)
+++ trunk/DBIx-Class-EncodedColumn/Changes	2009-08-30 20:04:17 UTC (rev 7445)
@@ -1,3 +1,5 @@
+        - close dbh before unlinking so tests pass on win32
+
 0.00002        2008-07-27
         - Support for Crypt::OpenPGP
 

Modified: trunk/DBIx-Class-EncodedColumn/t/02digest.t
===================================================================
--- trunk/DBIx-Class-EncodedColumn/t/02digest.t	2009-08-30 16:56:43 UTC (rev 7444)
+++ trunk/DBIx-Class-EncodedColumn/t/02digest.t	2009-08-30 20:04:17 UTC (rev 7445)
@@ -180,7 +180,7 @@
 
 END {
   # In the END section so that the test DB file gets closed before we attempt to unlink it
-  DigestTest->clear;
+  DigestTest::clear($schema);
 }
 
 #TODO

Modified: trunk/DBIx-Class-EncodedColumn/t/lib/DigestTest.pm
===================================================================
--- trunk/DBIx-Class-EncodedColumn/t/lib/DigestTest.pm	2009-08-30 16:56:43 UTC (rev 7444)
+++ trunk/DBIx-Class-EncodedColumn/t/lib/DigestTest.pm	2009-08-30 20:04:17 UTC (rev 7445)
@@ -27,6 +27,7 @@
   my $db_dir  = File::Spec->catdir($Bin, "var");
   my $db_file = File::Spec->catfile($db_dir, "Test.db");
   return unless -e $db_file;
+  $_[0]->storage->disconnect;
   unlink($db_file) or die "Failed to clear test db $db_file";
 }