#PUNKTEST FIXTURE - owned by src/tests/shell/testsuites/punkexe/scriptexec.test
#Do not hand-edit: the suite asserts on the ready marker and the process
#staying alive.
#Tk fixture: creates a window and never exits. Under the 'script' subcommand
#(and tclsh/wish) this blocks in the serviced event loop until the window is
#closed - the suite launches it, sees the ready marker, confirms it is still
#running after a grace period, then kills it.
if {[catch {package require Tk}]} {
    puts stderr "PUNKTEST_TK_UNAVAILABLE"
    exit 2
}
label .l -text "punktest noexit"
pack .l
puts "PUNKTEST_TK_READY"
flush stdout