1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
#!perl
use strict;
use warnings;
use Test::More tests => 4 * 12;
use File::Spec;
use Sys::HostIP;
use lib '.';
use t::lib::Utils qw/mock_win32_hostip/;
## no critic qw(Subroutines::RequireFinalReturn)
sub test_mock_ipconfig {
my ( $file, $expected_results, $test_name ) = @_;
# Mock Windows
local $Sys::HostIP::IS_WIN = 1;
my $hostip = mock_win32_hostip($file);
isa_ok( $hostip, 'Sys::HostIP' );
is_deeply(
$hostip->_get_win32_interface_info,
$expected_results,
$test_name,
);
}
test_mock_ipconfig(
'ipconfig-2k.txt',
{ 'Local Area Connection' => '169.254.109.232' },
'Correct Windows 2000 interface',
);
test_mock_ipconfig(
'ipconfig-xp.txt',
{ 'Local Area Connection' => '0.0.0.0' },
'Correct Windows XP interface',
);
test_mock_ipconfig(
'ipconfig-win7.txt',
{
'Local Area Connection' => '192.168.0.10',
'Local Area Connection 2' => '192.168.1.20',
},
'Correct Windows 7 interface',
);
test_mock_ipconfig(
'ipconfig-win7-empty-name.txt',
{
'' => '192.168.1.101',
},
'Windows 7 interface, empty name',
);
test_mock_ipconfig(
'ipconfig-win10.txt',
{
'Ethernet' => '192.168.1.100',
},
'Correct Windows 10 interface',
);
test_mock_ipconfig(
'ipconfig-win2008-sv_SE.txt',
{
'Anslutning till lokalt n�tverk' => '192.168.40.241',
},
'Correct Windows Server 2008 interface in Swedish locale',
);
test_mock_ipconfig(
'ipconfig-win7-de_DE.txt',
{
'LAN-Verbindung' => '10.0.2.15',
},
'Correct Windows 7 interface in German locale',
);
test_mock_ipconfig(
'ipconfig-win7-fr_FR.txt',
{
'LAN-Verbindung' => '192.168.2.118',
'VirtualBox Host-Only Network' => '192.168.56.1',
},
'Correct Windows 7 interface in French locale',
);
test_mock_ipconfig(
'ipconfig-win7-it_IT.txt',
{
'LAN-Verbindung' => '192.168.2.118',
'VirtualBox Host-Only Network' => '192.168.56.1',
},
'Correct Windows 7 interface in Italian locale',
);
test_mock_ipconfig(
'ipconfig-win7-fi_FI.txt',
{
'LAN-Verbindung' => '192.168.2.118',
'VirtualBox Host-Only Network' => '192.168.56.1',
},
'Correct Windows 7 interface in Finnish locale',
);
test_mock_ipconfig(
'ipconfig-winxp-ru-utf8.txt',
{
'адаптер' => '10.0.2.15',
},
'Correct Windows XP interface in Russian locale',
);
test_mock_ipconfig(
'ipconfig-win7-ru-utf8.txt',
{
'Подключение по локальной сети' => '192.168.1.51',
'VirtualBox Host-Only Network' => '192.168.56.1',
},
'Correct Windows 7 interface in Russian locale',
);
|
