head	1.6;
access;
symbols
	core-8-5-9:1.5
	core-8-5-8:1.5
	macosx-cocoa-merge:1.6
	macosx-cocoa-premerge:1.6
	macosx-carbon-freeze:1.6
	core-8-5-7:1.5
	core-8-5-6:1.5
	core-8-6-b1:1.6
	core-8-6-a3:1.6
	core-8-5-5:1.5
	core-8-6-a2:1.6
	core-8-5-4:1.5
	core-8-5-3:1.5
	core-8-6-a1:1.5
	core-8-4-19:1.3
	core-8-5-branch:1.5.0.4
	core-8-5-2:1.5
	core-8-4-18:1.3
	core-8-5-1:1.5
	core-8-4-17:1.3
	core-8-5-0:1.5
	core-8-5-b3:1.5
	core-8-5-b2:1.5
	core-8-4-16:1.3
	core-8-5-b1:1.5
	core-stablilizer-merge:1.5
	core-stabilizer-branch:1.5.0.2
	core-stabilizer-merge:1.5
	core-8-4-15:1.3
	core-8-5-a6:1.5
	core-8-5-a5:1.5
	core-8-4-14:1.3
	core-8-5-a4:1.5
	core-8-4-13:1.3
	core-8-4-12:1.3
	core-8-4-11:1.3
	core-8-5-a3:1.5
	core-8-4-10:1.3
	core-8-4-9-branch:1.3.0.4
	core-8-5-a2:1.5
	core-8-4-9:1.3
	core-8-4-8:1.3
	core-8-4-7:1.3
	core-8-5-a1:1.4
	core-8-4-6:1.3
	core-8-4-5:1.3
	mistachkin-dev-branch:1.4.0.2
	core-8-4-4:1.3
	core-8-4-3:1.3
	core-8-4-branch:1.3.0.2
	core-8-4-2:1.3
	core-8-4-1:1.3
	core-8-3-5:1.2
	core-8-4-0:1.3
	macosx-8-4-merge-2002-08-31-trunk:1.3
	macosx-8-4-premerge-2002-08-31-branch:1.2.18.1
	macosx-8-4-premerge-2002-08-31-trunk:1.3
	macosx-8-4-merge-2002-08-30-branch:1.2.18.1
	macosx-8-4-merge-2002-08-30-trunk:1.3
	macosx-8-4-merge-2002-08-20-branch:1.2.18.1
	macosx-8-4-merge-2002-08-20-trunk:1.3
	core-8-4-b2:1.3
	core-8-4-b1:1.2
	macosx-premerge-6-9-02:1.2
	core-8-4-a4:1.2
	core-8-3-4:1.2
	macosx-8-4-branch:1.2.0.18
	macosx-8-4-branchpoint:1.2
	core-8-4-a3:1.2
	core-8-3-3:1.2
	dgp-privates-into-namespace:1.2.0.16
	tclpro-1-5-0:1.2
	core-8-4-win-speedup:1.2.0.14
	core-8-4-a2:1.2
	tclpro-1-4-1:1.2
	tclpro-1-4-0:1.2
	core-8-3-2:1.2
	ajuba-ajuba2-2-1-base:1.2
	ajuba-ajuba2-2-0:1.2
	core-8-4-a1:1.2
	core-8-3-1-branch:1.2.0.12
	core-8-3-1:1.2
	scriptics-sc-2-0-b5:1.2
	scriptics-sc-2-0-fixed:1.2
	scriptics-sc-2-0-b2:1.2
	scriptics-sc-2-0-b1:1.2
	core-8-3-0:1.2
	core-8-3-b2:1.2
	core-8-3-b1:1.2
	scriptics-sc-1-1:1.2
	scriptics-sc-1-1-b1:1.2
	core-8-2-3:1.2
	scriptics-sc-1-1-branch:1.2.0.10
	scriptics-sc-1-1-base:1.2
	scriptics-sc-1-0:1.2
	scriptics-sc-1-0-branch:1.2.0.8
	scriptics-sc-1-0-base:1.2
	core-8-2-2:1.2
	core-8-2-1:1.2
	scriptics-bc-1-0-b1:1.2
	core-8-2-1-branch:1.2.0.6
	scriptics-tclpro-1-3-0:1.2
	core-8-2-0:1.2
	core-8-2-b3-branch:1.2.0.4
	core-8-2-b3-base:1.2
	scriptics-tclpro-1-3-b4:1.2
	core-8-2-b2:1.2
	scriptics-tclpro-1-3-b3:1.2
	core-8-2-b1:1.2
	scriptics-tclpro-1-3-b2:1.2
	merge-to-mainline-5/21/99:1.2
	scriptics-tclpro-1-3-b2-branch:1.2.0.2
	core-8-1-1:1.2
	scriptics-tclpro-1-3-b1:1.2
	core-8-1-1-base:1.2
	core-8-1-0:1.2
	merge-to-mainline-4-29-99:1.2
	merge-to-mainline-4-23-99:1.2
	core-8-1-branch-old:1.1.0.2
	core-8-1-b3:1.1.2.5
	core-8-1-b2:1.1.2.3
	dev-8-1-stubs-branch:1.1.2.2.0.2
	core-8-1-b1:1.1.2.2
	core-8-1-a2:1.1.2.1;
