1# This file is a Tcl script to test new object types in Tk. 2# It is organized in the standard fashion for Tcl tests. 3# 4# Copyright (c) 1997 Sun Microsystems, Inc. 5# Copyright (c) 1998-1999 by Scriptics Corporation. 6# All rights reserved. 7# 8# RCS: @(#) $Id: obj.test,v 1.3 2002/07/13 20:28:35 dgp Exp $ 9 10package require tcltest 2.1 11namespace import -force tcltest::configure 12namespace import -force tcltest::testsDirectory 13configure -testdir [file join [pwd] [file dirname [info script]]] 14configure -loadfile [file join [testsDirectory] constraints.tcl] 15tcltest::loadTestedCommands 16 17test obj-1.1 {TkGetPixelsFromObj} { 18} {} 19 20test obj-2.1 {FreePixelInternalRep} { 21} {} 22 23test obj-3.1 {DupPixelInternalRep} { 24} {} 25 26test obj-4.1 {SetPixelFromAny} { 27} {} 28 29 30 31deleteWindows 32 33# cleanup 34::tcltest::cleanupTests 35return 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50