1 files changed, 10 insertions, 10 deletions
diff --git a/tests/message.test b/tests/message.test
index 2ca6921..a547e4e 100644
--- a/tests/message.test
+++ b/tests/message.test
@@ -1,9 +1,9 @@
 # This file is a Tcl script to test out the "message" command
 # of Tk.  It is organized in the standard fashion for Tcl tests.
 #
-# Copyright (c) 1994 The Regents of the University of California.
-# Copyright (c) 1994-1996 Sun Microsystems, Inc.
-# Copyright (c) 1998-2000 by Ajuba Solutions.
+# Copyright © 1994 The Regents of the University of California.
+# Copyright © 1994-1996 Sun Microsystems, Inc.
+# Copyright © 1998-2000 by Ajuba Solutions.
 # All rights reserved.
 
 package require tcltest 2.2
@@ -41,7 +41,7 @@ test message-1.3 {configuration option: "aspect"} -setup {
     .m cget -aspect
 } -cleanup {
     destroy .m
-} -result {3}
+} -result 3
 test message-1.4 {configuration option: "aspect"} -setup {
     message .m -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}
     pack .m
@@ -81,7 +81,7 @@ test message-1.7 {configuration option: "bd"} -setup {
     .m cget -bd
 } -cleanup {
     destroy .m
-} -result {4}
+} -result 4
 test message-1.8 {configuration option: "bd"} -setup {
     message .m -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}
     pack .m
@@ -121,7 +121,7 @@ test message-1.11 {configuration option: "borderwidth"} -setup {
     .m cget -borderwidth
 } -cleanup {
     destroy .m
-} -result {1}
+} -result 1
 test message-1.12 {configuration option: "borderwidth"} -setup {
     message .m -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}
     pack .m
@@ -261,7 +261,7 @@ test message-1.25 {configuration option: "highlightthickness"} -setup {
     .m cget -highlightthickness
 } -cleanup {
     destroy .m
-} -result {2}
+} -result 2
 test message-1.26 {configuration option: "highlightthickness"} -setup {
     message .m -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}
     pack .m
@@ -383,7 +383,7 @@ test message-1.37 {configuration option: "width"} -setup {
     .m cget -width
 } -cleanup {
     destroy .m
-} -result {2}
+} -result 2
 test message-1.38 {configuration option: "width"} -setup {
     message .m -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}
     pack .m
@@ -452,7 +452,7 @@ test message-3.5 {MessageWidgetObjCmd procedure, "configure"} -setup {
     llength [.m configure]
 } -cleanup {
     destroy .m
-} -result {21}
+} -result 21
 test message-3.6 {MessageWidgetObjCmd procedure, "configure"} -setup {
     message .m
 } -body {
@@ -468,7 +468,7 @@ test message-3.7 {MessageWidgetObjCmd procedure, "configure"} -setup {
     lindex [.m configure -bd] 4
 } -cleanup {
     destroy .m
-} -result {4}
+} -result 4
 
 test message-4.1 {Bug [5d991b822e]} {
     # Want this not to segfault, or write to variable with empty name