Ticket #1235: t.op.sysinfo.diff
File t.op.sysinfo.diff, 1.5 KB (added by jkeenan, 12 years ago) |
---|
-
t/op/sysinfo.t
116 116 } 117 117 } 118 118 119 # 5 & 6 120 if ( $PConfig{osname} eq 'MSWin32' ) { 121 # Windows 5 & 6 119 SKIP: 120 { 121 $PConfig{osname} eq 'MSWin32' 122 or skip "Tests only meaningful on Win32", 2; 122 123 SKIP: 123 124 { 124 125 eval { require Win32; } or 125 126 skip "requires package Win32 for these tests", 2; 126 127 127 # specifically don't use $Config{osvers}128 # because it probably was the system perl was compiled on129 # and we can do much better than that130 131 128 my $osname = Win32::GetOSName(); 132 129 $osname = 'WinXP' if $osname =~ m/^WinXP/; 133 130 TODO: { … … 145 142 print S1 146 143 end 147 144 CODE 148 } 149 } 150 } 151 else { 152 # Other 5 & 6 145 } # END TODO block 146 } # END inner SKIP block 147 } # END outer SKIP block 153 148 154 # XXX I know this is wrong on Win32 but is it correct on any others?155 # XXX also should it be %Config or %PConfig156 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, 5162 print S1163 end164 CODE165 166 pasm_output_is( <<'CODE', $Config{osvers}, "sysinfo OS version number string" );167 sysinfo_s_ic S1, 6168 print S1169 end170 CODE171 }172 }173 174 149 SKIP: 175 150 { 176 151 skip "Requires a lot of work to find out the correct answer", 1;