#PUNKTEST FIXTURE - owned by src/tests/shell/testsuites/punkexe/scriptexec.test
#Do not hand-edit: the suite asserts on the exit code and prompt termination.
#Tk fixture: creates a window then raises an uncaught error. The 'script'
#subcommand must exit promptly with code 1 (error path exits before entering
#the Tk main loop) - never leaving a hanging window.
if {[catch {package require Tk}]} {
    puts stderr "PUNKTEST_TK_UNAVAILABLE"
    exit 2
}
label .l -text "punktest error"
pack .l
puts "PUNKTEST_TK_BEFORE_ERR"
flush stdout
error "punktest deliberate error after window"