head	1.7;
access;
symbols
	core-8-5-9:1.6
	core-8-5-8:1.6
	macosx-cocoa-merge:1.7
	macosx-cocoa-premerge:1.7
	macosx-carbon-freeze:1.7
	core-8-5-7:1.6
	core-8-5-6:1.6
	core-8-6-b1:1.7
	core-8-6-a3:1.7
	core-8-5-5:1.6
	core-8-6-a2:1.7
	core-8-5-4:1.6
	core-8-5-3:1.6
	core-8-6-a1:1.6
	core-8-4-19:1.4
	core-8-5-branch:1.6.0.4
	core-8-5-2:1.6
	core-8-4-18:1.4
	core-8-5-1:1.6
	core-8-4-17:1.4
	core-8-5-0:1.6
	core-8-5-b3:1.6
	core-8-5-b2:1.6
	core-8-4-16:1.4
	core-8-5-b1:1.6
	core-stablilizer-merge:1.6
	core-stabilizer-branch:1.6.0.2
	core-stabilizer-merge:1.6
	core-8-4-15:1.4
	core-8-5-a6:1.6
	core-8-5-a5:1.6
	core-8-4-14:1.4
	core-8-5-a4:1.6
	core-8-4-13:1.4
	core-8-4-12:1.4
	core-8-4-11:1.4
	core-8-5-a3:1.6
	core-8-4-10:1.4
	core-8-4-9-branch:1.4.0.4
	core-8-5-a2:1.6
	core-8-4-9:1.4
	core-8-4-8:1.4
	core-8-4-7:1.4
	core-8-5-a1:1.5
	core-8-4-6:1.4
	core-8-4-5:1.4
	mistachkin-dev-branch:1.5.0.2
	core-8-4-4:1.4
	core-8-4-3:1.4
	core-8-4-branch:1.4.0.2
	core-8-4-2:1.4
	core-8-4-1:1.4
	core-8-3-5:1.3
	core-8-4-0:1.4
	macosx-8-4-merge-2002-08-31-trunk:1.4
	macosx-8-4-premerge-2002-08-31-branch:1.3.18.1
	macosx-8-4-premerge-2002-08-31-trunk:1.4
	macosx-8-4-merge-2002-08-30-branch:1.3.18.1
	macosx-8-4-merge-2002-08-30-trunk:1.4
	macosx-8-4-merge-2002-08-20-branch:1.3.18.1
	macosx-8-4-merge-2002-08-20-trunk:1.4
	core-8-4-b2:1.4
	core-8-4-b1:1.3
	macosx-premerge-6-9-02:1.3
	core-8-4-a4:1.3
	core-8-3-4:1.3
	macosx-8-4-branch:1.3.0.18
	macosx-8-4-branchpoint:1.3
	core-8-4-a3:1.3
	core-8-3-3:1.3
	dgp-privates-into-namespace:1.3.0.16
	tclpro-1-5-0:1.3
	core-8-4-win-speedup:1.3.0.14
	core-8-4-a2:1.3
	tclpro-1-4-1:1.3
	tclpro-1-4-0:1.3
	core-8-3-2:1.3
	ajuba-ajuba2-2-1-base:1.3
	ajuba-ajuba2-2-0:1.3
	core-8-4-a1:1.3
	core-8-3-1-branch:1.3.0.12
	core-8-3-1:1.3
	scriptics-sc-2-0-b5:1.3
	scriptics-sc-2-0-fixed:1.3
	scriptics-sc-2-0-b2:1.3
	scriptics-sc-2-0-b1:1.3
	core-8-3-0:1.3
	core-8-3-b2:1.3
	core-8-3-b1:1.3
	scriptics-sc-1-1:1.3
	scriptics-sc-1-1-b1:1.3
	core-8-2-3:1.3
	scriptics-sc-1-1-branch:1.3.0.10
	scriptics-sc-1-1-base:1.3
	scriptics-sc-1-0:1.3
	scriptics-sc-1-0-branch:1.3.0.8
	scriptics-sc-1-0-base:1.3
	core-8-2-2:1.3
	core-8-2-1:1.3
	scriptics-bc-1-0-b1:1.3
	core-8-2-1-branch:1.3.0.6
	scriptics-tclpro-1-3-0:1.3
	core-8-2-0:1.3
	core-8-2-b3-branch:1.3.0.4
	core-8-2-b3-base:1.3
	scriptics-tclpro-1-3-b4:1.3
	core-8-2-b2:1.3
	scriptics-tclpro-1-3-b3:1.3
	core-8-2-b1:1.3
	scriptics-tclpro-1-3-b2:1.3
	merge-to-mainline-5/21/99:1.3
	scriptics-tclpro-1-3-b2-branch:1.3.0.2
	core-8-1-1:1.3
	scriptics-tclpro-1-3-b1:1.3
	core-8-1-1-base:1.3
	core-8-1-0:1.3
	merge-to-mainline-4-29-99:1.3
	merge-to-mainline-4-23-99:1.3
	core-8-1-branch-old:1.1.0.4
	core-8-0-6-branch:1.2.0.6
	core-8-0-6-base:1.2
	core-8-0-5:1.2
	core-8-1-b3:1.1.4.4
	core-8-1-b2:1.1.4.2
	dev-8-1-stubs-branch:1.1.4.1.0.2
	dev-stubs-branch:1.2.0.4
	scriptics-tclpro-1-2:1.2
	scriptics-tclpro-1-2-b2:1.2
	core-8-1-merge-2/10/99:1.2
	core-8-0-5-branch:1.2.0.2
	core-8-0-5-base:1.2
	scriptics-tclpro-1-2-b1:1.2
	scriptics-tclpro-1-2-a1:1.2
	core-8-1-b1:1.1.4.1
	core-8-0-4:1.2
	core-8-1-a2:1.1
	core-8-0-2:1.1
	core-8-0-3:1.2;
