[pve-common.git] / test / etc_network_interfaces / t.create_network.pl

save('proc_net_dev', <<'/proc/net/dev');
eth0:
eth1:
eth2:
eth3:
/proc/net/dev

r(load('brbase'));

#
# Variables used for the various interfaces:
#

my $ip = '192.168.0.2';
my $nm = '255.255.255.0';
my $gw = '192.168.0.1';
my $svcnodeip = '239.192.105.237';
my $physdev = 'eth0';
my $remoteip1 = '192.168.0.3';
my $remoteip2 = '192.168.0.4';

#
# Hunk for the default bridge of the 'brbase' configuration
#

my $vmbr0_part = <<"PART";
auto vmbr0
iface vmbr0 inet static
	address  10.0.0.2
	netmask  255.255.255.0
	gateway  10.0.0.1
	bridge-ports eth0
	bridge-stp off
	bridge-fd 0
PART
chomp $vmbr0_part;

#
# Configure eth1 statically, store its expected interfaces hunk in $eth1_part
# and test!
#

$config->{ifaces}->{eth1} = {
    type => 'eth',
    method => 'static',
    address => $ip,
    netmask => $nm,
    gateway => $gw,
    families => ['inet'],
    autostart => 1
};

my $eth1_part = <<"PART";
auto eth1
iface eth1 inet static
	address  $ip
	netmask  $nm
	gateway  $gw
PART
chomp $eth1_part;

expect load('loopback') . <<"CHECK";
source-directory interfaces.d

iface eth0 inet manual

$eth1_part

iface eth2 inet manual

iface eth3 inet manual

$vmbr0_part

CHECK

#
# Add a bond for eth2 & 3 and check the new output
#

$config->{ifaces}->{bond0} = {
    type => 'bond',
    mtu => 1400,
    slaves => 'eth2 eth3',
    bond_mode => '802.3ad',
    bond_xmit_hash_policy => 'layer3+4',
    bond_miimon => 100,
    method => 'manual',
    families => ['inet'],
    autostart => 1
};
my $bond0_part = <<"PART";
auto bond0
iface bond0 inet manual
	bond-slaves eth2 eth3
	bond-miimon 100
	bond-mode 802.3ad
	bond-xmit-hash-policy layer3+4
	mtu 1400
PART
chomp $bond0_part;

expect load('loopback') . <<"CHECK";
source-directory interfaces.d

iface eth0 inet manual

$eth1_part

iface eth2 inet manual

iface eth3 inet manual

$bond0_part

$vmbr0_part

CHECK

#
# Add vxlan1 and 2
#

$config->{ifaces}->{vxlan1} = {
    type => 'vxlan',
    method => 'manual',
    families => ['inet'],
    'vxlan-id' => 1,
    'vxlan-svcnodeip' => $svcnodeip,
    'vxlan-physdev' => $physdev,
    autostart => 1
};

$config->{ifaces}->{vxlan2} = {
    type => 'vxlan',
    method => 'manual',
    families => ['inet'],
    'vxlan-id' => 2,
    'vxlan-local-tunnelip' => $ip,
    autostart => 1
};

my $vxlan12_part = <<"PART";
auto vxlan1
iface vxlan1 inet manual
	vxlan-id 1
	vxlan-svcnodeip $svcnodeip
	vxlan-physdev $physdev

auto vxlan2
iface vxlan2 inet manual
	vxlan-id 2
	vxlan-local-tunnelip $ip
PART
chomp $vxlan12_part;

expect load('loopback') . <<"CHECK";
source-directory interfaces.d

iface eth0 inet manual

$eth1_part

iface eth2 inet manual

iface eth3 inet manual

$bond0_part

$vmbr0_part

$vxlan12_part

CHECK

#
# Add vxlan3 and 3 bridges using vxlan1..3
#

$config->{ifaces}->{vmbr1} = {
    mtu => 1400,
    type => 'bridge',
    method => 'manual',
    families => ['inet'],
    bridge_stp => 'off',
    bridge_fd => 0,
    bridge_ports => 'vxlan1',
    bridge_vlan_aware => 'yes',
    autostart => 1
};

$config->{ifaces}->{vmbr2} = {
    type => 'bridge',
    method => 'manual',
    families => ['inet'],
    bridge_stp => 'off',
    bridge_fd => 0,
    bridge_ports => 'vxlan2',
    autostart => 1
};

$config->{ifaces}->{vmbr3} = {
    type => 'bridge',
    method => 'manual',
    families => ['inet'],
    bridge_stp => 'off',
    bridge_fd => 0,
    bridge_ports => 'vxlan3.50',
    bridge_vlan_aware => 'yes',
    bridge_vids => '2-10',
    autostart => 1
};

