summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog3
-rw-r--r--tests/bind.test7
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}}