Check-in [1f02e39c64]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment:Modified tests to run stand alone
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1f02e39c640d07906e7984b9500c1b141495be1b
User & Date: stanton on 2000-06-05 22:57:58
Other Links: manifest | tags
Context
2000-06-05
23:11
restored normal opration for multiple tests check-in: adb6a2840a user: aborr tags: trunk
22:57
Modified tests to run stand alone check-in: 1f02e39c64 user: stanton tags: trunk
22:33
updated comments; marked test cases for known bugs check-in: f0085cd37e user: aborr tags: trunk
Changes

Modified tests/all.tcl from [106b5d16a5] to [0e4e0bc55f].

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.2 2000/05/30 22:19:48 aborr Exp $
# RCS: @(#) $Id: all.tcl,v 1.3 2000/06/05 22:57:58 stanton 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} {

Modified tests/tlsIO.test from [64616de45f] to [1dc1216bd3].

1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17
18
19
20
1
2
3
4
5
6
7
8
9
10
11
12

13
14
15
16
17
18
19
20











-
+







# Commands tested in this file: socket.
#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands.  Sourcing this file into Tcl runs the tests and
# generates output for errors.  No output means no errors were found.
#
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 Ajuba Solutions. 
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: tlsIO.test,v 1.4 2000/06/05 22:33:26 aborr Exp $
# RCS: @(#) $Id: tlsIO.test,v 1.5 2000/06/05 22:57:58 stanton Exp $

# Running socket tests with a remote server:
# ------------------------------------------
# 
# Some tests in socket.test depend on the existence of a remote server to
# which they connect. The remote server must be an instance of tcltest and it
# must run the script found in the file "remote.tcl" in this directory. You
66
67
68
69
70
71
72


73
74
75
76
77





78
79
80
81
82
83
84
66
67
68
69
70
71
72
73
74





75
76
77
78
79
80
81
82
83
84
85
86






+
+
-
-
-
-
-
+
+
+
+
+







    package require tcltest
    namespace import -force ::tcltest::*
}

# Load the tls package
package require tls

set certsDir [file join [file dirname [info script]] certs] 

set serverCert [file join $::tcltest::testsDirectory certs server.pem]
set clientCert [file join $::tcltest::testsDirectory certs client.pem]
set caCert [file join $::tcltest::testsDirectory certs cacert.pem]
set serverKey [file join $::tcltest::testsDirectory certs skey.pem]
set clientKey [file join $::tcltest::testsDirectory certs ckey.pem]
set serverCert [file join $certsDir server.pem]
set clientCert [file join $certsDir client.pem]
set caCert [file join $certsDir cacert.pem]
set serverKey [file join $certsDir skey.pem]
set clientKey [file join $certsDir ckey.pem]

# Some tests require the testthread command

set ::tcltest::testConstraints(testthread) \
	[expr {[info commands testthread] != {}}]

#