1# Commands covered: shape 2# 3# This file contains a collection of tests for one or more of the 4# Shape extension's command(s) semantics. Sourcing this file into Tcl 5# runs the tests and generates output for errors. No output means no 6# errors were found. 7# 8# Copyright (c) 2000 by Donal K. Fellows 9# 10# See the file "license.terms" for information on usage and 11# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. 12 13if {[lsearch [namespace children] ::tcltest] == -1} { 14 package require tcltest 15 namespace import ::tcltest::* 16} 17 18package require shape 19 20### WRITE THE TESTS HERE ### 21 22# cleanup 23::tcltest::cleanupTests 24return 25 26# Local Variables: 27# mode: tcl 28# End: 29