Check-in [209b05cd6f]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment:Fix the tests to deal safely with use of tls.tcl
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 209b05cd6fc37160f428544865f07bf498b69732
User & Date: patthoyts on 2004-12-23 23:51:37
Other Links: manifest | tags
Context
2005-01-14
16:07
Make flags agree with the TEA build check-in: a1757bae4a user: patthoyts tags: trunk
2004-12-23
23:51
Fix the tests to deal safely with use of tls.tcl check-in: 209b05cd6f user: patthoyts tags: trunk
22:21
Removed spurious copying of tls.tcl into the build directory. check-in: 7f9a0592f7 user: patthoyts tags: trunk
Changes

Modified Makefile.in from [e5813c5142] to [b0c648d6e7].

8
9
10
11
12
13
14
15

16
17
18
19
20
21
22
8
9
10
11
12
13
14

15
16
17
18
19
20
21
22






-
+







#
# Copyright (c) 1999-2000 Ajuba Solutions.
# All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: Makefile.in,v 1.22 2004/12/23 22:21:43 patthoyts Exp $
# RCS: @(#) $Id: Makefile.in,v 1.23 2004/12/23 23:51:37 patthoyts Exp $


#========================================================================
# Enumerate the names of the source files included in this package.
# This will be used when a dist target is added to the Makefile.
#========================================================================

200
201
202
203
204
205
206
207
208







209
210
211
212
213
214
215
200
201
202
203
204
205
206


207
208
209
210
211
212
213
214
215
216
217
218
219
220






-
-
+
+
+
+
+
+
+







#	@for i in $(srcdir)/doc/*.n; do \
#	    echo "Installing $$i"; \
#	    rm -f $(DESTDIR)$(mandir)/mann/`basename $$i`; \
#	    $(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/mann ; \
#	done

test: binaries libraries
	echo "load $(PKG_LIB_FILE); source $(srcdir)/tls.tcl; set argv $(TESTFLAGS); source $(srcdir)/tests/all.tcl" | $(TCLSH)
#	$(TCLSH) `@[email protected] $(srcdir)/tests/all.tcl` $(TESTFLAGS)
	echo "load $(PKG_LIB_FILE); \
	  if {![file exists tls.tcl]} { \
	      file copy [file join $(srcdir) tls.tcl] tls.tcl \
	  } ;\
	  source [file join $(srcdir) tls.tcl]; \
	  set argv $(TESTFLAGS); \
	  source [file join $(srcdir) tests all.tcl]" | $(TCLSH)

shell: binaries libraries
	@$(TCLSH) $(SCRIPT)

gdb:
	$(TCLSH_ENV) gdb $(TCLSH_PROG) $(SCRIPT)

Modified tests/tlsIO.test from [b1aa1b8e66] to [a8b5647509].

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.
# Commands tested in this file: socket.                          -*- tcl -*-
#
# 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.21 2004/02/11 22:41:25 razzell Exp $
# RCS: @(#) $Id: tlsIO.test,v 1.22 2004/12/23 23:51:40 patthoyts 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