diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-17 22:38:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-17 22:38:55 (GMT) |
| commit | 68c988ff855b9dbfb491f6986db826f591b6f1d2 (patch) | |
| tree | 6b824bed75789a3a95889126d5c52a7d76e579af /tests/winDialog.test | |
| parent | c5b74b100d335256f82be758f49ce8425fe2ac18 (diff) | |
| download | tk-68c988ff855b9dbfb491f6986db826f591b6f1d2.zip tk-68c988ff855b9dbfb491f6986db826f591b6f1d2.tar.gz tk-68c988ff855b9dbfb491f6986db826f591b6f1d2.tar.bz2 | |
Steps towards systematization of test constraints in Tk test suite
Diffstat (limited to 'tests/winDialog.test')
| -rw-r--r-- | tests/winDialog.test | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/winDialog.test b/tests/winDialog.test index d3881d2..b2a705a 100644 --- a/tests/winDialog.test +++ b/tests/winDialog.test @@ -6,15 +6,15 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # Copyright (c) 1998-1999 ActiveState Corporation. # -# RCS: @(#) $Id: winDialog.test,v 1.10 2003/04/01 21:07:00 dgp Exp $ +# RCS: @(#) $Id: winDialog.test,v 1.11 2004/06/17 22:38:57 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv tcltest::loadTestedCommands -testConstraint testwinevent [llength [info commands testwinevent]] - -catch {testwinevent debug 1} +if {[testConstraint testwinevent]} { + catch {testwinevent debug 1} +} proc start {arg} { set ::tk_dialog 0 @@ -317,7 +317,9 @@ test winDialog-9.8 {Tk_ChooseDirectoryObjCmd:\ list [catch {tk_chooseDirectory -initialdir ~12x/455} msg] $msg } {1 {user "12x" doesn't exist}} -catch {testwinevent debug 0} +if {[testConstraint testwinevent]} { + catch {testwinevent debug 0} +} # cleanup cleanupTests |