Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

86 lines (69 sloc) 2.962 kb
#!/usr/bin/perl -w
# these are for the win32 module but don't require win32 to run
use strict;
use Test::More tests => 22;
use Devel::Platform::Info::Win32;
my $win32 = Devel::Platform::Info::Win32->new();
my @args = ('', 6, 1, 7600, 2, 0, 0, 256, 1);
my $info = $win32->_InterpretWin32Info(@args);
is($info->{osName}, 'Windows');
is($info->{osLabel}, 'Windows 7');
is_deeply($info->{source}, \@args);
my @uname = (
'Windows NT',
'Colin-PC',
'6.1',
'Build 7600',
'amd64'
);
$win32->_AddPOSIXInfo($info, \@uname);
is_deeply($info->{source}, { GetOSVersion => \@args, uname => \@uname });
is($info->{archname}, 'amd64');
# FIXME: divide into real numbers and fake numbers
# just so I can be more confident about the likelyhood
# of getting the version interpretaion correct.
my $os;
$os = $win32->_InterpretWin32Info('', 4, 0, 3, 1, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows 95');
$os = $win32->_InterpretWin32Info('', 4, 0, 3, 0, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows NT 4');
$os = $win32->_InterpretWin32Info('', 4, 10, 3, 1, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows 98');
$os = $win32->_InterpretWin32Info('', 4, 90, 3, 1, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows Me');
$os = $win32->_InterpretWin32Info('', 3, 51, 3, 1, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows NT 3.51');
$os = $win32->_InterpretWin32Info('', 6, 0, 3, 1, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows Vista');
$os = $win32->_InterpretWin32Info('', 6, 0, 3, 1, 2, 1, 1, 2)->{osLabel};
is($os, 'Windows Server 2008');
$os = $win32->_InterpretWin32Info('', 6, 1, 3, 1, 2, 1, 1, 2)->{osLabel};
is($os, 'Windows Server 2008 R2');
$os = $win32->_InterpretWin32Info('', 5, 0, 3, 1, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows 2000');
$os = $win32->_InterpretWin32Info('', 5, 1, 3, 1, 2, 1, 1, 1)->{osLabel};
is($os, 'Windows XP');
$os = $win32->_InterpretWin32Info('', 0, 0, 0, 0, 0, 0, 0, 0)->{osLabel};
is($os, 'Unrecognised - please file an RT case');
# FIXME: remove these once we can determine the O/S more reliably
$os = $win32->_InterpretWin32Info('', 5, 2, 3790, 2, 2, 0, 272, 2)->{osLabel};
is($os, 'Windows Server 2003');
$os = $win32->_InterpretWin32Info('', 5, 2, 3790, 2, 2, 0, 272, 2)->{osLabel};
is($os, 'Windows Server 2003');
$os = $win32->_InterpretWin32Info('', 5, 2, 3790, 2, 2, 0, 272, 1)->{osLabel};
is($os, 'Windows XP Pro 64');
TODO: {
local $TODO = 'These require me to add calls to other sources of information in order to figure them out.';
$os = $win32->_InterpretWin32Info('', 5, 2, 3790, 2, 2, 0, 272, 2)->{osLabel};
is($os, 'Windows Server 2003 R2');
}
# now check the wow64 test.
my $previous = $ENV{'PROCESSOR_ARCHITEW6432'};
$ENV{'PROCESSOR_ARCHITEW6432'} = 'AMD64';
$win32->_AddPOSIXInfo($info, \@uname);
is($info->{wow64}, 1, "Testing WOW value");
$ENV{'PROCESSOR_ARCHITEW6432'} = undef;
$win32->_AddPOSIXInfo($info, \@uname);
is($info->{wow64}, 0, "Testing WOW value");
# now restore it as it was.
$ENV{'PROCESSOR_ARCHITEW6432'} = $previous;
Jump to Line
Something went wrong with that request. Please try again.