my $vmbr123_part = <<"PART";
auto vmbr1
iface vmbr1 inet manual
	bridge-ports vxlan1
	bridge-stp off
	bridge-fd 0
	bridge-vlan-aware yes
	bridge-vids 2-4094
	mtu 1400

auto vmbr2
iface vmbr2 inet manual
	bridge-ports vxlan2
	bridge-stp off
	bridge-fd 0

auto vmbr3
iface vmbr3 inet manual
	bridge-ports vxlan3.50
	bridge-stp off
	bridge-fd 0
	bridge-vlan-aware yes
	bridge-vids 2-10
PART
chomp $vmbr123_part;

$config->{ifaces}->{vxlan3} = {
    type => 'vxlan',
    method => 'manual',
    families => ['inet'],
    'vxlan-id' => 3,
    'vxlan-remoteip' => [$remoteip1, $remoteip2],
    'bridge-access' => 3,
    autostart => 1
};

my $vx = $config->{ifaces}->{vxlan2};
$vx->{'bridge-learning'} = 'off';
$vx->{'bridge-arp-nd-suppress'} = 'on';
$vx->{'bridge-unicast-flood'} = 'off';
$vx->{'bridge-multicast-flood'} = 'off';
my $vxlan123_part = $vxlan12_part ."\n" . <<"PART";
	bridge-arp-nd-suppress on
	bridge-learning off
	bridge-multicast-flood off
	bridge-unicast-flood off

auto vxlan3
iface vxlan3 inet manual
	vxlan-id 3
	vxlan-remoteip $remoteip1
	vxlan-remoteip $remoteip2
	bridge-access 3
PART
chomp $vxlan123_part;

expect load('loopback') . <<"CHECK";
source-directory interfaces.d

iface eth0 inet manual

$eth1_part

iface eth2 inet manual

iface eth3 inet manual

$bond0_part

$vmbr0_part

$vmbr123_part

$vxlan123_part

CHECK

#
# Now add vlans on all types of interfaces: vmbr1, bond0 and eth1
#

$config->{ifaces}->{'vmbr1.100'} = {
    type => 'vlan',
    mtu => 1300,
    method => 'manual',
    families => ['inet'],
    autostart => 1
};

$config->{ifaces}->{'bond0.100'} = {
    type => 'vlan',
    mtu => 1300,
    method => 'manual',
    families => ['inet'],
    'vlan-protocol' => '802.1ad',
    autostart => 1
};

$config->{ifaces}->{'bond0.100.10'} = {
    type => 'vlan',
    mtu => 1300,
    method => 'manual',
    families => ['inet'],
    autostart => 1
};

$config->{ifaces}->{'eth1.100'} = {
    type => 'vlan',
    mtu => 1400,
    method => 'manual',
    families => ['inet'],
    autostart => 1
};

expect load('loopback') . <<"CHECK";
source-directory interfaces.d

iface eth0 inet manual

$eth1_part

iface eth2 inet manual

iface eth3 inet manual

auto eth1.100
iface eth1.100 inet manual
	mtu 1400

$bond0_part

auto bond0.100
iface bond0.100 inet manual
	mtu 1300
	vlan-protocol 802.1ad

auto bond0.100.10
iface bond0.100.10 inet manual
	mtu 1300

$vmbr0_part

$vmbr123_part

auto vmbr1.100
iface vmbr1.100 inet manual
	mtu 1300

$vxlan123_part

CHECK

#
# Now check the new config for idempotency:
#

save('if', w());
r(load('if'));
expect load('if');

#
# Check a brbase with an ipv6 address on eth1
#

r(load('brbase'));

my $ip = 'fc05::2';
my $nm = '112';
my $gw = 'fc05::1';

$config->{ifaces}->{eth1} = {
    type => 'eth',
    method6 => 'static',
    address6 => $ip,
    netmask6 => $nm,
    gateway6 => $gw,
    families => ['inet6'],
    autostart => 1
};

expect load('loopback') . <<"CHECK";
source-directory interfaces.d

iface eth0 inet manual

auto eth1
iface eth1 inet6 static
	address  $ip
	netmask  $nm
	gateway  $gw

iface eth2 inet manual

iface eth3 inet manual

auto vmbr0
iface vmbr0 inet static
	address  10.0.0.2
	netmask  255.255.255.0
	gateway  10.0.0.1
	bridge-ports eth0
	bridge-stp off
	bridge-fd 0

CHECK

save('if', w());
r(load('if'));
expect load('if');

