| 1 | #!/usr/bin/env expect |
| 2 | source "common.tcl" |
| 3 | |
| 4 | expect "Break on *main* test in ${test_file}:8\r\n" |
| 5 | expect "${test_file}:8 vdbg> " |
| 6 | send "p f\n" |
| 7 | expect "f = Test(Test2{}) (main.Test)" |
| 8 | expect "${test_file}:8 vdbg> " |
| 9 | send "p t\n" |
| 10 | expect "t = Option(Test(Test2{})) (?main.Test)" |
| 11 | expect "${test_file}:8 vdbg> " |
| 12 | send "c\n" |
| 13 | |
| 14 | expect "${test_file}:16 vdbg> " |
| 15 | send "p a\n" |
| 16 | expect "a = Option(none) (?int)" |
| 17 | expect "${test_file}:16 vdbg> " |
| 18 | send "c\n" |
| 19 | |
| 20 | expect "${test_file}:16 vdbg> " |
| 21 | send "p a\n" |
| 22 | expect "a = Option(1) (?int)" |
| 23 | expect "${test_file}:16 vdbg> " |
| 24 | send "c\n" |
| 25 | |
| 26 | expect "${test_file}:12 vdbg> " |
| 27 | send "p f\n" |
| 28 | expect "f = Test(Test2{}) (main.Test)" |
| 29 | expect "${test_file}:12 vdbg> " |
| 30 | send "p t\n" |
| 31 | expect "t = Option(none) (?&main.Test)" |
| 32 | |
| 33 | expect "${test_file}:12 vdbg> " |
| 34 | send "q\n" |
| 35 | expect eof |
| 36 | |