Diff

Differences From Artifact [0e4e0bc55f]:

To Artifact [b76e80eab8]:


1
2
3
4
5
6
7
8
9
10

11
12
13
14
15
16
17
18


19
20
21

22
23
24
25
26
27
28
1
2
3
4
5
6
7
8
9

10
11
12
13
14
15
16


17
18
19
20

21
22
23
24
25
26
27
28









-
+






-
-
+
+


-
+







# all.tcl --
#
# This file contains a top-level script to run all of the Tcl
# tests.  Execute it by invoking "source all.test" when running tcltest
# in this directory.
#
# Copyright (c) 1998-2000 by Ajuba Solutions.
# All rights reserved.
# 
# RCS: @(#) $Id: all.tcl,v 1.3 2000/06/05 22:57:58 stanton Exp $
# RCS: @(#) $Id: all.tcl,v 1.4 2000/06/05 23:11:37 aborr Exp $

if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import ::tcltest::*
}

#  set ::tcltest::testSingleFile false
#  set ::tcltest::testsDirectory [file dir [info script]]
set ::tcltest::testSingleFile false
set ::tcltest::testsDirectory [file dir [info script]]

# We need to ensure that the testsDirectory is absolute
#  ::tcltest::normalizePath ::tcltest::testsDirectory
::tcltest::normalizePath ::tcltest::testsDirectory

puts stdout "Tests running in interp:  [info nameofexecutable]"
puts stdout "Tests running in working dir:  $::tcltest::testsDirectory"
if {[llength $::tcltest::skip] > 0} {
    puts stdout "Skipping tests that match:  $::tcltest::skip"
}
if {[llength $::tcltest::match] > 0} {