fix test skips on Win32

diff --git a/t/22dump.t b/t/22dump.t
index b710914..cdb0f50 100644 (file)
--- 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 (file)
--- 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';