| 1 | #!/usr/bin/env expect |
| 2 | source "common.tcl" |
| 3 | |
| 4 | expect "Break on * main in ${test_file}:6" |
| 5 | expect "${test_file}:6 vdbg> " |
| 6 | send "scope\n" |
| 7 | expect "a = 1 (int)" |
| 8 | send "c\n" |
| 9 | expect "Break on * main in ${test_file}:11" |
| 10 | expect "${test_file}:11 vdbg> " |
| 11 | send "scope\n" |
| 12 | expect "e = 3 (int)" |
| 13 | expect "a = 1 (int)" |
| 14 | send "c\n" |
| 15 | expect "Break on * main in ${test_file}:21" |
| 16 | expect "${test_file}:21 vdbg> " |
| 17 | send "scope\n" |
| 18 | expect "x = 1 (int)" |
| 19 | send "c\n" |
| 20 | expect "Break on * main in ${test_file}:26" |
| 21 | expect "${test_file}:26 vdbg> " |
| 22 | send "scope\n" |
| 23 | expect "a = 1 (int)" |
| 24 | expect "b = 2 (int)" |
| 25 | expect "x = 1 (int)" |
| 26 | send "c\n" |
| 27 | expect "Break on * main in ${test_file}:31" |
| 28 | expect "${test_file}:31 vdbg> " |
| 29 | send "scope\n" |
| 30 | expect "a = 1 (int)" |
| 31 | expect "b = 2 (int)" |
| 32 | expect "x = 1 (int)" |
| 33 | send "c\n" |
| 34 | expect "Break on * main in ${test_file}:34" |
| 35 | expect "${test_file}:34 vdbg> " |
| 36 | send "scope\n" |
| 37 | expect "a = 1 (int)" |
| 38 | expect "b = 2 (int)" |
| 39 | expect "z = 0 (int)" |
| 40 | expect "x = 1 (int)" |
| 41 | send "c\n" |
| 42 | expect "Break on * main in ${test_file}:40" |
| 43 | expect "${test_file}:40 vdbg> " |
| 44 | send "scope\n" |
| 45 | expect "y = 1 (int)" |
| 46 | expect "x = 1 (int)" |
| 47 | send "c\n" |
| 48 | expect eof |
| 49 | |