From: Brandon Black <blblack@gmail.com>
Date: Mon, 2 Jul 2007 15:24:29 +0000 (+0000)
Subject: fix test skips on Win32
X-Git-Tag: 0.04002~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12c918bdefc9be6e6515f433d6199608a1ca4a58;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

fix test skips on Win32
---

diff --git a/t/22dump.t b/t/22dump.t
index b710914..cdb0f50 100644
--- a/t/22dump.t
+++ b/t/22dump.t
@@ -33,7 +33,7 @@ ok(!$@, 'no death with dump_directory set') or diag "Dump failed: $@";
 DBICTest::Schema::1->_loader_invoked(undef);
 
 SKIP: {
-  skip "ActiveState perl produces additional warnings", 5
+  skip "ActiveState perl produces additional warnings", 3
     if ($^O eq 'MSWin32');
 
   my @warn_output;
diff --git a/t/23dumpmore.t b/t/23dumpmore.t
index 2458ba1..95d5e22 100644
--- a/t/23dumpmore.t
+++ b/t/23dumpmore.t
@@ -5,10 +5,9 @@ use File::Path;
 use make_dbictest_db;
 require DBIx::Class::Schema::Loader;
 
-plan tests => 40;
-
-plan skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths"
-    if ($^O eq 'MSWin32');
+$^O eq 'MSWin32'
+    ? plan(skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths")
+    : plan(tests => 40);
 
 my $DUMP_PATH = './t/_dump';