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