diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-11-18 01:47:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-11-18 01:47:51 (GMT) |
| commit | 7af2e46f13299ff7016bcb17e5bf20725aa25935 (patch) | |
| tree | 87283d3114d5077cccedd07ffb74ffd8ef04e703 /tests/select.test | |
| parent | bb19ed403185f85f0d9993e40d4ea892890e5cf6 (diff) | |
| download | tk-7af2e46f13299ff7016bcb17e5bf20725aa25935.zip tk-7af2e46f13299ff7016bcb17e5bf20725aa25935.tar.gz tk-7af2e46f13299ff7016bcb17e5bf20725aa25935.tar.bz2 | |
* tests/constraints.tcl:When running the test suite in a process
* tests/image.test: where Tk has been [load]ed, there's no
* tests/select.test: guarantee that child processes created by
* tests/unixWm.test: [exec [interpreter]] will have Tk in them.
* tests/window.test: Made modifications to force a [load] of Tk
in those situations.
Diffstat (limited to 'tests/select.test')
| -rw-r--r-- | tests/select.test | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/select.test b/tests/select.test index db401b7..04adc6b 100644 --- a/tests/select.test +++ b/tests/select.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: select.test,v 1.10 2003/04/01 21:06:51 dgp Exp $ +# RCS: @(#) $Id: select.test,v 1.11 2003/11/18 01:47:51 dgp Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -17,6 +17,8 @@ package require tcltest 2.1 eval tcltest::configure $argv tcltest::loadTestedCommands +namespace import -force ::tk::test:loadTkCommand + global longValue selValue selInfo set selValue {} @@ -856,7 +858,7 @@ test select-10.1 {ConvertSelection procedure, race with selection clear} {unixOn lappend x [gets $fd] } set fd [open "|[list [interpreter] -geometry +0+0 -name tktest]" r+] - puts $fd "puts foo; flush stdout" + puts $fd "puts foo; [loadTkCommand]; flush stdout" flush $fd gets $fd fileevent $fd readable [list Ready $fd] @@ -872,7 +874,9 @@ test select-10.1 {ConvertSelection procedure, race with selection clear} {unixOn vwait [namespace which -variable x] puts $fd {exit} flush $fd - close $fd + # Don't understand why, but the [loadTkCommand] above causes + # a "broken pipe" error when Tk was actually [load]ed in the child. + catch {close $fd} lappend x $selInfo } {{1 PRIMARY selection doesn't exist or form "STRING" not defined} {}} test select-10.2 {ConvertSelection procedure} {unixOnly} { |