summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-12-07 21:22:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-12-07 21:22:19 (GMT)
commit4180597529a6eee5a39a5cd58cc6275e2dd232f3 (patch)
tree87ac100a5d0e0831f6d5c2f50e6ce0152414d675
parent544ebaae8d1a343421ff52251241f88af3e46ff8 (diff)
downloadtk-4180597529a6eee5a39a5cd58cc6275e2dd232f3.zip
tk-4180597529a6eee5a39a5cd58cc6275e2dd232f3.tar.gz
tk-4180597529a6eee5a39a5cd58cc6275e2dd232f3.tar.bz2
typos
-rw-r--r--tests/button.test8
-rw-r--r--tests/canvas.test4
2 files changed, 6 insertions, 6 deletions
diff --git a/tests/button.test b/tests/button.test
index d3f93d8..9d13ce4 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: button.test,v 1.19 2004/12/07 10:07:41 dkf Exp $
+# RCS: @(#) $Id: button.test,v 1.20 2004/12/07 21:22:19 dgp Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -115,14 +115,14 @@ foreach test {
set classname [winfo class $w]
if {$hasOption} {
test button-1.$i "configuration option $name for $classname" \
- -constraint testImageType -body "
+ -constraints testImageType -body "
$w configure $name [list $value]
lindex \[$w configure $name] 4
" -result $okResult
incr i
if {$badValue ne ""} {
test button-1.$i "configuration option $name for $classname" \
- -constraint testImageType \
+ -constraints testImageType \
-body [list $w configure $name $badValue] \
-returnCodes error -result $badResult
incr i
@@ -130,7 +130,7 @@ foreach test {
$w configure $name [lindex [$w configure $name] 3]
} else {
test button-1.$i "configuration option $name for $classname" \
- -constraint testImageType \
+ -constraints testImageType \
-body [list $w configure $name $value] \
-returnCodes error -result "unknown option \"$name\""
incr i
diff --git a/tests/canvas.test b/tests/canvas.test
index 323ebaa..489ba27 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-2000 Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: canvas.test,v 1.22 2004/12/07 10:07:41 dkf Exp $
+# RCS: @(#) $Id: canvas.test,v 1.23 2004/12/07 21:22:19 dgp Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -255,7 +255,7 @@ test canvas-9.1 {canvas id creation and deletion} -setup {
}] 0]
set x ""
-} {}
+} -result {}
test canvas-10.1 {find items using tag expressions} -setup {
catch {destroy .c}
canvas .c