test/etc_network_interfaces/t.ifupdown2-typeless.pl

   1 my $ip = '10.0.0.2/24';
   2 my $gw = '10.0.0.1';
   3 my $ip6 = 'fc05::1:2/112';
   4 my $gw6 = 'fc05::1:1';
   5
   6 r(load('base') . <<"EOF");
   7 auto vmbr1
   8 iface vmbr1
   9         address 1.2.3.4/24
  10         address fccc::a:1/64
  11         gateway 1.2.3.1
  12         gateway fccc::1
  13         bridge-ports eth0
  14         bridge-stp off
  15         bridge-fd 0
  16 # Comment
  17
  18 EOF
  19
  20 my $run = 'first';
  21 my $ifaces = $config->{ifaces};
  22
  23 my $ck = sub {
  24     my ($i, $v, $e) = @_;
  25     $ifaces->{$i}->{$v} eq $e
  26         or die "$run run: $i variable $v: got \"$ifaces->{$i}->{$v}\", expected: $e\n";
  27 };
  28
  29 my $check_config = sub {
  30     $ck->('vmbr1', type => 'bridge');
  31     $ck->('vmbr1', cidr => '1.2.3.4/24');
  32     $ck->('vmbr1', gateway => '1.2.3.1');
  33     $ck->('vmbr1', cidr6 => 'fccc::a:1/64');
  34     $ck->('vmbr1', gateway6 => 'fccc::1');
  35 };
  36
  37 $check_config->();
  38
  39 # idempotency
  40 save('idem', w());
  41 r(load('idem'));
  42 expect load('idem');
  43
  44 $run = 'second';
  45 $check_config->();
  46
  47 1;