blob: 7010d2d1949011ce7a0cad63f698ed62667d9d4f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# all.tcl -- -*- tcl -*-
#
# Import common functionality, then run the tests in this directory.
#
# Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net>
# All rights reserved.
#
# RCS: @(#) $Id: all.tcl 224 2009-07-27 08:47:46Z nijtmans $
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
|