locks; strict;
comment	@# @;


1.7
date	2008.08.03.15.28.53;	author aniap;	state Exp;
branches;
next	1.6;

1.6
date	2004.05.23.17.34.48;	author dkf;	state Exp;
branches;
next	1.5;

1.5
date	2003.04.01.21.06.20;	author dgp;	state Exp;
branches;
next	1.4;

1.4
date	2002.07.14.05.48.46;	author dgp;	state Exp;
branches;
next	1.3;

1.3
date	99.04.16.01.51.35;	author stanton;	state Exp;
branches
	1.3.18.1;
next	1.2;

1.2
date	98.09.14.18.23.45;	author stanton;	state Exp;
branches;
next	1.1;

1.1
date	98.04.01.09.58.09;	author rjohnson;	state Exp;
branches
	1.1.4.1;
next	;

1.1.4.1
date	98.09.30.02.18.32;	author stanton;	state Exp;
branches;
next	1.1.4.2;

1.1.4.2
date	99.03.11.18.50.43;	author hershey;	state Exp;
branches;
next	1.1.4.3;

1.1.4.3
date	99.03.24.01.16.40;	author hershey;	state Exp;
branches;
next	1.1.4.4;

1.1.4.4
date	99.03.24.02.54.35;	author hershey;	state Exp;
branches;
next	;

1.3.18.1
date	2002.08.20.20.27.13;	author das;	state Exp;
branches;
next	;


desc
@@


1.7
log
@Update to tcltest2
@
text
@# This file is a Tcl script to test the procedures in the file
# tkCmds.c.  It is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1996 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @@(#) $Id: cmds.test,v 1.6 2004/05/23 17:34:48 dkf Exp $

package require tcltest 2.2
eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::test

update