1;
Commit	Line	Data
c7c4208a WB	1	save('proc_net_dev', <<'/proc/net/dev');
	2	eth0:
	3	eth1:
ec0f5151 WB	4	eth2:
ec0f5151 WB	5	eth3:
c7c4208a WB	6	/proc/net/dev
	7
	8	r(load('brbase'));
	9
ec0f5151 WB	10	#
	11	# Variables used for the various interfaces:
	12	#
	13
c7c4208a WB	14	my $ip = '192.168.0.2';
	15	my $nm = '255.255.255.0';
	16	my $gw = '192.168.0.1';
95aa8788 AD	17	my $svcnodeip = '239.192.105.237';
	18	my $physdev = 'eth0';
	19	my $remoteip1 = '192.168.0.3';
	20	my $remoteip2 = '192.168.0.4';
	21
ec0f5151 WB	22	#
	23	# Hunk for the default bridge of the 'brbase' configuration
	24	#
	25
	26	my $vmbr0_part = <<"PART";
	27	auto vmbr0
	28	iface vmbr0 inet static
	29	address 10.0.0.2
	30	netmask 255.255.255.0
	31	gateway 10.0.0.1
	32	bridge-ports eth0
	33	bridge-stp off
	34	bridge-fd 0
	35	PART
	36	chomp $vmbr0_part;
	37
	38	#
	39	# Configure eth1 statically, store its expected interfaces hunk in $eth1_part
	40	# and test!
	41	#
c7c4208a WB	42
	43	$config->{ifaces}->{eth1} = {
	44	type => 'eth',
	45	method => 'static',
	46	address => $ip,
	47	netmask => $nm,
	48	gateway => $gw,
	49	families => ['inet'],
	50	autostart => 1
	51	};
	52
ec0f5151 WB	53	my $eth1_part = <<"PART";
	54	auto eth1
	55	iface eth1 inet static
	56	address $ip
	57	netmask $nm
	58	gateway $gw
	59	PART
	60	chomp $eth1_part;
	61
	62	expect load('loopback') . <<"CHECK";
	63	source-directory interfaces.d
	64
	65	iface eth0 inet manual
	66
	67	$eth1_part
	68
	69	iface eth2 inet manual
	70
	71	iface eth3 inet manual
	72
	73	$vmbr0_part
	74
	75	CHECK
	76
	77	#
	78	# Add a bond for eth2 & 3 and check the new output
	79	#
	80
	81	$config->{ifaces}->{bond0} = {
	82	type => 'bond',
	83	mtu => 1400,
	84	slaves => 'eth2 eth3',
	85	bond_mode => '802.3ad',
	86	bond_xmit_hash_policy => 'layer3+4',
	87	bond_miimon => 100,
0115696f AD	88	method => 'manual',
	89	families => ['inet'],
	90	autostart => 1
	91	};
ec0f5151 WB	92	my $bond0_part = <<"PART";
	93	auto bond0
	94	iface bond0 inet manual
	95	bond-slaves eth2 eth3
	96	bond-miimon 100
	97	bond-mode 802.3ad
	98	bond-xmit-hash-policy layer3+4
	99	mtu 1400
	100	PART
	101	chomp $bond0_part;
0115696f	102
ec0f5151 WB	103	expect load('loopback') . <<"CHECK";
	104	source-directory interfaces.d
	105
	106	iface eth0 inet manual
	107
	108	$eth1_part
	109
	110	iface eth2 inet manual
	111
	112	iface eth3 inet manual
	113
	114	$bond0_part
	115
	116	$vmbr0_part
	117
	118	CHECK
	119
	120	#
	121	# Add vxlan1 and 2
	122	#
	123
	124	$config->{ifaces}->{vxlan1} = {
	125	type => 'vxlan',
0115696f AD	126	method => 'manual',
0115696f AD	127	families => ['inet'],
ec0f5151 WB	128	'vxlan-id' => 1,
	129	'vxlan-svcnodeip' => $svcnodeip,
	130	'vxlan-physdev' => $physdev,
0115696f AD	131	autostart => 1
	132	};
	133
ec0f5151 WB	134	$config->{ifaces}->{vxlan2} = {
ec0f5151 WB	135	type => 'vxlan',
0115696f AD	136	method => 'manual',
0115696f AD	137	families => ['inet'],
ec0f5151 WB	138	'vxlan-id' => 2,
ec0f5151 WB	139	'vxlan-local-tunnelip' => $ip,
0115696f AD	140	autostart => 1
	141	};
	142