locks; strict;
comment	@# @;


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

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

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

1.3
date	2002.07.13.21.52.34;	author dgp;	state Exp;
branches;
next	1.2;

1.2
date	99.04.16.01.51.38;	author stanton;	state Exp;
branches
	1.2.18.1;
next	1.1;

1.1
date	98.09.29.00.25.50;	author stanton;	state dead;
branches
	1.1.2.1;
next	;

1.1.2.1
date	98.09.29.00.25.50;	author stanton;	state Exp;
branches;
next	1.1.2.2;

1.1.2.2
date	98.09.30.02.18.39;	author stanton;	state Exp;
branches;
next	1.1.2.3;

1.1.2.3
date	99.03.11.18.50.52;	author hershey;	state Exp;
branches;
next	1.1.2.4;

1.1.2.4
date	99.03.24.01.16.48;	author hershey;	state Exp;
branches;
next	1.1.2.5;

1.1.2.5
date	99.03.24.02.54.43;	author hershey;	state Exp;
branches;
next	;

1.2.18.1
date	2002.08.20.20.27.14;	author das;	state Exp;
branches;
next	;


desc
@@


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

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

test get-1.1 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor n
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {n}
test get-1.2 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor ne
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {ne}
test get-1.3 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor e
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {e}
test get-1.4 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor se
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {se}
test get-1.5 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor s
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {s}
test get-1.6 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor sw
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {sw}
test get-1.7 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor w
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {w}
test get-1.8 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor nw
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {nw}
test get-1.9 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor n
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {n}
test get-1.10 {Tk_GetAnchorFromObj} -setup {
    button .b
} -body {
    .b configure -anchor center
    .b cget -anchor
} -cleanup {
    destroy .b
} -result {center}
test get-1.11 {Tk_GetAnchorFromObj - error} -setup {
    button .b
} -body {
    .b configure -anchor unknown
} -cleanup {
    destroy .b
} -returnCodes {error} -result {bad anchor "unknown": must be n, ne, e, se, s, sw, w, nw, or center}


test get-2.1 {Tk_GetJustifyFromObj} -setup {
    button .b
} -body {
    .b configure -justify left
    .b cget -justify
} -cleanup {
    destroy .b
} -result {left}
test get-2.2 {Tk_GetJustifyFromObj} -setup {
    button .b
} -body {
    .b configure -justify right
    .b cget -justify
} -cleanup {
    destroy .b
} -result {right}
test get-2.3 {Tk_GetJustifyFromObj} -setup {
    button .b
} -body {
    .b configure -justify center
    .b cget -justify
} -cleanup {
    destroy .b
} -result {center}
test get-2.4 {Tk_GetJustifyFromObj - error} -setup {
    button .b
} -body {
    .b configure -justify stupid
} -cleanup {
    destroy .b
} -returnCodes {error} -result {bad justification "stupid": must be left, right, or center}

# cleanup
cleanupTests
return

@


1.5
log
@First step towards improving test style.  Also start using Tcl 8.5 features.
@
text
@d9 1
a9 1
# RCS: @@(#) $Id: get.test,v 1.4 2003/04/01 21:06:35 dgp Exp $
d11 1
a11 1
package require tcltest 2.1
d14 1
d16 3
a18 2
button .b
test get-1.1 {Tk_GetAnchorFromObj} {
d21 6
a26 2
} {n}
test get-1.2 {Tk_GetAnchorFromObj} {
d29 6
a34 2
} {ne}
test get-1.3 {Tk_GetAnchorFromObj} {
d37 6
a42 2
} {e}
test get-1.4 {Tk_GetAnchorFromObj} {
d45 6
a50 2
} {se}
test get-1.5 {Tk_GetAnchorFromObj} {
d53 6
a58 2
} {s}
test get-1.6 {Tk_GetAnchorFromObj} {
d61 6
a66 2
} {sw}
test get-1.7 {Tk_GetAnchorFromObj} {
d69 6
a74 2
} {w}
test get-1.8 {Tk_GetAnchorFromObj} {
d77 6
a82 2
} {nw}
test get-1.9 {Tk_GetAnchorFromObj} {
d85 6
a90 2
} {n}
test get-1.10 {Tk_GetAnchorFromObj} {
d93 15
a107 8
} {center}
test get-1.11 {Tk_GetAnchorFromObj - error} {
    list [catch {.b configure -anchor unknown} msg] $msg
} {1 {bad anchor "unknown": must be n, ne, e, se, s, sw, w, nw, or center}}

