From f1b4b874ffe53d5f6720ea0133c98fb429d6813f Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 1 Sep 2004 10:00:03 +0000
Subject: Fix general error-case test. [Bug 1019085]

---
 ChangeLog       | 3 +++
 tests/bind.test | 7 +++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3b34dfe..6a5101a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-09-01  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
+	* tests/bind.test (bind-22.163): Fix inadvertent minor breakage
+	from TIP#165. [Bug 1019085]
+
 	* doc/toplevel.n, doc/loadTk.n: More spelling/abbreviation fixes
 	from Mikhail Kolesnitchenko.
 
diff --git a/tests/bind.test b/tests/bind.test
index 786e79a..11df00e 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: bind.test,v 1.16 2004/08/29 09:27:35 dkf Exp $
+# RCS: @(#) $Id: bind.test,v 1.17 2004/09/01 10:00:03 dkf Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -2218,7 +2218,7 @@ foreach check {
     {bind-22.161 <Reparent> %y {-y 2i} {[winfo pixels .b.f 2i]}}
     {bind-22.162 <Map> %y      {-y 2i} {{1 {<Map> event doesn't accept "-y" option}}}}
 
-    {bind-22.163 <Key> %k      {-xyz 1} {{1 {bad option "-xyz": must be -when, -above, -borderwidth, -button, -count, -delta, -detail, -focus, -height, -keycode, -keysym, -mode, -override, -place, -root, -rootx, -rooty, -sendevent, -serial, -state, -subwindow, -time, -warp, -width, -window, -x, or -y}}}}
+    {bind-22.163 <Key> %k      {-xyz 1} {{1 {bad option "-xyz": must be -when, -above, -borderwidth, -button, -count, -data, -delta, -detail, -focus, -height, -keycode, -keysym, -mode, -override, -place, -root, -rootx, -rooty, -sendevent, -serial, -state, -subwindow, -time, -warp, -width, -window, -x, or -y}}}}
 } {
     lassign $check name event substitution generator result
     test $name "HandleEventGenerate: options $event $generator" {
@@ -2231,6 +2231,9 @@ foreach check {
 	set x
     } [eval set x $result]
 }
+# Note that the -data option is tested in bind-32.* because it has
+# more demanding requirements in memory handling
+
 test bind-23.1 {GetVirtualEventUid procedure} {
     list [catch {event info <<asd} msg] $msg
 } {1 {virtual event "<<asd" is badly formed}}
-- 
cgit v0.12