blob: d77be7d82576d4224bcc01f21ce3e07fb1a17673 (
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 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
|
