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$ 9 10package require tcltest 2.1 11eval tcltest::configure $argv 12tcltest::loadTestedCommands 13 14test obj-1.1 {TkGetPixelsFromObj} { 15} {} 16 17test obj-2.1 {FreePixelInternalRep} { 18} {} 19 20test obj-3.1 {DupPixelInternalRep} { 21} {} 22 23test obj-4.1 {SetPixelFromAny} { 24} {} 25 26 27 28deleteWindows 29 30# cleanup 31cleanupTests 32return 33