summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/bind.test32
1 files changed, 3 insertions, 29 deletions
diff --git a/tests/bind.test b/tests/bind.test
index 9f0f941..811b014 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -7,9 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: bind.test,v 1.21 2008/07/25 13:40:15 aniap Exp $
+# RCS: @(#) $Id: bind.test,v 1.22 2008/07/25 23:47:15 aniap Exp $
-package require tcltest 2.1
+package require tcltest 2.2
+namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
tk useinputmethods 0
@@ -3177,7 +3178,6 @@ test bind-22.18 {HandleEventGenerate} -body {
event gen . <a> -root 98765
} -returnCodes error -result {bad window name/identifier "98765"}
-# previously -run with foreach
test bind-22.19 {HandleEventGenerate: options <Configure> -above .xyz} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
@@ -5376,7 +5376,6 @@ test bind-25.4 {ParseEventDescription} -body {
} -result {<<Shift-Paste>>}
# Assorted error cases in event sequence parsing
-# previously -run with foreach
test bind-25.5 {ParseEventDescription procedure error cases} -body {
bind .t \x7 {puts hi}
} -returnCodes error -result {bad ASCII character 0x7}
@@ -5739,7 +5738,6 @@ test bind-26.3 {event names} -setup {
destroy .t.f
} -result {<Destroy> destroyed}
-# previously -run with foreach
test bind-26.4 {event names: Motion} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
@@ -5952,14 +5950,6 @@ test bind-26.18 {event names: Deactivate} -setup {
# These events require an extra argument to [event generate]
-package require tcltest 2.1
-eval tcltest::configure $argv
-tcltest::loadTestedCommands
-tk useinputmethods 0
-
-toplevel .t -width 100 -height 50
-wm geom .t +0+0
-update idletasks
test bind-26.19 {event names: Circulate} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
@@ -6197,20 +6187,6 @@ test bind-28.8 {keysym names} -setup {
destroy .t.f
} -result {X x {keysym X}}
-# test bind-29.1 {dummy test to help ensure proper numbering} -body {}
-
-#test bind-29.2-6 {GetKeySym procedure} -setup { ;#nonP
-# frame .t.f -class Test -width 150 -height 100
-# pack .t.f
-# focus -force .t.f
-# update
-#} -body {
-# set x nothing
-# event gen .t.f <KeyPress> -keysym a -state 0
-# set x
-#} -cleanup {
-# destroy .t.f
-#} -result {a}
test bind-29.1 {Tk_BackgroundError procedure} -setup {
proc bgerror msg {
@@ -6401,8 +6377,6 @@ test bind-31.7 {virtual event user_data field - unshared, asynch} -setup {
} -result {{} {} {TestUserData >b<}}
-destroy .t
-
# cleanup
cleanupTests
return