1set timeout 30 2set test_name "testcommands" 3 4if {![info exists env(QUAGGA_TEST_COMMANDS)]} { 5 # sadly, the test randomly fails when configure parameters differ from 6 # what was used to create testcommands.refout. this can be fixed by 7 # shipping a matching vtysh_cmd.c, which we'll add after 0.99.23 8 unresolved "$test_name" 9 exit 0 10} 11 12spawn sh -c "./testcommands -e 0 < $env(srcdir)/testcommands.in | diff -au - $env(srcdir)/testcommands.refout" 13 14expect { 15 eof { 16 } 17 timeout { 18 exp_close 19 fail "$test_name: timeout" 20 } 21} 22 23catch wait result 24set os_error [lindex $result 2] 25set exit_status [lindex $result 3] 26 27if { $os_error == 0 && $exit_status == 0 } { 28 pass "$test_name" 29} else { 30 fail "$test_name" 31} 32