Ticket #1235: t.op.sysinfo.diff

File t.op.sysinfo.diff, 1.5 KB (added by jkeenan, 5 years ago)
  • t/op/sysinfo.t

     
    116116    } 
    117117} 
    118118 
    119 # 5 & 6 
    120 if ( $PConfig{osname} eq 'MSWin32' ) { 
    121     # Windows 5 & 6 
     119SKIP: 
     120{ 
     121    $PConfig{osname} eq 'MSWin32' 
     122        or skip "Tests only meaningful on Win32", 2; 
    122123    SKIP: 
    123124    { 
    124125        eval { require Win32; } or 
    125126            skip "requires package Win32 for these tests", 2; 
    126127 
    127         # specifically don't use $Config{osvers} 
    128         # because it probably was the system perl was compiled on 
    129         # and we can do much better than that 
    130  
    131128        my $osname = Win32::GetOSName(); 
    132129        $osname = 'WinXP' if $osname =~ m/^WinXP/; 
    133130        TODO: { 
     
    145142    print S1 
    146143end 
    147144CODE 
    148         } 
    149     } 
    150 } 
    151 else { 
    152     # Other 5 & 6 
     145        } # END TODO block 
     146    } # END inner SKIP block 
     147} # END outer SKIP block 
    153148 
    154     # XXX I know this is wrong on Win32 but is it correct on any others? 
    155     # XXX also should it be %Config or %PConfig 
    156     TODO: 
    157     { 
    158         local $TODO = "Not Currently Implemented"; 
    159  
    160         pasm_output_is( <<'CODE', $Config{osvers}, "sysinfo OS version string" ); 
    161     sysinfo_s_ic S1, 5 
    162     print S1 
    163 end 
    164 CODE 
    165  
    166         pasm_output_is( <<'CODE', $Config{osvers}, "sysinfo OS version number string" ); 
    167     sysinfo_s_ic S1, 6 
    168     print S1 
    169 end 
    170 CODE 
    171     } 
    172 } 
    173  
    174149SKIP: 
    175150{ 
    176151    skip "Requires a lot of work to find out the correct answer", 1;