Ticket #471: svn.diff

CREDITS

@@ -168 +168 @@
 
 N: Brad Gilbert
 D: Add test for sysinfo op.
+D: Added Win9x spawnw check to various tests
 E: b2gills@gmail.com
 
 N: Bram Geron

t/pmc/sys.t

@@ -10 +10 @@
 use Parrot::Test::Util 'create_tempfile';
 
 use Parrot::Test tests => 2;
+use Parrot::Config;
 
 =head1 NAME
 
@@ -25 +26 @@
 
 =cut
 
+
+our $test_err;
+if ( $PConfig{osname} eq 'MSWin32' ) {
+    if( eval { require Win32; } ){
+        if( Win32::GetOSVersion() <= 1 ){
+            $test_err = "requires newer OS than Win9x";
+        }
+    }else{
+        warn "This test may halt Win9x systems";
+    }
+}
+
+SKIP:
+{
+    skip $test_err, 1 if $test_err;
+
 my (undef, $temp_pir) = create_tempfile( SUFFIX => '.pir', UNLINK => 1 );
 
 pir_output_is( <<"CODE", <<OUT, "spawnw, _config" );
@@ -57 +74 @@
 0
 OUT
 
+}
+
 pir_output_is( <<'CODE', <<'OUT', "conf_hash is read-only")
 .sub _test :main
     .local pmc conf_hash

t/op/spawnw.t

@@ -7 +7 @@
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
 use Parrot::Test tests => 7;
+use Parrot::Config;
 
 =head1 NAME
 
@@ -41 +42 @@
 
 =cut
 
+our $test_err;
+if ( $PConfig{osname} eq 'MSWin32' ) {
+    if( eval { require Win32; } ){
+        if( Win32::GetOSVersion() <= 1 ){
+            $test_err = "requires newer OS than Win9x";
+        }
+    }else{
+        warn "This test may halt Win9x systems";
+    }
+}
+
+SKIP:
+{
+    skip $test_err, 7 if $test_err;
+
 # perl command coded this way to avoid platform
 # quoting issue.
 
@@ -166 +182 @@
 return code: 10
 OUTPUT
 
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4