Check-in [eaf3feab27]
Overview
Comment:Added support for starting Xvfb before beginning tests (to test Tk)

Added Tk test

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:eaf3feab277ae8979dfedeaad42f449bb42c759d
User & Date: rkeene on 2010-09-26 04:48:55
Other Links: manifest | tags
Context
2010-09-26
04:49
Updated to support static Tk on non-Windows platforms check-in: 70da029110 user: rkeene tags: trunk
04:48
Added support for starting Xvfb before beginning tests (to test Tk)

Added Tk test check-in: eaf3feab27 user: rkeene tags: trunk

04:48
Updated to run tests at low priority check-in: 39e9180a10 user: rkeene tags: trunk
Changes

Modified build/test/test from [648b46f86c] to [472fc137a9].

    40     40   	if echo "${file}" | grep -- '-build.log$' >/dev/null; then
    41     41   		continue
    42     42   	fi
    43     43   
    44     44   	rm -f "${file}"
    45     45   done
    46     46   
           47  +# Start Xvfb for X11-based tests
           48  +Xvfb -nolisten tcp :31 >/dev/null 2>/dev/null &
           49  +XVFB_PID="$!"
           50  +DISPLAY=:31
           51  +export DISPLAY
           52  +
    47     53   failed=""
    48     54   for kit in normal normal-zip normal-threaded normal-threaded-zip normal-statictk normal-notk normal-threaded-notk normal-threaded-zip-notk normal-nomk4 min min-static win32-i586 win32-i586-zip win32-i586-threaded win32-i586-threaded-zip win32-i586-notk win32-i586-threaded-notk win32-i586-nomk4 linux-arm-min; do
    49     55   	kitcreator="./kitcreator"
    50     56   	args=""
    51     57   	runnable="1"
    52     58   	iszip="0"
    53     59   	statictk="0"
................................................................................
   314    320   		done
   315    321   	done
   316    322   done
   317    323   
   318    324   if [ -n "${failed}" ]; then
   319    325   	echo "Failed: ${failed}"
   320    326   fi
          327  +
          328  +# Terminate Xvfb
          329  +kill -9 "${XVFB_PID}"

Added build/test/tests/07-tk.tcl version [f943d31ad3].

            1  +#! /usr/bin/env tclsh
            2  +
            3  +# Determine if we should have Tk
            4  +set buildflags [split [lindex $argv 1] -]
            5  +foreach flag [list notk min] {
            6  +	if {[lsearch -exact $buildflags $flag] != -1} {
            7  +		exit 0
            8  +	}
            9  +}
           10  +
           11  +package require Tk
           12  +
           13  +label .l
           14  +pack .l
           15  +
           16  +if {[winfo children .] == ".l"} {
           17  +	exit 0
           18  +}
           19  +
           20  +puts "Winfo Children: [winfo children .]"
           21  +
           22  +exit 1