lyx_mirror/development/autotests/stop_autotests.tcl

#!/usr/bin/wish8.5

wm attributes . -topmost 1

image create photo .stop -format GIF -file stop.gif
button .stop_autotests -image .stop -text "STOP LyX Tests" -compound left -command {
    set status 0
    if {[catch {exec killall --wait run-tests.sh single-test.sh lyx} results]} {
	if {[lindex $::errorCode 0] eq "CHILDSTATUS"} {
	    set status [lindex $::errorCode 2]
	} else {
	    # Some kind of unexpected failure
	}
    }
    exit
}
pack .stop_autotests
Now the framework works running LyX in the language required by the test script (if any) also when LyX is not installed on your system (using a variant of the trick suggested by Enrico, i.e., create a symlink locale from the LyX sources root to an autotests/locale folder). At least, it does on Linux. git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@37589 a592a061-630c-0410-9148-cb99ea01b6c8 2011-02-10 22:33:23 +00:00			`#!/usr/bin/wish8.5`
Added emergency STOP button in tcl/tk window for immediate & painless termination of the tests. git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@37551 a592a061-630c-0410-9148-cb99ea01b6c8 2011-02-07 23:32:27 +00:00
			`wm attributes . -topmost 1`

			`image create photo .stop -format GIF -file stop.gif`
			`button .stop_autotests -image .stop -text "STOP LyX Tests" -compound left -command {`
			`set status 0`
			`if {[catch {exec killall --wait run-tests.sh single-test.sh lyx} results]} {`
			`if {[lindex $::errorCode 0] eq "CHILDSTATUS"} {`
			`set status [lindex $::errorCode 2]`
			`} else {`
			`# Some kind of unexpected failure`
			`}`
			`}`
			`exit`
			`}`
			`pack .stop_autotests`