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.
19 lines
776 B
19 lines
776 B
#PUNKTEST FIXTURE - owned by src/tests/shell/testsuites/punkexe/scriptexec.test |
|
#Do not hand-edit: the suite asserts on the marker and exit behaviour below. |
|
#Tk fixture: creates a window and exits 0 from an 'after' callback. The marker |
|
#and exit fire ONLY if the event loop is serviced after the script body - which |
|
#is the 'script' subcommand's tclsh-matching Tk main-loop behaviour (G-015, |
|
#punkshell 0.4.1). Pre-fix, the process exited before the callback ran. |
|
#Arg 1 = delay in milliseconds (default 300). |
|
if {[catch {package require Tk}]} { |
|
puts stderr "PUNKTEST_TK_UNAVAILABLE" |
|
exit 2 |
|
} |
|
set ms [expr {[llength $::argv] ? [lindex $::argv 0] : 300}] |
|
label .l -text "punktest countdown" |
|
pack .l |
|
after $ms { |
|
puts "PUNKTEST_TK_DONE" |
|
flush stdout |
|
exit 0 |
|
}
|
|
|