From 2e111650d22e90af7843a8c343a87d136ea8a409 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sun, 14 Jul 2002 18:31:47 +0000
Subject:         * tests/event.test:     Fixes to enable testing of only
 userInteraction         * tests/visual_bb.test: tests.

---
 ChangeLog            |  3 +++
 tests/event.test     |  4 ++--
 tests/visual_bb.test | 11 +++++++++--
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 65f8d9e..2a74420 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-07-14  Don Porter <dgp@users.sf.net>
 
+	* tests/event.test:	Fixes to enable testing of only userInteraction
+	* tests/visual_bb.test:	tests.
+
 	* README:		Bumped HEAD to version 8.4b2 in order to 
 	* generic/tk.h:		distinguish it from the 8.4b1 release.
 	* unix/configure*:	Also extended LOCALES to cover all message
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
 }
-- 
cgit v0.12