catch {destroy .b}
button .b
test get-2.1 {Tk_GetJustifyFromObj} {
d110 6
a115 2
} {left}
test get-2.2 {Tk_GetJustifyFromObj} {
d118 6
a123 2
} {right}
test get-2.3 {Tk_GetJustifyFromObj} {
d126 10
a135 4
} {center}
test get-2.4 {Tk_GetJustifyFromObj - error} {
    list [catch {.b configure -justify stupid} msg] $msg
} {1 {bad justification "stupid": must be left, right, or center}}
d140 1
@


1.4
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
@d9 1
a9 1
# RCS: @@(#) $Id: get.test,v 1.3 2002/07/13 21:52:34 dgp Exp $
a80 13













@


1.3
log
@	* Converted more files to tcltest and factored out common code.
@
text
@d9 1
a9 1
# RCS: @@(#) $Id: get.test,v 1.2 1999/04/16 01:51:38 stanton Exp $
d12 1
a12 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]
d79 1
a79 1
::tcltest::cleanupTests
@


1.2
log
@* Merged 8.1 branch into the main trunk
@
text
@d9 1
a9 1
# RCS: @@(#) $Id: get.test,v 1.1.2.5 1999/03/24 02:54:43 hershey Exp $
d11 6
a16 7
if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}

eval destroy [winfo children .]
wm geometry . {}
raise .
@


1.2.18.1
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d9 1
a9 1
# RCS: @@(#) $Id$
d11 7
a17 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
@


1.1
log
@file get.test was initially added on branch core-8-1-branch.
@
text
@d1 97
@


1.1.2.1
log
@initial tk8.1a2 version
@
text
@a0 81
# This file is a Tcl script to test out the procedures in the file
# tkGet.c.  It is organized in the standard fashion for Tcl
# white-box tests.
#
# Copyright (c) 1998 Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# SCCS: @@(#) get.test 1.1 97/12/24 16:16:50

if {[info procs test] != "test"} {
    source defs
}

eval destroy [winfo children .]
wm geometry . {}
raise .

button .b
test get-1.1 {Tk_GetAnchorFromObj} {
    .b configure -anchor n
    .b cget -anchor
} {n}
test get-1.2 {Tk_GetAnchorFromObj} {
    .b configure -anchor ne
    .b cget -anchor
} {ne}
test get-1.3 {Tk_GetAnchorFromObj} {
    .b configure -anchor e
    .b cget -anchor
} {e}
test get-1.4 {Tk_GetAnchorFromObj} {
    .b configure -anchor se
    .b cget -anchor
} {se}
test get-1.5 {Tk_GetAnchorFromObj} {
    .b configure -anchor s
    .b cget -anchor
} {s}
test get-1.6 {Tk_GetAnchorFromObj} {
    .b configure -anchor sw
    .b cget -anchor
} {sw}
test get-1.7 {Tk_GetAnchorFromObj} {
    .b configure -anchor w
    .b cget -anchor
} {w}
test get-1.8 {Tk_GetAnchorFromObj} {
    .b configure -anchor nw
    .b cget -anchor
} {nw}
test get-1.9 {Tk_GetAnchorFromObj} {
    .b configure -anchor n
    .b cget -anchor
} {n}
test get-1.10 {Tk_GetAnchorFromObj} {
    .b configure -anchor center
    .b cget -anchor
} {center}
test get-1.11 {Tk_GetAnchorFromObj - error} {
    list [catch {.b configure -anchor unknown} msg] $msg
} {1 {bad anchor "unknown": must be n, ne, e, se, s, sw, w, nw, or center}}

catch {destroy .b}
button .b
test get-2.1 {Tk_GetJustifyFromObj} {
    .b configure -justify left
    .b cget -justify
} {left}
test get-2.2 {Tk_GetJustifyFromObj} {
    .b configure -justify right
    .b cget -justify
} {right}
test get-2.3 {Tk_GetJustifyFromObj} {
    .b configure -justify center
    .b cget -justify
} {center}
test get-2.4 {Tk_GetJustifyFromObj - error} {
    list [catch {.b configure -justify stupid} msg] $msg
} {1 {bad justification "stupid": must be left, right, or center}}
@


1.1.2.2
log
@Merged 8.0.3 changes into 8.1
@
text
@d10 1
a10 1
# RCS: @@(#) $Id$
@


1.1.2.3
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
@a5 2
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
d7 4
a10 1
# RCS: @@(#) $Id: get.test,v 1.1.2.2 1998/09/30 02:18:39 stanton Exp $
d12 2
a13 2
if {[lsearch [namespace children] ::test] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
a81 4

# cleanup
::test::cleanupTests
return
@


1.1.2.4
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
@d9 1
a9 1
# RCS: @@(#) $Id: get.test,v 1.1.2.3 1999/03/11 18:50:52 hershey Exp $
d11 1
a11 1
if {[lsearch [namespace children] ::tcltest] == -1} {
d83 1
a83 1
::tcltest::cleanupTests
a84 12












@


1.1.2.5
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
@d9 1
a9 1
# RCS: @@(#) $Id: get.test,v 1.1.2.4 1999/03/24 01:16:48 hershey Exp $
a84 1

@


