diff options
| author | dgp <dgp@noemail.net> | 2002-07-14 18:31:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2002-07-14 18:31:46 (GMT) |
| commit | f379356501c427b98f96cd4b2ee4f834b15fb951 (patch) | |
| tree | dfbcb9903f222a7bc8d5b73a08fa79f5bfbe4372 /tests | |
| parent | ceb5e6c0462d8143c9a291d16b908095b7fc1872 (diff) | |
| download | tk-f379356501c427b98f96cd4b2ee4f834b15fb951.zip tk-f379356501c427b98f96cd4b2ee4f834b15fb951.tar.gz tk-f379356501c427b98f96cd4b2ee4f834b15fb951.tar.bz2 | |
* tests/event.test: Fixes to enable testing of only userInteraction
* tests/visual_bb.test: tests.
FossilOrigin-Name: d9d305209f01ed248174bb79929aa6f419dbb90d
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/event.test | 4 | ||||
| -rw-r--r-- | tests/visual_bb.test | 11 |
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 } |