test/etc_network_interfaces/t.create_network.pl

   1 save('proc_net_dev', <<'/proc/net/dev');
   2 eth0:
   3 eth1:
   4 eth2:
   5 eth3:
   6 /proc/net/dev
   7
   8 r(load('brbase'));
   9
  10 #
  11 # Variables used for the various interfaces:
  12 #
  13
  14 my $ip = '192.168.0.2';
  15 my $nm = '255.255.255.0';
  16 my $gw = '192.168.0.1';
  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
  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 #
  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
  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,
  88     method => 'manual',
  89     families => ['inet'],
  90     autostart => 1
  91 };
  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;
 102
 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',
 126     method => 'manual',
 127     families => ['inet'],
 128     'vxlan-id' => 1,
 129     'vxlan-svcnodeip' => $svcnodeip,
 130     'vxlan-physdev' => $physdev,
 131     autostart => 1
 132 };
 133
 134 $config->{ifaces}->{vxlan2} = {
 135     type => 'vxlan',
 136     method => 'manual',
 137     families => ['inet'],
 138     'vxlan-id' => 2,
 139     'vxlan-local-tunnelip' => $ip,
 140     autostart => 1
 141 };
 142
 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
 180 $config->{ifaces}->{vmbr1} = {
 181     mtu => 1400,
 182     type => 'bridge',
 183     method => 'manual',
 184     families => ['inet'],
 185     bridge_stp => 'off',
 186     bridge_fd => 0,
 187     bridge_ports => 'vxlan1',
 188     bridge_vlan_aware => 'yes',
 189     autostart => 1
 190 };
 191
 192 $config->{ifaces}->{vmbr2} = {
 193     type => 'bridge',
 194     method => 'manual',
 195     families => ['inet'],
 196     bridge_stp => 'off',
 197     bridge_fd => 0,
 198     bridge_ports => 'vxlan2',
 199     autostart => 1
 200 };
 201
 202 $config->{ifaces}->{vmbr3} = {
 203     type => 'bridge',
 204     method => 'manual',
 205     families => ['inet'],
 206     bridge_stp => 'off',
 207     bridge_fd => 0,
 208     bridge_ports => 'vxlan3',
 209     bridge_vlan_aware => 'yes',
 210     bridge_vids => '2-10',
 211     autostart => 1
 212 };
 213
 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
 223
 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;
 239
 240 $config->{ifaces}->{vxlan3} = {
 241     type => 'vxlan',
 242     method => 'manual',
 243     families => ['inet'],
 244     'vxlan-id' => 3,
 245     'vxlan-remoteip' => [$remoteip1, $remoteip2],
 246     'bridge-access' => 3,
 247     autostart => 1
 248 };
 249
 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
 295 $config->{ifaces}->{'vmbr1.100'} = {
 296     type => 'vlan',
 297     mtu => 1300,
 298     method => 'manual',
 299     families => ['inet'],
 300     autostart => 1
 301 };
 302
 303 $config->{ifaces}->{'bond0.100'} = {
 304     type => 'vlan',
 305     mtu => 1300,
 306     method => 'manual',
 307     families => ['inet'],
 308     autostart => 1
 309 };
 310
 311 $config->{ifaces}->{'eth1.100'} = {
 312     type => 'vlan',
 313     mtu => 1400,
 314     method => 'manual',
 315     families => ['inet'],
 316     autostart => 1
 317 };
 318
 319 expect load('loopback') . <<"CHECK";
 320 source-directory interfaces.d
 321
 322 iface eth0 inet manual
 323
 324 $eth1_part
 325
 326 iface eth2 inet manual
 327
 328 iface eth3 inet manual
 329
 330 auto eth1.100
 331 iface eth1.100 inet manual
 332         mtu 1400
 333
 334 $bond0_part
 335
 336 auto bond0.100
 337 iface bond0.100 inet manual
 338         mtu 1300
 339
 340 $vmbr0_part
 341
 342 $vmbr123_part
 343
 344 auto vmbr1.100
 345 iface vmbr1.100 inet manual
 346         mtu 1300
 347
 348 $vxlan123_part
 349
 350 CHECK
 351
 352 #
 353 # Now check the new config for idempotency:
 354 #
 355
 356 save('if', w());
 357 r(load('if'));
 358 expect load('if');
 359
 360 #
 361 # Check a brbase with an ipv6 address on eth1
 362 #
 363
 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
 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
 391 iface eth2 inet manual
 392
 393 iface eth3 inet manual
 394
 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
 400         bridge-ports eth0
 401         bridge-stp off
 402         bridge-fd 0
 403
 404 CHECK
 405
 406 save('if', w());
 407 r(load('if'));
 408 expect load('if');
 409
 410 1;