Check-in [a0a66662a3]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment: * tests/all.tcl: added catch around ::tcltest::normalizePath because it doesn't exist in pre-8.3 tcltest.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a0a66662a3beeccaf65fe1562b2d47b15b80ad8c
User & Date: hobbs on 2000-08-15 18:45:01
Other Links: manifest | tags
Context
2000-08-15
18:49
* README.txt: added notes about need to use 8.2.0+. check-in: 74804ed748 user: hobbs tags: trunk
18:45
* tests/all.tcl: added catch around ::tcltest::normalizePath because it doesn't exist in pre-8.3 tcltest. check-in: a0a66662a3 user: hobbs tags: trunk
17:05
* tests/simpleClient.tcl: * tests/simpleServer.tcl: added simple client/server test scripts that use test certs and can do simple stress tests. check-in: 2f852e2ef6 user: hobbs tags: trunk
Changes

Modified tests/all.tcl from [b76e80eab8] to [0cb48d72f1].

     3      3   # This file contains a top-level script to run all of the Tcl
     4      4   # tests.  Execute it by invoking "source all.test" when running tcltest
     5      5   # in this directory.
     6      6   #
     7      7   # Copyright (c) 1998-2000 by Ajuba Solutions.
     8      8   # All rights reserved.
     9      9   # 
    10         -# RCS: @(#) $Id: all.tcl,v 1.4 2000/06/05 23:11:37 aborr Exp $
           10  +# RCS: @(#) $Id: all.tcl,v 1.5 2000/08/15 18:45:01 hobbs Exp $
    11     11   
    12     12   if {[lsearch [namespace children] ::tcltest] == -1} {
    13     13       package require tcltest
    14     14       namespace import ::tcltest::*
    15     15   }
    16     16   
    17     17   set ::tcltest::testSingleFile false
    18     18   set ::tcltest::testsDirectory [file dir [info script]]
    19     19   
    20         -# We need to ensure that the testsDirectory is absolute
    21         -::tcltest::normalizePath ::tcltest::testsDirectory
           20  +# We should ensure that the testsDirectory is absolute.
           21  +# This was introduced in Tcl 8.3+'s tcltest, so we need a catch.
           22  +catch {::tcltest::normalizePath ::tcltest::testsDirectory}
    22     23   
    23     24   puts stdout "Tests running in interp:  [info nameofexecutable]"
    24     25   puts stdout "Tests running in working dir:  $::tcltest::testsDirectory"
    25     26   if {[llength $::tcltest::skip] > 0} {
    26     27       puts stdout "Skipping tests that match:  $::tcltest::skip"
    27     28   }
    28     29   if {[llength $::tcltest::match] > 0} {