1 files changed, 18 insertions, 18 deletions
diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index 192bff4..96ddce3 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -1,9 +1,9 @@
 # This file is a Tcl script to test entry widgets in Tk.  It is
 # organized in the standard fashion for Tcl tests.
 #
-# Copyright (c) 1994 The Regents of the University of California.
-# Copyright (c) 1994-1997 Sun Microsystems, Inc.
-# Copyright (c) 1998-1999 by Scriptics Corporation.
+# Copyright © 1994 The Regents of the University of California.
+# Copyright © 1994-1997 Sun Microsystems, Inc.
+# Copyright © 1998-1999 Scriptics Corporation.
 # All rights reserved.
 
 package require tcltest 2.2
@@ -34,7 +34,7 @@ test panedwindow-1.3 {configuration options: -bd (good)} -body {
 } -result {4 4}
 test panedwindow-1.4 {configuration options: -bd (bad)} -body {
     .p configure -bd badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.5 {configuration options: -bg (good)} -body {
     .p configure -bg #ff0000
     list [lindex [.p configure -bg] 4] [.p cget -bg]
@@ -52,7 +52,7 @@ test panedwindow-1.7 {configuration options: -borderwidth (good)} -body {
 } -result {1 1}
 test panedwindow-1.8 {configuration options: -borderwidth (bad)} -body {
     .p configure -borderwidth badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.9 {configuration options: -cursor (good)} -body {
     .p configure -cursor arrow
     list [lindex [.p configure -cursor] 4] [.p cget -cursor]
@@ -70,7 +70,7 @@ test panedwindow-1.11 {configuration options: -handlesize (good)} -body {
 } -result {20 20}
 test panedwindow-1.12 {configuration options: -handlesize (bad)} -body {
     .p configure -handlesize badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.13 {configuration options: -height (good)} -body {
     .p configure -height 20
     list [lindex [.p configure -height] 4] [.p cget -height]
@@ -79,7 +79,7 @@ test panedwindow-1.13 {configuration options: -height (good)} -body {
 } -result {20 20}
 test panedwindow-1.14 {configuration options: -height (bad)} -body {
     .p configure -height badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance or "" but got "badValue"}
 test panedwindow-1.15 {configuration options: -opaqueresize (good)} -body {
     .p configure -opaqueresize true
     list [lindex [.p configure -opaqueresize] 4] [.p cget -opaqueresize]
@@ -115,16 +115,16 @@ test panedwindow-1.21 {configuration options: -proxyborderwidth (good)} -body {
 } -result {1.3 1.3}
 test panedwindow-1.22 {configuration options: -proxyborderwidth (bad)} -body {
     .p configure -proxyborderwidth badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.23 {configuration options: -proxyrelief (good)} -body {
     .p configure -proxyrelief groove
     list [lindex [.p configure -proxyrelief] 4] [.p cget -proxyrelief]
 } -cleanup {
     .p configure -proxyrelief [lindex [.p configure -proxyrelief] 3]
 } -result {groove groove}
-test panedwindow-1.24 {configuration options: -proxyrelief (bad)} -body {
+test panedwindow-1.24 {configuration options: -proxyrelief (bad)} -constraints needsTcl87 -body {
     .p configure -proxyrelief 1.5
-} -returnCodes error -result {bad relief "1.5": must be flat, groove, raised, ridge, solid, or sunken}
+} -returnCodes error -result {bad relief "1.5": must be flat, groove, raised, ridge, solid, sunken, or ""}
 test panedwindow-1.25 {configuration options: -relief (good)} -body {
     .p configure -relief groove
     list [lindex [.p configure -relief] 4] [.p cget -relief]
@@ -151,7 +151,7 @@ test panedwindow-1.29 {configuration options: -sashpad (good)} -body {
 } -result {1 1}
 test panedwindow-1.30 {configuration options: -sashpad (bad)} -body {
     .p configure -sashpad badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.31 {configuration options: -sashrelief (good)} -body {
     .p configure -sashrelief groove
     list [lindex [.p configure -sashrelief] 4] [.p cget -sashrelief]
@@ -169,7 +169,7 @@ test panedwindow-1.33 {configuration options: -sashwidth (good)} -body {
 } -result {10 10}
 test panedwindow-1.34 {configuration options: -sashwidth (bad)} -body {
     .p configure -sashwidth badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.35 {configuration options: -showhandle (good)} -body {
     .p configure -showhandle true
     list [lindex [.p configure -showhandle] 4] [.p cget -showhandle]
@@ -187,7 +187,7 @@ test panedwindow-1.37 {configuration options: -width (good)} -body {
 } -result {402 402}
 test panedwindow-1.38 {configuration options: -width (bad)} -body {
     .p configure -width badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance or "" but got "badValue"}
 
 test panedwindow-1.39 {configuration options: -after (good)} -body {
     .p paneconfigure .b -after .c
@@ -218,7 +218,7 @@ test panedwindow-1.43 {configuration options: -height (good)} -body {
 } -result {10 10}
 test panedwindow-1.44 {configuration options: -height (bad)} -body {
     .p paneconfigure .b -height badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance or "" but got "badValue"}
 test panedwindow-1.45 {configuration options: -hide (good)} -body {
     .p paneconfigure .b -hide false
     list [lindex [.p paneconfigure .b -hide] 4] \
@@ -238,7 +238,7 @@ test panedwindow-1.47 {configuration options: -minsize (good)} -body {
 } -result {10 10}
 test panedwindow-1.48 {configuration options: -minsize (bad)} -body {
     .p paneconfigure .b -minsize badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.49 {configuration options: -padx (good)} -body {
     .p paneconfigure .b -padx 1.3
     list [lindex [.p paneconfigure .b -padx] 4] \
@@ -248,7 +248,7 @@ test panedwindow-1.49 {configuration options: -padx (good)} -body {
 } -result {1 1}
 test panedwindow-1.50 {configuration options: -padx (bad)} -body {
     .p paneconfigure .b -padx badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.51 {configuration options: -pady (good)} -body {
     .p paneconfigure .b -pady 1.3
     list [lindex [.p paneconfigure .b -pady] 4] \
@@ -258,7 +258,7 @@ test panedwindow-1.51 {configuration options: -pady (good)} -body {
 } -result {1 1}
 test panedwindow-1.52 {configuration options: -pady (bad)} -body {
     .p paneconfigure .b -pady badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance but got "badValue"}
 test panedwindow-1.53 {configuration options: -sticky (good)} -body {
     .p paneconfigure .b -sticky nsew
     list [lindex [.p paneconfigure .b -sticky] 4] \
@@ -288,7 +288,7 @@ test panedwindow-1.57 {configuration options: -width (good)} -body {
 } -result {10 10}
 test panedwindow-1.58 {configuration options: -width (bad)} -body {
     .p paneconfigure .b -width badValue
-} -returnCodes error -result {bad screen distance "badValue"}
+} -returnCodes error -result {expected screen distance or "" but got "badValue"}
 deleteWindows