anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-22 10:00:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added emergency STOP button in tcl/tk window for immediate & painless termination of the tests.

Browse Source 
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@37551 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Tommaso Cucinotta 2011-02-07 23:32:27 +00:00
parent 4c55d02ec6
commit 939796f137
3 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
development/autotests/run-tests.sh
View File

@ -38,6 +38,9 @@ if [ ! -d $LYX_HOME ]; then
cd ..
fi
# Launch the emergency STOP button
./stop_autotests.tcl &
echo "Running test cases . . ."
failed=0
for t in $(echo "$TESTS" | sed -e 's/-in.txt//g'); do

BIN
development/autotests/stop.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 896 B

17
development/autotests/stop_autotests.tcl Executable file
View File

@ -0,0 +1,17 @@
#! /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