blob: 672eef7be2379e87a9f194044e8ddc794ef6c2a5 (
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,v 1.1.1.1 2016/01/25 21:20:47 joye Exp $
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
|
