| 1 | #!/usr/bin/env expect |
| 2 | source "common.tcl" |
| 3 | |
| 4 | expect "Break on * interface_var in ${test_file}:14\r\n" |
| 5 | expect "${test_file}:14 vdbg> " |
| 6 | send "p a\n" |
| 7 | expect "a = Test{\r\n a: MySum(true)" |
| 8 | send "c\n" |
| 9 | expect "Break on * struct_to_interface_field in ${test_file}:33\r\n" |
| 10 | expect "${test_file}:33 vdbg> " |
| 11 | send "p t1\n" |
| 12 | expect "t1 = Test{\r\n a: MySum(false)" |
| 13 | send "p t2\n" |
| 14 | expect "t2 = Test{\r\n a: MySum(false)" |
| 15 | send "q\n" |
| 16 | expect eof |
| 17 |