1# all.tcl -- -*- tcl -*- 2# 3# Import common functionality, then run the tests in this directory. 4# 5# Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net> 6# All rights reserved. 7# 8# RCS: @(#) $Id: all.tcl 26 2002-12-07 00:11:39Z andreas_kupries $ 9 10set _pwd [pwd] 11cd [file dirname [file join [pwd] [info script]]] 12set _here [pwd] 13cd $_pwd 14source [file join [file dirname [file dirname $_here]] tests all.tcl] 15unset _pwd _here 16 17set ::tcltest::testSingleFile false 18set ::tcltest::testsDirectory [file dirname [info script]] 19 20# We need to ensure that the testsDirectory is absolute 21::tcltest::normalizePath ::tcltest::testsDirectory 22 23run_tests 24exit 25