use strict; use warnings; use Default qw($ospfd_ip $ospfd_rtrid); our %tst_args = ( client => { tasks => [ { name => "receive hello with dr 0.0.0.0 bdr 0.0.0.0, ". "enter $ospfd_rtrid as our neighbor", check => { dr => "0.0.0.0", bdr => "0.0.0.0", nbrs => [], }, state => { nbrs => [ $ospfd_rtrid ], }, }, { name => "wait for neighbor 10.188.0.18 in received hello", check => { dr => "0.0.0.0", bdr => "0.0.0.0", }, wait => { nbrs => [ "10.188.0.18" ], }, timeout => 5, # 2 * hello interval + 1 second }, { name => "we are 2-way, wait for dr $ospfd_ip and ". "bdr 10.188.6.18 in received hello", check => { nbrs => [ "10.188.0.18" ], }, wait => { dr => $ospfd_ip, bdr => "10.188.6.18", }, timeout => 11, # dead interval + hello interval + 1 second }, ], }, ); 1;