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

expect "Break on *main* test in ${test_file}:8\r\n"
expect "${test_file}:8 vdbg> "
send "p f\n"
expect "f = Test(Test2{}) (main.Test)"
expect "${test_file}:8 vdbg> "
send "p t\n"
expect "t = Test(Test2{}) (&main.Test)"
expect "${test_file}:8 vdbg> "
send "q\n"
expect eof
