| 1 | #!/usr/bin/env expect |
| 2 | source "common.tcl" |
| 3 | |
| 4 | expect "0" |
| 5 | expect "1" |
| 6 | expect "2" |
| 7 | expect "4" |
| 8 | expect "${test_file}:3 vdbg> " |
| 9 | send "p x\n" |
| 10 | expect "x = 5 (int literal)" |
| 11 | send "c\n" |
| 12 | expect "${test_file}:3 vdbg> " |
| 13 | send "p x\n" |
| 14 | expect "x = 6 (int literal)" |
| 15 | send "c\n" |
| 16 | expect "${test_file}:3 vdbg> " |
| 17 | send "q\n" |
| 18 | expect "7" |
| 19 | expect "8" |
| 20 | expect "9" |
| 21 | expect eof |
| 22 |