test/etc_network_interfaces/t.create_network.pl

   1 save('proc_net_dev', <<'/proc/net/dev');
   2 eth0:
   3 eth1:
   4 /proc/net/dev
   5
   6 r(load('brbase'));
   7
   8 my $ip = '192.168.0.2';
   9 my $nm = '255.255.255.0';
  10 my $gw = '192.168.0.1';
  11 my $svcnodeip = '239.192.105.237';
  12 my $physdev = 'eth0';
  13 my $remoteip1 = '192.168.0.3';
  14 my $remoteip2 = '192.168.0.4';
  15
  16
  17 $config->{ifaces}->{eth1} = {
  18     type => 'eth',
  19     method => 'static',
  20     address => $ip,
  21     netmask => $nm,
  22     gateway => $gw,
  23     families => ['inet'],
  24     autostart => 1
  25 };
  26
  27 $config->{ifaces}->{vmbr1} = {
  28     type => 'bridge',
  29     method => 'manual',
  30     families => ['inet'],
  31     bridge_stp => off,
  32     bridge_fd => 0,
  33     bridge_ports => vxlan1,
  34     bridge_vlan_aware => yes,
  35     autostart => 1
  36 };
  37
  38
  39 $config->{ifaces}->{vmbr2} = {
  40     type => 'bridge',
  41     method => 'manual',
  42     families => ['inet'],
  43     bridge_stp => off,
  44     bridge_fd => 0,
  45     bridge_ports => vxlan2,
  46     autostart => 1
  47 };
  48
  49 $config->{ifaces}->{vmbr3} = {
  50     type => 'bridge',
  51     method => 'manual',
  52     families => ['inet'],
  53     bridge_stp => off,
  54     bridge_fd => 0,
  55     bridge_ports => vxlan3,
  56     bridge_vlan_aware => yes,
  57     bridge_vids => '2-10',
  58     autostart => 1
  59 };
  60
  61 $config->{ifaces}->{vxlan1} = {
  62     type => 'vxlan',
  63     method => 'manual',
  64     families => ['inet'],
  65     'vxlan-id' => 1,
  66     'vxlan-svcnodeip' => $svcnodeip,
  67     'vxlan-physdev' => $physdev,
  68     autostart => 1
  69 };
  70
  71 $config->{ifaces}->{vxlan2} = {
  72     type => 'vxlan',
  73     method => 'manual',
  74     families => ['inet'],
  75     'vxlan-id' => 2,
  76     'vxlan-local-tunnelip' => $ip,
  77     'bridge-learning' => 'off',
  78     'bridge-arp-nd-suppress' => 'on',
  79     'bridge-unicast-flood' => 'off',
  80     'bridge-multicast-flood' => 'off',
  81     autostart => 1
  82 };
  83
  84 $config->{ifaces}->{vxlan3} = {
  85     type => 'vxlan',
  86     method => 'manual',
  87     families => ['inet'],
  88     'vxlan-id' => 3,
  89     'vxlan-remoteip' => [$remoteip1, $remoteip2],
  90     'bridge-access' => 3,
  91     autostart => 1
  92 };
  93
  94
  95 expect load('loopback') . <<"CHECK";
  96 source-directory interfaces.d
  97
  98 iface eth0 inet manual
  99
 100 auto eth1
 101 iface eth1 inet static
 102         address  $ip
 103         netmask  $nm
 104         gateway  $gw
 105
 106 auto vmbr0
 107 iface vmbr0 inet static
 108         address  10.0.0.2
 109         netmask  255.255.255.0
 110         gateway  10.0.0.1
 111         bridge-ports eth0
 112         bridge-stp off
 113         bridge-fd 0
 114
 115 auto vmbr1
 116 iface vmbr1 inet manual
 117         bridge-ports vxlan1
 118         bridge-stp off
 119         bridge-fd 0
 120         bridge-vlan-aware yes
 121         bridge-vids 2-4094
 122
 123 auto vmbr2
 124 iface vmbr2 inet manual
 125         bridge-ports vxlan2
 126         bridge-stp off
 127         bridge-fd 0
 128
 129 auto vmbr3
 130 iface vmbr3 inet manual
 131         bridge-ports vxlan3
 132         bridge-stp off
 133         bridge-fd 0
 134         bridge-vlan-aware yes
 135         bridge-vids 2-10
 136
 137 auto vxlan1
 138 iface vxlan1 inet manual
 139         vxlan-id 1
 140         vxlan-svcnodeip $svcnodeip
 141         vxlan-physdev $physdev
 142
 143 auto vxlan2
 144 iface vxlan2 inet manual
 145         vxlan-id 2
 146         vxlan-local-tunnelip $ip
 147         bridge-arp-nd-suppress on
 148         bridge-learning off
 149         bridge-multicast-flood off
 150         bridge-unicast-flood off
 151
 152 auto vxlan3
 153 iface vxlan3 inet manual
 154         vxlan-id 3
 155         vxlan-remoteip $remoteip1
 156         vxlan-remoteip $remoteip2
 157         bridge-access 3
 158
 159 CHECK
 160
 161 save('if', w());
 162 r(load('if'));
 163 expect load('if');
 164
 165 r(load('brbase'));
 166
 167 my $ip = 'fc05::2';
 168 my $nm = '112';
 169 my $gw = 'fc05::1';
 170
 171 $config->{ifaces}->{eth1} = {
 172     type => 'eth',
 173     method6 => 'static',
 174     address6 => $ip,
 175     netmask6 => $nm,
 176     gateway6 => $gw,
 177     families => ['inet6'],
 178     autostart => 1
 179 };
 180
 181
 182 expect load('loopback') . <<"CHECK";
 183 source-directory interfaces.d
 184
 185 iface eth0 inet manual
 186
 187 auto eth1
 188 iface eth1 inet6 static
 189         address  $ip
 190         netmask  $nm
 191         gateway  $gw
 192
 193 auto vmbr0
 194 iface vmbr0 inet static
 195         address  10.0.0.2
 196         netmask  255.255.255.0
 197         gateway  10.0.0.1
 198         bridge-ports eth0
 199         bridge-stp off
 200         bridge-fd 0
 201
 202 CHECK
 203
 204 save('if', w());
 205 r(load('if'));
 206 expect load('if');
 207
 208 1;