1use strict; 2use warnings; 3use Default qw($ospfd_ip $ospfd_rtrid); 4 5our %tst_args = ( 6 client => { 7 tasks => [ 8 { 9 name => "receive hello with dr 0.0.0.0 bdr 0.0.0.0, ". 10 "enter $ospfd_rtrid as our neighbor", 11 check => { 12 dr => "0.0.0.0", 13 bdr => "0.0.0.0", 14 nbrs => [], 15 }, 16 state => { 17 nbrs => [ $ospfd_rtrid ], 18 }, 19 }, 20 { 21 name => "wait for neighbor 10.188.0.18 in received hello", 22 check => { 23 dr => "0.0.0.0", 24 bdr => "0.0.0.0", 25 }, 26 wait => { 27 nbrs => [ "10.188.0.18" ], 28 }, 29 timeout => 5, # 2 * hello interval + 1 second 30 }, 31 { 32 name => "we are 2-way, wait for dr $ospfd_ip and ". 33 "bdr 10.188.6.18 in received hello", 34 check => { 35 nbrs => [ "10.188.0.18" ], 36 }, 37 wait => { 38 dr => $ospfd_ip, 39 bdr => "10.188.6.18", 40 }, 41 timeout => 11, # dead interval + hello interval + 1 second 42 }, 43 ], 44 }, 45); 46 471; 48