diff options
| author | hershey <hershey> | 1999-03-11 18:50:35 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-03-11 18:50:35 (GMT) |
| commit | 95793f0a86f9a589b52f49eee1af88cad60d3815 (patch) | |
| tree | 7ac15d9a4b9c10b48e56cb919ad0cab43610f7c5 /tests/focus.test | |
| parent | 69ee2609ee8597545759c164761f5ee1b2dc288a (diff) | |
| download | tk-95793f0a86f9a589b52f49eee1af88cad60d3815.zip tk-95793f0a86f9a589b52f49eee1af88cad60d3815.tar.gz tk-95793f0a86f9a589b52f49eee1af88cad60d3815.tar.bz2 | |
Updated the testsuite to use "test" namespace and commandline args
to control verbose level and which tests get run. Tests now work from
any working dir.
Diffstat (limited to 'tests/focus.test')
| -rw-r--r-- | tests/focus.test | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/tests/focus.test b/tests/focus.test index e8d7882..481848a 100644 --- a/tests/focus.test +++ b/tests/focus.test @@ -3,18 +3,18 @@ # standard fashion for Tcl tests. # # Copyright (c) 1994-1996 Sun Microsystems, Inc. +# Copyright (c) 1998-1999 by Scriptics Corporation. +# All rights reserved. # -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: focus.test,v 1.1.4.2 1998/12/10 03:43:54 stanton Exp $ +# RCS: @(#) $Id: focus.test,v 1.1.4.3 1999/03/11 18:50:48 hershey Exp $ if {$tcl_platform(platform) != "unix"} { + puts "skipping: Unix only tests..." return } -if {[info procs test] != "test"} { - source defs +if {[lsearch [namespace children] ::test] == -1} { + source [file join [pwd] [file dirname [info script]] defs.tcl] } eval destroy [winfo children .] @@ -635,3 +635,7 @@ test focus-6.2 {miscellaneous - embedded application in different process} {unix eval destroy [winfo children .] bind all <FocusIn> {} bind all <FocusOut> {} + +# cleanup +::test::cleanupTests +return |