|
set timeout 30
|
|
|
|
spawn socat unix-connect:vm/console -
|
|
expect {
|
|
"stop autoboot" { send "\r" }
|
|
"=>" { send "\r" }
|
|
}
|
|
set fh [open "result/boot.scr"]
|
|
while {[gets $fh line] >= 0} {
|
|
expect "=>"
|
|
send "$line\r"
|
|
}
|
|
|
|
close $fh
|
|
|
|
expect {
|
|
"s6-linux-init" { exit 0 }
|
|
timeout { exit 1 }
|
|
}
|
|
|
|
|