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.
14 lines
583 B
14 lines
583 B
#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"
|
|
|