You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
616 B
15 lines
616 B
#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
|
|
|