summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/event.test4
-rw-r--r--tests/visual_bb.test11
2 files changed, 11 insertions, 4 deletions
diff --git a/tests/event.test b/tests/event.test
index 9637acd..92a4396 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: event.test,v 1.10 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: event.test,v 1.11 2002/07/14 18:31:48 dgp Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -650,7 +650,7 @@ test event-triple-click-drag-1.1 { Triple click and drag across lines in
destroy .t
-unset keypress_lookup
+unset -nocomplain keypress_lookup
rename _init_keypress_lookup {}
rename _keypress_lookup {}
rename _keypress {}
diff --git a/tests/visual_bb.test b/tests/visual_bb.test
index 5d99d3b..4520a8c 100644
--- a/tests/visual_bb.test
+++ b/tests/visual_bb.test
@@ -6,7 +6,7 @@
# at the window to make sure it appears as expected. Individual tests
# are kept in separate ".tcl" files in this directory.
#
-# RCS: @(#) $Id: visual_bb.test,v 1.6 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: visual_bb.test,v 1.7 2002/07/14 18:31:48 dgp Exp $
package require tcltest 2.1
namespace import -force tcltest::configure
@@ -40,6 +40,11 @@ proc lpr {c args} {
exec lpr <<[eval [list $c postscript] $args]
}
+proc end {} {
+ cleanupTests
+ set ::EndOfVisualTests 1
+}
+
test 1.1 "running visual tests" {userInteraction} {
#-------------------------------------------------------
# The code below create the main window, consisting of a
@@ -61,7 +66,7 @@ test 1.1 "running visual tests" {userInteraction} {
menubutton .menu.file -text "File" -menu .menu.file.m
menu .menu.file.m
- .menu.file.m add command -label "Quit" -command cleanupTests
+ .menu.file.m add command -label "Quit" -command end
menubutton .menu.group1 -text "Group 1" -menu .menu.group1.m
menu .menu.group1.m
@@ -109,4 +114,6 @@ test 1.1 "running visual tests" {userInteraction} {
if {![testConstraint userInteraction]} {
cleanupTests
+} else {
+ vwait EndOfVisualTests
}