diff options
Diffstat (limited to 'tests/panedwindow.test')
| -rw-r--r-- | tests/panedwindow.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/panedwindow.test b/tests/panedwindow.test index 9be6aae..f746719 100644 --- a/tests/panedwindow.test +++ b/tests/panedwindow.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: panedwindow.test,v 1.13 2004/05/03 19:16:11 hobbs Exp $ +# RCS: @(#) $Id: panedwindow.test,v 1.14 2004/05/23 17:34:49 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -40,7 +40,7 @@ foreach test { list [lindex [.p configure $name] 4] [.p cget $name] } [list [lindex $test 2] [lindex $test 2]] incr i - if {[lindex $test 3] != ""} { + if {[lindex $test 3] ne ""} { test panedwindow-1.$i {configuration options} { list [catch {.p configure $name [lindex $test 3]} msg] $msg } [list 1 [lindex $test 4]] @@ -66,7 +66,7 @@ foreach test { list [lindex [.p paneconfigure .b $name] 4] [.p panecget .b $name] } [list [lindex $test 2] [lindex $test 2]] incr i - if {[lindex $test 3] != ""} { + if {[lindex $test 3] ne ""} { test panedwindow-1.$i {configuration options} { list [catch {.p paneconfigure .b $name [lindex $test 3]} msg] $msg } [list 1 [lindex $test 4]] |