ec0f5151 WB	143	my $vxlan12_part = <<"PART";
	144	auto vxlan1
	145	iface vxlan1 inet manual
	146	vxlan-id 1
	147	vxlan-svcnodeip $svcnodeip
	148	vxlan-physdev $physdev
	149
	150	auto vxlan2
	151	iface vxlan2 inet manual
	152	vxlan-id 2
	153	vxlan-local-tunnelip $ip
	154	PART
	155	chomp $vxlan12_part;
	156
	157	expect load('loopback') . <<"CHECK";
	158	source-directory interfaces.d
	159
	160	iface eth0 inet manual
	161
	162	$eth1_part
	163
	164	iface eth2 inet manual
	165
	166	iface eth3 inet manual
	167
	168	$bond0_part
	169
	170	$vmbr0_part
	171
	172	$vxlan12_part
	173
	174	CHECK
	175
	176	#
	177	# Add vxlan3 and 3 bridges using vxlan1..3
	178	#
	179
9a052564	180	$config->{ifaces}->{vmbr1} = {
9b053d70	181	mtu => 1400,
9a052564 AD	182	type => 'bridge',
	183	method => 'manual',
	184	families => ['inet'],
ec0f5151	185	bridge_stp => 'off',
9a052564	186	bridge_fd => 0,
ec0f5151 WB	187	bridge_ports => 'vxlan1',
ec0f5151 WB	188	bridge_vlan_aware => 'yes',
9a052564 AD	189	autostart => 1
	190	};
	191
9a052564 AD	192	$config->{ifaces}->{vmbr2} = {
	193	type => 'bridge',
	194	method => 'manual',
	195	families => ['inet'],
ec0f5151	196	bridge_stp => 'off',
9a052564	197	bridge_fd => 0,
ec0f5151	198	bridge_ports => 'vxlan2',
9a052564 AD	199	autostart => 1
	200	};
	201
	202	$config->{ifaces}->{vmbr3} = {
	203	type => 'bridge',
	204	method => 'manual',
	205	families => ['inet'],
ec0f5151	206	bridge_stp => 'off',
9a052564	207	bridge_fd => 0,
8b492819	208	bridge_ports => 'vxlan3.50',
ec0f5151	209	bridge_vlan_aware => 'yes',
9a052564 AD	210	bridge_vids => '2-10',
	211	autostart => 1
	212	};
	213
ec0f5151 WB	214	my $vmbr123_part = <<"PART";
	215	auto vmbr1
	216	iface vmbr1 inet manual
	217	bridge-ports vxlan1
	218	bridge-stp off
	219	bridge-fd 0
	220	bridge-vlan-aware yes
	221	bridge-vids 2-4094
	222	mtu 1400
95aa8788	223
ec0f5151 WB	224	auto vmbr2
	225	iface vmbr2 inet manual
	226	bridge-ports vxlan2
	227	bridge-stp off
	228	bridge-fd 0
	229
	230	auto vmbr3
	231	iface vmbr3 inet manual
8b492819	232	bridge-ports vxlan3.50
ec0f5151 WB	233	bridge-stp off
	234	bridge-fd 0
	235	bridge-vlan-aware yes
	236	bridge-vids 2-10
	237	PART
	238	chomp $vmbr123_part;
95aa8788 AD	239
	240	$config->{ifaces}->{vxlan3} = {
	241	type => 'vxlan',
	242	method => 'manual',
	243	families => ['inet'],
	244	'vxlan-id' => 3,
	245	'vxlan-remoteip' => [$remoteip1, $remoteip2],
9a052564	246	'bridge-access' => 3,
95aa8788 AD	247	autostart => 1
	248	};
	249
ec0f5151 WB	250	my $vx = $config->{ifaces}->{vxlan2};
	251	$vx->{'bridge-learning'} = 'off';
	252	$vx->{'bridge-arp-nd-suppress'} = 'on';
	253	$vx->{'bridge-unicast-flood'} = 'off';
	254	$vx->{'bridge-multicast-flood'} = 'off';
	255	my $vxlan123_part = $vxlan12_part ."\n" . <<"PART";
	256	bridge-arp-nd-suppress on
	257	bridge-learning off
	258	bridge-multicast-flood off
	259	bridge-unicast-flood off
	260
	261	auto vxlan3
	262	iface vxlan3 inet manual
	263	vxlan-id 3
	264	vxlan-remoteip $remoteip1
	265	vxlan-remoteip $remoteip2
	266	bridge-access 3
	267	PART
	268	chomp $vxlan123_part;
	269
	270	expect load('loopback') . <<"CHECK";
	271	source-directory interfaces.d
	272
	273	iface eth0 inet manual
	274
	275	$eth1_part
	276
	277	iface eth2 inet manual
	278
	279	iface eth3 inet manual
	280
	281	$bond0_part
	282
	283	$vmbr0_part
	284
	285	$vmbr123_part
	286
	287	$vxlan123_part
	288
	289	CHECK
	290
	291	#
	292	# Now add vlans on all types of interfaces: vmbr1, bond0 and eth1
	293	#
	294
