[svn:parrot] r29874 - trunk/t/steps

[jkeenan]

Author: jkeenan
Date: Wed Jul 30 04:38:16 2008
New Revision: 29874

Modified:
   trunk/t/steps/auto_ctags-01.t
   trunk/t/steps/auto_warnings-01.t

Log:
SKIP block for tests not yet passing on certain OSes.

Modified: trunk/t/steps/auto_ctags-01.t
==============================================================================
--- trunk/t/steps/auto_ctags-01.t       (original)
+++ trunk/t/steps/auto_ctags-01.t       Wed Jul 30 04:38:16 2008
@@ -61,11 +61,16 @@
         sub { $step->runstep($conf) },
         \$stdout
     );
+SKIP: {
+    skip 'Tests not yet passing on Win32',
+    3
+    if $^O =~ m/win32/i;
     ok( $ret, "runstep() returned true value" );
     is($step->result(), q{no}, "Got expected result");
     is($conf->data->get('ctags'), 'ctags',
         "Correct value for 'ctags' attribute was set");
 }
+}
 
 $conf->replenish($serialized);
 

Modified: trunk/t/steps/auto_warnings-01.t
==============================================================================
--- trunk/t/steps/auto_warnings-01.t    (original)
+++ trunk/t/steps/auto_warnings-01.t    Wed Jul 30 04:38:16 2008
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More qw(no_plan); # tests =>  56;
+use Test::More tests =>  56;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
@@ -43,7 +43,7 @@
 SKIP: {
     skip 'Tests not yet passing on Sun/Solaris',
     39
-    if $^O =~ m/sun|solaris/;
+    if $^O =~ m/sun|solaris/i;
 
 my $step = test_step_constructor_and_description($conf);