wlan test: robustify, tail log on failure

This commit is contained in:
Daniel Barlow 2023-12-22 15:49:43 +00:00
parent 9b92bf8447
commit fe2d41a2b1

View file

@ -1,20 +1,30 @@
set timeout 60 set timeout 60
spawn socat unix-connect:vm/console -
send "\r\n"
expect "#"
set FINISHED 0 set FINISHED 0
set EXIT "1" set EXIT "1"
send "ls -l /run/uncaught-logs/current\r\n"
spawn socat unix-connect:vm/console -
expect {
"BusyBox" { }
"#" { }
}
send "\r\n"
expect {
"#" { send "NOT=not_present\r" }
}
expect "#" expect "#"
while { $FINISHED < 20 } { while { $FINISHED < 10 } {
send "date && grep AP-ENABLED /run/uncaught-logs/current || echo not\r\n" send "date && grep AP-ENABLED /run/uncaught-logs/* || echo \$NOT\r\n"
expect { expect {
"wlan0: AP-ENABLED" { set FINISHED 10; set EXIT 0; } "wlan0: AP-ENABLED" { set FINISHED 999; set EXIT 0; }
"not" { send_user "waiting ..." ; sleep 5 } "not_present" { send_user "waiting ...\n" ; sleep 5 }
} }
set FINISHED [ expr $FINISHED + 1 ] set FINISHED [ expr $FINISHED + 1 ]
} }
if { $EXIT > 0 } {
send "tail -40 /run/uncaught-logs/current\r\n"
expect "#"
}
exit $EXIT exit $EXIT