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

expect "Break on * main in ${test_file}:8"
expect "${test_file}:8 vdbg> "
send "p st\n"
expect "st = AStruct{\r\n    a: 1\r\n} (main.AStruct)"
expect "${test_file}:8 vdbg> "
send "q\n"
expect eof