Update to tcltest2

FossilOrigin-Name: cdf26379fa9c4a10c78d9e8e3621b1f3a829ba11

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