[Bast-commits] r3563 - trunk/DBIx-Class-Schema-Loader/t

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-07-02 16:24:29 +0100 (Mon, 02 Jul 2007)
New Revision: 3563

Modified:
   trunk/DBIx-Class-Schema-Loader/t/22dump.t
   trunk/DBIx-Class-Schema-Loader/t/23dumpmore.t
Log:
fix test skips on Win32

Modified: trunk/DBIx-Class-Schema-Loader/t/22dump.t
===================================================================
--- trunk/DBIx-Class-Schema-Loader/t/22dump.t	2007-07-02 15:15:42 UTC (rev 3562)
+++ trunk/DBIx-Class-Schema-Loader/t/22dump.t	2007-07-02 15:24:29 UTC (rev 3563)
@@ -33,7 +33,7 @@
 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;

Modified: trunk/DBIx-Class-Schema-Loader/t/23dumpmore.t
===================================================================
--- trunk/DBIx-Class-Schema-Loader/t/23dumpmore.t	2007-07-02 15:15:42 UTC (rev 3562)
+++ trunk/DBIx-Class-Schema-Loader/t/23dumpmore.t	2007-07-02 15:24:29 UTC (rev 3563)
@@ -5,11 +5,10 @@
 use make_dbictest_db;
 require DBIx::Class::Schema::Loader;
 
-plan tests => 40;
+$^O eq 'MSWin32'
+    ? plan(skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths")
+    : plan(tests => 40);
 
-plan skip_all => "ActiveState perl produces additional warnings, and this test uses unix paths"
-    if ($^O eq 'MSWin32');
-
 my $DUMP_PATH = './t/_dump';
 
 sub do_dump_test {