36 lines
629 B
Perl
36 lines
629 B
Perl
# test ospfd without any interface state machines
|
|
# the ospfd will get dr and there must be no neighbors
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Default qw($ospfd_ip);
|
|
|
|
our %tst_args = (
|
|
client => {
|
|
state => [],
|
|
tasks => [
|
|
{
|
|
name => "receive hello with dr 0.0.0.0 bdr 0.0.0.0",
|
|
check => {
|
|
dr => "0.0.0.0",
|
|
bdr => "0.0.0.0",
|
|
nbrs => [],
|
|
},
|
|
},
|
|
{
|
|
name => "there must be no nbrs, wait until dr $ospfd_ip",
|
|
check => {
|
|
bdr => "0.0.0.0",
|
|
nbrs => [],
|
|
},
|
|
wait => {
|
|
dr => $ospfd_ip,
|
|
},
|
|
timeout => 11, # dead interval + hello interval + 1 second
|
|
},
|
|
],
|
|
},
|
|
);
|
|
|
|
1;
|