test/etc_network_interfaces/t.list-interfaces.pl

   1 # Assuming eth0..3 and eth100
   2 # eth0 is part of vmbr0, eth100 is part of the OVS bridge vmbr1
   3 # vmbr0 has ipv4 and ipv6, OVS only ipv4
   4 #
   5 # eth1..3 are completely un-configured as if the cards had just been physically
   6 # plugged in.
   7 # The expected behavior is to notice their existance and treat them as manually
   8 # configured interfaces.
   9 # Saving the file after reading would add the corresponding 'manual' lines.
  10 save('proc_net_dev', <<'/proc/net/dev');
  11 eth0:
  12 eth1:
  13 eth2:
  14 eth3:
  15 eth100:
  16 /proc/net/dev
  17
  18 my %wanted = (
  19     vmbr0 => {
  20         address => '192.168.1.2',
  21         netmask => '24',
  22         cidr => '192.168.1.2/24',
  23         gateway => '192.168.1.1',
  24         address6 => 'fc05::1:1',
  25         netmask6 => '112',
  26         cidr6 => 'fc05::1:1/112',
  27     },
  28     vmbr1 => {
  29         address => '10.0.0.5',
  30         netmask => '24',
  31         cidr => '10.0.0.5/24',
  32     },
  33     eth2 => {
  34         address => '172.16.0.1',
  35         netmask => '24',
  36         cidr => '172.16.0.1/24',
  37         address6 => 'fc05::1:2',
  38         netmask6 => '112',
  39         cidr6 => 'fc05::1:2/112',
  40     },
  41 );
  42
  43 save('interfaces', <<"/etc/network/interfaces");
  44 auto lo
  45 iface lo inet loopback
  46
  47 source-directory interfaces.d
  48
  49 iface eth0 inet manual
  50
  51 iface eth2 inet static
  52         address  $wanted{eth2}->{cidr}
  53
  54 iface eth2 inet6 static
  55         address  $wanted{eth2}->{cidr6}
  56
  57 allow-vmbr1 eth100
  58 iface eth100 inet manual
  59         ovs_type OVSPort
  60         ovs_bridge vmbr1
  61
  62 auto vmbr0
  63 iface vmbr0 inet static
  64         address  $wanted{vmbr0}->{address}
  65         netmask  $wanted{vmbr0}->{netmask}
  66         gateway  $wanted{vmbr0}->{gateway}
  67         bridge_ports eth0
  68         bridge_stp off
  69         bridge_fd 0
  70
  71 iface vmbr0 inet6 static
  72         address  $wanted{vmbr0}->{address6}
  73         netmask  $wanted{vmbr0}->{netmask6}
  74
  75 source-directory before-ovs.d
  76
  77 allow-ovs vmbr1
  78 iface vmbr1 inet static
  79         address  $wanted{vmbr1}->{address}
  80         netmask  $wanted{vmbr1}->{netmask}
  81         ovs_type OVSBridge
  82         ovs_ports eth100
  83
  84 source after-ovs
  85
  86 /etc/network/interfaces
  87
  88 r(load('interfaces'));
  89 save('2', w());
  90
  91 my $ifaces = $config->{ifaces};
  92
  93 # check defined interfaces
  94 defined($ifaces->{"eth$_"})
  95     or die "missing interface: eth$_\n" foreach (0, 1, 2, 3, 100);
  96
  97 # check configuration
  98 foreach my $ifname (keys %wanted) {
  99     my $if = $wanted{$ifname};
 100     $ifaces->{$ifname}->{$_} eq $if->{$_}
 101         or die "unexpected $_ for interface $ifname: \""
 102              . $ifaces->{$ifname}->{$_}
 103              . "\", expected: \"$if->{$_}\"\n"
 104         foreach (keys %$if);
 105 }
 106
 107 my $ck = sub {
 108     my ($i, $v, $e) = @_;
 109     $ifaces->{$i}->{$v} eq $e
 110         or die "$i variable $v: got \"$ifaces->{$i}->{$v}\", expected: $e\n";
 111 };
 112 $ck->('vmbr0', type => 'bridge');
 113 $ck->('vmbr1', type => 'OVSBridge');
 114 $ck->('vmbr1', ovs_type => 'OVSBridge');
 115 $ck->('vmbr1', ovs_ports => 'eth100');
 116 $ck->("eth$_", type => 'eth') foreach (0, 1, 2, 3);
 117 $ck->('eth100', type => 'OVSPort');
 118 $ck->('eth100', ovs_type => 'OVSPort');
 119 $ck->('eth100', ovs_bridge => 'vmbr1');
 120
 121 my @f100 = sort @{$ifaces->{vmbr0}->{families}};
 122
 123 die "invalid families defined for vmbr0"
 124     if (scalar(@f100) != 2) || ($f100[0] ne 'inet') || ($f100[1] ne 'inet6');
 125
 126 # idempotency
 127 r(w());
 128 expect load('2');
 129
 130 1;