[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',
    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
	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'],
    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

$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,
ec0f5151 WB	208	bridge_ports => 'vxlan3',
ec0f5151 WB	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
	232	bridge-ports vxlan3
	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'} = {
	304	type => 'vlan',
9b053d70	305	mtu => 1300,
c4e56470 AD	306	method => 'manual',
	307	families => ['inet'],
	308	autostart => 1
	309	};
	310
	311	$config->{ifaces}->{'eth1.100'} = {
	312	type => 'vlan',
9b053d70	313	mtu => 1400,
c4e56470 AD	314	method => 'manual',
	315	families => ['inet'],
	316	autostart => 1
	317	};
95aa8788	318
c7c4208a WB	319	expect load('loopback') . <<"CHECK";
	320	source-directory interfaces.d
	321
	322	iface eth0 inet manual
	323
ec0f5151	324	$eth1_part
c7c4208a	325
0115696f AD	326	iface eth2 inet manual
0115696f AD	327
0115696f AD	328	iface eth3 inet manual
0115696f AD	329
c4e56470 AD	330	auto eth1.100
c4e56470 AD	331	iface eth1.100 inet manual
9b053d70	332	mtu 1400
c4e56470	333
ec0f5151	334	$bond0_part
0115696f	335
c4e56470 AD	336	auto bond0.100
c4e56470 AD	337	iface bond0.100 inet manual
9b053d70	338	mtu 1300
c4e56470	339
ec0f5151	340	$vmbr0_part
9a052564	341
ec0f5151	342	$vmbr123_part
9a052564	343
c4e56470 AD	344	auto vmbr1.100
c4e56470 AD	345	iface vmbr1.100 inet manual
9b053d70	346	mtu 1300
c4e56470	347
ec0f5151	348	$vxlan123_part
95aa8788	349
c7c4208a WB	350	CHECK
c7c4208a WB	351
ec0f5151 WB	352	#
	353	# Now check the new config for idempotency:
	354	#
	355
c7c4208a WB	356	save('if', w());
	357	r(load('if'));
	358	expect load('if');
	359
ec0f5151 WB	360	#
	361	# Check a brbase with an ipv6 address on eth1
	362	#
	363
c7c4208a WB	364	r(load('brbase'));
	365
	366	my $ip = 'fc05::2';
	367	my $nm = '112';
	368	my $gw = 'fc05::1';
	369
	370	$config->{ifaces}->{eth1} = {
	371	type => 'eth',
	372	method6 => 'static',
	373	address6 => $ip,
	374	netmask6 => $nm,
	375	gateway6 => $gw,
	376	families => ['inet6'],
	377	autostart => 1
	378	};
	379
c7c4208a WB	380	expect load('loopback') . <<"CHECK";
	381	source-directory interfaces.d
	382
	383	iface eth0 inet manual
	384
	385	auto eth1
	386	iface eth1 inet6 static
	387	address $ip
	388	netmask $nm
	389	gateway $gw
	390
ec0f5151 WB	391	iface eth2 inet manual
	392
	393	iface eth3 inet manual
	394
c7c4208a WB	395	auto vmbr0
	396	iface vmbr0 inet static
	397	address 10.0.0.2
	398	netmask 255.255.255.0
	399	gateway 10.0.0.1
1accc6da AD	400	bridge-ports eth0
	401	bridge-stp off
	402	bridge-fd 0
c7c4208a WB	403
	404	CHECK
	405
	406	save('if', w());
	407	r(load('if'));
	408	expect load('if');
	409
	410	1;