From 4180597529a6eee5a39a5cd58cc6275e2dd232f3 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 7 Dec 2004 21:22:19 +0000
Subject: typos

---
 tests/button.test | 8 ++++----
 tests/canvas.test | 4 ++--
 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
-- 
cgit v0.12