test cmds-1.1 {tkwait visibility, argument errors} -body {
    tkwait visibility
} -returnCodes {error} -result {wrong # args: should be "tkwait variable|visibility|window name"}
test cmds-1.2 {tkwait visibility, argument errors} -body {
    tkwait visibility foo bar
} -returnCodes {error} -result {wrong # args: should be "tkwait variable|visibility|window name"}
test cmds-1.3 {tkwait visibility, argument errors} -body {
    tkwait visibility bad_window
} -returnCodes {error} -result {bad window path name "bad_window"}
test cmds-1.4 {tkwait visibility, waiting for window to be mapped} -setup {
    button .b -text "Test"
    set x init
} -body {
    after 100 {set x delay; place .b -x 0 -y 0}
    tkwait visibility .b
    return $x
} -cleanup {
    destroy .b
} -result {delay}
test cmds-1.5 {tkwait visibility, window gets deleted} -setup {
    frame .f
    button .f.b -text "Test"
    pack .f.b
    set x init
} -body {
    after 100 {set x deleted; destroy .f}
    tkwait visibility .f.b
} -returnCodes {error} -result {window ".f.b" was deleted before its visibility changed} 
test cmds-1.6 {tkwait visibility, window gets deleted} -setup {
    frame .f
    button .f.b -text "Test"
    pack .f.b
    set x init
} -body {
    after 100 {set x deleted; destroy .f}
    catch {tkwait visibility .f.b}
    return $x
} -cleanup {
    destroy .f
} -result {deleted}


# cleanup
cleanupTests
return

@


1.6
log
@First step towards improving test style.  Also start using Tcl 8.5 features.
@
text
@d8 1
a8 1
# RCS: @@(#) $Id: cmds.test,v 1.5 2003/04/01 21:06:20 dgp Exp $
d10 1
a10 1
package require tcltest 2.1
d13 1
d17 10
a26 10
test cmds-1.1 {tkwait visibility, argument errors} {
    list [catch {tkwait visibility} msg] $msg
} {1 {wrong # args: should be "tkwait variable|visibility|window name"}}
test cmds-1.2 {tkwait visibility, argument errors} {
    list [catch {tkwait visibility foo bar} msg] $msg
} {1 {wrong # args: should be "tkwait variable|visibility|window name"}}
test cmds-1.3 {tkwait visibility, argument errors} {
    list [catch {tkwait visibility bad_window} msg] $msg
} {1 {bad window path name "bad_window"}}
test cmds-1.4 {tkwait visibility, waiting for window to be mapped} {
d29 1
d32 2
d35 2
a36 3
    set x
} {delay}
test cmds-1.5 {tkwait visibility, window gets deleted} {
d41 1
d43 15
a57 2
    list [catch {tkwait visibility .f.b} msg] $msg $x
} {1 {window ".f.b" was deleted before its visibility changed} deleted}
d62 1
@


1.5
log
@        * tests/all.tcl:                Made better use of a common
        * tests/constraints.tcl:        -loadfile to hold definitions
        * tests/*.test:                 common to all test files.
@
text
@d8 1
a8 1
# RCS: @@(#) $Id: cmds.test,v 1.4 2002/07/14 05:48:46 dgp Exp $
a44 13













@


1.4
log
@	* Completed conversion of Tk test suite to use tcltest.
@
text
@d8 1
a8 1
# RCS: @@(#) $Id: cmds.test,v 1.3 1999/04/16 01:51:35 stanton Exp $
d11 1
a11 4
namespace import -force tcltest::configure
namespace import -force tcltest::testsDirectory
configure -testdir [file join [pwd] [file dirname [info script]]]
configure -loadfile [file join [testsDirectory] constraints.tcl]
d43 1
a43 1
::tcltest::cleanupTests
@


1.3
log
@* Merged 8.1 branch into the main trunk
@
text
@d8 1
a8 1
# RCS: @@(#) $Id$
d10 6
a15 3
if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}
a16 2
eval destroy [winfo child .]
wm geometry . {}
@


1.3.18.1
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d10 3
a12 6
package require tcltest 2.1
namespace import -force tcltest::configure
namespace import -force tcltest::testsDirectory
configure -testdir [file join [pwd] [file dirname [info script]]]
configure -loadfile [file join [testsDirectory] constraints.tcl]
tcltest::loadTestedCommands
d14 2
@


1.2
log
@Replaced SCCS strings, fixed binary files
@
text
@d5 2
a6 3
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
d10 2
a11 2
if {[string compare test [info procs test]] == 1} {
    source defs
d43 17
@


1.1
log
@Initial revision
@
text
@d9 1
a9 1
# SCCS: @@(#) cmds.test 1.1 96/03/14 13:25:24
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d9 1
a9 1
# RCS: @@(#) $Id: cmds.test,v 1.2 1998/09/14 18:23:45 stanton Exp $
@


1.1.4.2
log
@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.
@
text
@a4 2
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
d6 4
a9 1
# RCS: @@(#) $Id: cmds.test,v 1.1.4.1 1998/09/30 02:18:32 stanton Exp $
d11 2
a12 2
if {[lsearch [namespace children] ::test] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
a43 4

# cleanup
::test::cleanupTests
return
@


1.1.4.3
log
@- changed ::test to ::tcltest
- made many tests more atomic (still more work to do here)
- defs.tcl is now identicle for tcl and tk
@
text
@d8 1
a8 1
# RCS: @@(#) $Id: cmds.test,v 1.1.4.2 1999/03/11 18:50:43 hershey Exp $
d10 1
a10 1
if {[lsearch [namespace children] ::tcltest] == -1} {
d45 1
a45 1
::tcltest::cleanupTests
a46 12












@


1.1.4.4
log
@lint:  changed a tcltest namespace variable name from tmpDir to
       workingDir.
changes:  made more tests atomic.
README is now updated to match new test suite features.
@
text
@d8 1
a8 1
# RCS: @@(#) $Id: cmds.test,v 1.1.4.3 1999/03/24 01:16:40 hershey Exp $
a46 1

@


