#!/usr/bin/env expect
source "common.tcl"

expect "Break on * interface_var in ${test_file}:14\r\n"
expect "${test_file}:14 vdbg> "
send "p a\n"
expect "a = Test{\r\n    a: MySum(true)"
send "c\n"
expect "Break on * struct_to_interface_field in ${test_file}:33\r\n"
expect "${test_file}:33 vdbg> "
send "p t1\n"
expect "t1 = Test{\r\n    a: MySum(false)"
send "p t2\n"
expect "t2 = Test{\r\n    a: MySum(false)"
send "q\n"
expect eof