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.11.21.33.17;	author aniap;	state Exp;
branches;
next	1.5;

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

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

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

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

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

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

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

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

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

1.1.2.5
date	99.03.24.02.54.54;	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 new object types in Tk.
# It is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @@(#) $Id: obj.test,v 1.5 2004/05/23 17:34:49 dkf Exp $

package require tcltest 2.2
namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands

test obj-1.1 {TkGetPixelsFromObj} -body {
} -result {}

test obj-2.1 {FreePixelInternalRep} -body {
} -result {}

test obj-3.1 {DupPixelInternalRep} -body {
} -result {}

test obj-4.1 {SetPixelFromAny} -body {
} -result {}


# cleanup
cleanupTests
return
@


1.5
log
@First step towards improving test style.  Also start using Tcl 8.5 features.
@
text
@d8 1
a8 1
# RCS: @@(#) $Id: obj.test,v 1.4 2003/04/01 21:06:47 dgp Exp $
d10 2
a11 1
package require tcltest 2.1
d15 2
a16 2
test obj-1.1 {TkGetPixelsFromObj} {
} {}
d18 2
a19 2
test obj-2.1 {FreePixelInternalRep} {
} {}
d21 2
a22 2
test obj-3.1 {DupPixelInternalRep} {
} {}
d24 2
a25 2
test obj-4.1 {SetPixelFromAny} {
} {}
a27 3

deleteWindows

@


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
@d8 1
a8 1
# RCS: @@(#) $Id: obj.test,v 1.3 2002/07/13 20:28:35 dgp Exp $
a32 14














@


1.3
log
@	* Converted more files to tcltest and factored out common code.
@
text
@d8 1
a8 1
# RCS: @@(#) $Id: obj.test,v 1.2 1999/04/16 01:51:39 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]
d31 1
a31 1
::tcltest::cleanupTests
@


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

foreach i [winfo children .] {
    destroy $i
}
wm geometry . {}
raise .
d31 1
a31 1
eval destroy [winfo children .]
@


1.2.18.1
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d8 1
a8 1
# RCS: @@(#) $Id$
d10 9
a18 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
d34 1
a34 1
deleteWindows
@


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


1.1.2.1
log
@initial tk8.1a2 version
@
text
@a0 37
# This file is a Tcl script to test new object types in Tk.
# It is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1997 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: @@(#) obj.test 1.2 97/11/17 11:20:18

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

foreach i [winfo children .] {
    destroy $i
}
wm geometry . {}
raise .

test obj-1.1 {TkGetPixelsFromObj} {
} {}

test obj-2.1 {FreePixelInternalRep} {
} {}

test obj-3.1 {DupPixelInternalRep} {
} {}

test obj-4.1 {SetPixelFromAny} {
} {}



eval destroy [winfo children .]


@


1.1.2.2
log
@Merged 8.0.3 changes into 8.1
@
text
@d9 1
a9 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
@a4 2
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
d6 4
a9 1
# RCS: @@(#) $Id: obj.test,v 1.1.2.2 1998/09/30 02:18:50 stanton Exp $
d11 2
a12 2
if {[lsearch [namespace children] ::test] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
a36 3
# 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
@d8 1
a8 1
# RCS: @@(#) $Id: obj.test,v 1.1.2.3 1999/03/11 18:51:02 hershey Exp $
d10 1
a10 1
if {[lsearch [namespace children] ::tcltest] == -1} {
d37 1
a37 1
::tcltest::cleanupTests
a38 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
@d8 1
a8 1
# RCS: @@(#) $Id: obj.test,v 1.1.2.4 1999/03/24 01:16:59 hershey Exp $
a38 1

@


