summaryrefslogtreecommitdiffstats
path: root/tests/canvImg.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/canvImg.test')
-rw-r--r--tests/canvImg.test14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/canvImg.test b/tests/canvImg.test
index e2e9e58..0acc735 100644
--- a/tests/canvImg.test
+++ b/tests/canvImg.test
@@ -2,9 +2,9 @@
# which implement canvas "image" items. 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-1999 by Scriptics Corporation.
+# Copyright © 1994 The Regents of the University of California.
+# Copyright © 1994-1996 Sun Microsystems, Inc.
+# Copyright © 1998-1999 Scriptics Corporation.
# All rights reserved.
package require tcltest 2.2
@@ -79,12 +79,12 @@ test canvImg-2.4 {CreateImage procedure} -body {
.c create image xyz 40
} -cleanup {
.c delete all
-} -returnCodes {error} -result {bad screen distance "xyz"}
+} -returnCodes {error} -result {expected screen distance but got "xyz"}
test canvImg-2.5 {CreateImage procedure} -body {
.c create image 50 qrs
} -cleanup {
.c delete all
-} -returnCodes {error} -result {bad screen distance "qrs"}
+} -returnCodes {error} -result {expected screen distance but got "qrs"}
test canvImg-2.6 {CreateImage procedure} -constraints testImageType -body {
.c create image 50 50 -gorp foo
} -cleanup {
@@ -109,7 +109,7 @@ test canvImg-3.2 {ImageCoords procedure} -constraints testImageType -setup {
} -cleanup {
.c delete all
image delete foo
-} -returnCodes {error} -result {bad screen distance "dumb"}
+} -returnCodes {error} -result {expected screen distance but got "dumb"}
test canvImg-3.3 {ImageCoords procedure} -constraints testImageType -setup {
image create test foo
} -body {
@@ -119,7 +119,7 @@ test canvImg-3.3 {ImageCoords procedure} -constraints testImageType -setup {
} -cleanup {
.c delete all
image delete foo
-} -returnCodes {error} -result {bad screen distance "dumb0"}
+} -returnCodes {error} -result {expected screen distance but got "dumb0"}
test canvImg-3.4 {ImageCoords procedure} -constraints testImageType -setup {
image create test foo
} -body {