Gitly


1 #!/usr/bin/env expect
2 source "common.tcl"
3 
4 expect "Break on * option_unwrap in ${test_file}:4\r\n"
5 expect "${test_file}:4 vdbg> "
6 send "p a\n"
7 expect "a = Option(123) (?int)"
8 send "p b\n"
9 expect "b = 123 (int)"
10 send "q\n"
11 expect eof
12

1	#!/usr/bin/env expect
2	source "common.tcl"
3
4	expect "Break on * option_unwrap in ${test_file}:4\r\n"
5	expect "${test_file}:4 vdbg> "
6	send "p a\n"
7	expect "a = Option(123) (?int)"
8	send "p b\n"
9	expect "b = 123 (int)"
10	send "q\n"
11	expect eof
12