Index: build/test/test ================================================================== --- build/test/test +++ build/test/test @@ -42,10 +42,16 @@ fi rm -f "${file}" done +# Start Xvfb for X11-based tests +Xvfb -nolisten tcp :31 >/dev/null 2>/dev/null & +XVFB_PID="$!" +DISPLAY=:31 +export DISPLAY + failed="" 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 kitcreator="./kitcreator" args="" runnable="1" @@ -316,5 +322,8 @@ done if [ -n "${failed}" ]; then echo "Failed: ${failed}" fi + +# Terminate Xvfb +kill -9 "${XVFB_PID}" ADDED build/test/tests/07-tk.tcl Index: build/test/tests/07-tk.tcl ================================================================== --- build/test/tests/07-tk.tcl +++ build/test/tests/07-tk.tcl @@ -0,0 +1,22 @@ +#! /usr/bin/env tclsh + +# Determine if we should have Tk +set buildflags [split [lindex $argv 1] -] +foreach flag [list notk min] { + if {[lsearch -exact $buildflags $flag] != -1} { + exit 0 + } +} + +package require Tk + +label .l +pack .l + +if {[winfo children .] == ".l"} { + exit 0 +} + +puts "Winfo Children: [winfo children .]" + +exit 1