summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2004-06-06 11:28:13 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2004-06-06 11:28:13 (GMT)
commit6942d1174b14dc8d29cb5be46707909e718e89c7 (patch)
treed2f35138ea70cadaa4597513ef9e217b990b561f /tests
parente714b0e05289940aa0261f2a715125eba685e7db (diff)
downloadtk-6942d1174b14dc8d29cb5be46707909e718e89c7.zip
tk-6942d1174b14dc8d29cb5be46707909e718e89c7.tar.gz
tk-6942d1174b14dc8d29cb5be46707909e718e89c7.tar.bz2
Fix frame-2.8 for ![info exists env(DISPLAY)]
Diffstat (limited to 'tests')
-rw-r--r--tests/frame.test9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/frame.test b/tests/frame.test
index 96ce0a4..75e77c8 100644
--- a/tests/frame.test
+++ b/tests/frame.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: frame.test,v 1.11 2004/06/04 19:55:31 dgp Exp $
+# RCS: @(#) $Id: frame.test,v 1.12 2004/06/06 11:28:14 patthoyts Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -187,9 +187,10 @@ test frame-2.8 {toplevel configuration options} haveDISPLAY {
catch {destroy .t}
toplevel .t -width 200 -height 100 -screen $env(DISPLAY)
wm geometry .t +0+0
- list [.t configure -screen] \
- [catch {.t configure -screen another} msg] $msg
-} [list [list -screen screen Screen {} $env(DISPLAY)] 1 {can't modify -screen option after widget is created}]
+ set cfg [string compare [.t configure -screen] \
+ "-screen screen Screen {} $env(DISPLAY)"]
+ list $cfg [catch {.t configure -screen another} msg] $msg
+} {0 1 {can't modify -screen option after widget is created}}
test frame-2.9 {toplevel configuration options} {
catch {destroy .t}
list [catch {toplevel .t -width 200 -height 100 -screen bogus} msg] $msg