# all.tcl -- -*- tcl -*- # # Import common functionality, then run the tests in this directory. # # Copyright (c) 2002 Andreas Kupries # All rights reserved. # # RCS: @(#) $Id: all.tcl 26 2002-12-07 00:11:39Z andreas_kupries $ set _pwd [pwd] cd [file dirname [file join [pwd] [info script]]] set _here [pwd] cd $_pwd source [file join [file dirname [file dirname $_here]] tests all.tcl] unset _pwd _here set ::tcltest::testSingleFile false set ::tcltest::testsDirectory [file dirname [info script]] # We need to ensure that the testsDirectory is absolute ::tcltest::normalizePath ::tcltest::testsDirectory run_tests exit