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

expect "0"
expect "1"
expect "2"
expect "4"
expect "${test_file}:3 vdbg> "
send "p x\n"
expect "x = 5 (int literal)"
send "c\n"
expect "${test_file}:3 vdbg> "
send "p x\n"
expect "x = 6 (int literal)"
send "c\n"
expect "${test_file}:3 vdbg> "
send "q\n"
expect "7"
expect "8"
expect "9"
expect eof