Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | timeout 600 |
2 | ||
3 | expect | |
4 | set build [lindex $argv 0] | |
5 | set RC [lindex $argv 1] | |
6 | set ckpt [lindex $argv 2] | |
7 | end_expect | |
8 | ||
9 | open SAM "$build/bin/sam -c $RC -R $ckpt" | |
10 | log_user SAM 1 | |
11 | ||
12 | pattern SAM "(guest|hyper)\[^\r]* /dev/(\[^\r]*)\r\n" | |
13 | if { "$expect_out(1,string)" == "guest" } { | |
14 | set guest_tty "/dev/$expect_out(2,string)" | |
15 | } elseif { "$expect_out(1,string)" == "hyper" } { | |
16 | set hyper_tty "/dev/$expect_out(2,string)" | |
17 | } else { | |
18 | send_error "Bad tty parse: $expect_out(1,string)\n" | |
19 | exit 2 | |
20 | } | |
21 | exp_continue | |
22 | end_pattern SAM | |
23 | ||
24 | set_prompt SAM 'stop: ' | |
25 | wait_prompt SAM | |
26 | clear SAM patterns | |
27 | ||
28 | open HYPER "-noecho /usr/bin/tip $hyper_tty" | |
29 | log_user HYPER 0 | |
30 | open GUEST "-noecho /usr/bin/tip $guest_tty" | |
31 | log_user GUEST 0 | |
32 | ||
33 | error HYPER "\[Pp]anic" | |
34 | error GUEST "\[Pp]anic" |