Fix frame-2.8 for ![info exists env(DISPLAY)]

2 files changed, 9 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index 9fa4b20..7dc2593 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-06-06  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+	* tests/frame.test:     Fix frame-2.8 for ![info exists env(DISPLAY)]
+
 2004-06-04  Don Porter  <dgp@users.sourceforge.net>
 
 	* tests/filebox.test:	A few typo corrections in dkf's recent
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