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 224 2009-07-27 08:47:46Z nijtmans $ 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