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/unixWm.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/unixWm.test')
| -rw-r--r-- | tests/unixWm.test | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test index a361b3e..aa6da1c 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -7,12 +7,14 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixWm.test,v 1.35 2003/10/15 20:04:03 jenglish Exp $ +# RCS: @(#) $Id: unixWm.test,v 1.36 2003/11/18 01:47:51 dgp Exp $ package require tcltest 2.2 eval tcltest::configure $argv tcltest::loadTestedCommands +namespace import -force ::tk::test:loadTkCommand + proc sleep ms { global x after $ms {set x 1} @@ -2394,14 +2396,16 @@ test unixWm-59.1 {exit processing} unix { list $error $msg } {0 {}} test unixWm-59.2 {exit processing} unix { - set script [makeFile { + set code [loadTkCommand] + append code { interp create x x eval {set argc 2} x eval {set argv "-geometry 10x10+0+0"} x eval {load {} Tk} update exit - } script] + } + set script [makeFile $code script] if {[catch {exec [interpreter] $script -geometry 10x10+0+0} msg]} { set error 1 } else { @@ -2411,7 +2415,8 @@ test unixWm-59.2 {exit processing} unix { list $error $msg } {0 {}} test unixWm-59.3 {exit processing} unix { - set script [makeFile { + set code [loadTkCommand] + append code { interp create x x eval {set argc 2} x eval {set argv "-geometry 10x10+0+0"} @@ -2424,7 +2429,8 @@ test unixWm-59.3 {exit processing} unix { proc destroy_x {} {interp delete x} update exit - } script] + } + set script [makeFile $code script] if {[catch {exec [interpreter] $script -geometry 10x10+0+0} msg]} { set error 1 } else { |