Ticket #471: svn.diff
File svn.diff, 2.0 KB (added by b2gills, 13 years ago) |
---|
-
CREDITS
168 168 169 169 N: Brad Gilbert 170 170 D: Add test for sysinfo op. 171 D: Added Win9x spawnw check to various tests 171 172 E: b2gills@gmail.com 172 173 173 174 N: Bram Geron -
t/pmc/sys.t
10 10 use Parrot::Test::Util 'create_tempfile'; 11 11 12 12 use Parrot::Test tests => 2; 13 use Parrot::Config; 13 14 14 15 =head1 NAME 15 16 … … 25 26 26 27 =cut 27 28 29 30 our $test_err; 31 if ( $PConfig{osname} eq 'MSWin32' ) { 32 if( eval { require Win32; } ){ 33 if( Win32::GetOSVersion() <= 1 ){ 34 $test_err = "requires newer OS than Win9x"; 35 } 36 }else{ 37 warn "This test may halt Win9x systems"; 38 } 39 } 40 41 SKIP: 42 { 43 skip $test_err, 1 if $test_err; 44 28 45 my (undef, $temp_pir) = create_tempfile( SUFFIX => '.pir', UNLINK => 1 ); 29 46 30 47 pir_output_is( <<"CODE", <<OUT, "spawnw, _config" ); … … 57 74 0 58 75 OUT 59 76 77 } 78 60 79 pir_output_is( <<'CODE', <<'OUT', "conf_hash is read-only") 61 80 .sub _test :main 62 81 .local pmc conf_hash -
t/op/spawnw.t
7 7 use lib qw( . lib ../lib ../../lib ); 8 8 use Test::More; 9 9 use Parrot::Test tests => 7; 10 use Parrot::Config; 10 11 11 12 =head1 NAME 12 13 … … 41 42 42 43 =cut 43 44 45 our $test_err; 46 if ( $PConfig{osname} eq 'MSWin32' ) { 47 if( eval { require Win32; } ){ 48 if( Win32::GetOSVersion() <= 1 ){ 49 $test_err = "requires newer OS than Win9x"; 50 } 51 }else{ 52 warn "This test may halt Win9x systems"; 53 } 54 } 55 56 SKIP: 57 { 58 skip $test_err, 7 if $test_err; 59 44 60 # perl command coded this way to avoid platform 45 61 # quoting issue. 46 62 … … 166 182 return code: 10 167 183 OUTPUT 168 184 185 } 186 169 187 # Local Variables: 170 188 # mode: cperl 171 189 # cperl-indent-level: 4