diff options
| author | dkf <dkf@noemail.net> | 2004-06-17 22:38:54 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-06-17 22:38:54 (GMT) |
| commit | 56d8bbeefae83919012fef27affd81eaef17a632 (patch) | |
| tree | 6b824bed75789a3a95889126d5c52a7d76e579af /tests/winDialog.test | |
| parent | 0207ae988fada9953cfa1294683434dacf4d94a3 (diff) | |
| download | tk-56d8bbeefae83919012fef27affd81eaef17a632.zip tk-56d8bbeefae83919012fef27affd81eaef17a632.tar.gz tk-56d8bbeefae83919012fef27affd81eaef17a632.tar.bz2 | |
Steps towards systematization of test constraints in Tk test suite
FossilOrigin-Name: ec889b99065ab09997aa94dd70e28308cdcc5243
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 |