c4e56470 AD	295	$config->{ifaces}->{'vmbr1.100'} = {
c4e56470 AD	296	type => 'vlan',
9b053d70	297	mtu => 1300,
c4e56470 AD	298	method => 'manual',
	299	families => ['inet'],
	300	autostart => 1
	301	};
	302
	303	$config->{ifaces}->{'bond0.100'} = {
8f5d56bf AD	304	type => 'vlan',
	305	mtu => 1300,
	306	method => 'manual',
	307	families => ['inet'],
	308	'vlan-protocol' => '802.1ad',
	309	autostart => 1
	310	};
	311
	312	$config->{ifaces}->{'bond0.100.10'} = {
c4e56470	313	type => 'vlan',
9b053d70	314	mtu => 1300,
c4e56470 AD	315	method => 'manual',
	316	families => ['inet'],
	317	autostart => 1
	318	};
	319
	320	$config->{ifaces}->{'eth1.100'} = {
	321	type => 'vlan',
9b053d70	322	mtu => 1400,
c4e56470 AD	323	method => 'manual',
	324	families => ['inet'],
	325	autostart => 1
	326	};
95aa8788	327
c7c4208a WB	328	expect load('loopback') . <<"CHECK";
	329	source-directory interfaces.d
	330
	331	iface eth0 inet manual
	332
ec0f5151	333	$eth1_part
c7c4208a	334
0115696f AD	335	iface eth2 inet manual
0115696f AD	336
0115696f AD	337	iface eth3 inet manual
0115696f AD	338
c4e56470 AD	339	auto eth1.100
c4e56470 AD	340	iface eth1.100 inet manual
9b053d70	341	mtu 1400
c4e56470	342
ec0f5151	343	$bond0_part
0115696f	344
c4e56470 AD	345	auto bond0.100
c4e56470 AD	346	iface bond0.100 inet manual
9b053d70	347	mtu 1300
8f5d56bf AD	348	vlan-protocol 802.1ad
	349
	350	auto bond0.100.10
	351	iface bond0.100.10 inet manual
	352	mtu 1300
c4e56470	353
ec0f5151	354	$vmbr0_part
9a052564	355
ec0f5151	356	$vmbr123_part
9a052564	357
c4e56470 AD	358	auto vmbr1.100
c4e56470 AD	359	iface vmbr1.100 inet manual
9b053d70	360	mtu 1300
c4e56470	361
ec0f5151	362	$vxlan123_part
95aa8788	363
c7c4208a WB	364	CHECK
c7c4208a WB	365
ec0f5151 WB	366	#
	367	# Now check the new config for idempotency:
	368	#
	369
c7c4208a WB	370	save('if', w());
	371	r(load('if'));
	372	expect load('if');
	373
ec0f5151 WB	374	#
	375	# Check a brbase with an ipv6 address on eth1
	376	#
	377
c7c4208a WB	378	r(load('brbase'));
	379
	380	my $ip = 'fc05::2';
	381	my $nm = '112';
	382	my $gw = 'fc05::1';
	383
	384	$config->{ifaces}->{eth1} = {
	385	type => 'eth',
	386	method6 => 'static',
	387	address6 => $ip,
	388	netmask6 => $nm,
	389	gateway6 => $gw,
	390	families => ['inet6'],
	391	autostart => 1
	392	};
	393
c7c4208a WB	394	expect load('loopback') . <<"CHECK";
	395	source-directory interfaces.d
	396
	397	iface eth0 inet manual
	398
	399	auto eth1
	400	iface eth1 inet6 static
	401	address $ip
	402	netmask $nm
	403	gateway $gw
	404
ec0f5151 WB	405	iface eth2 inet manual
	406
	407	iface eth3 inet manual
	408
c7c4208a WB	409	auto vmbr0
	410	iface vmbr0 inet static
	411	address 10.0.0.2
	412	netmask 255.255.255.0
	413	gateway 10.0.0.1
1accc6da AD	414	bridge-ports eth0
	415	bridge-stp off
	416	bridge-fd 0
c7c4208a WB	417
	418	CHECK
	419
	420	save('if', w());
	421	r(load('if'));
	422	expect load('if');
	423
	424	1;