Check-in [1a8718c774]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment:replaced missing brace
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1a8718c774fd195c5f676f3a62dc449fe7513013
User & Date: aborr on 2000-06-06 22:18:10
Other Links: manifest | tags
Context
2000-06-07
01:32
remove port conflict with remote server check-in: aa5cde54c8 user: aborr tags: trunk
2000-06-06
22:18
replaced missing brace check-in: 1a8718c774 user: aborr tags: trunk
22:01
changed default server port from 2048 to 8048 check-in: 2b84c5685a user: aborr tags: trunk
Changes

Modified tests/tlsIO.test from [2ac943b88d] to [6da1a88067].

6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
...
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
#
# 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.10 2000/06/06 22:00:48 aborr 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
................................................................................
	close $f
	puts $x
    }
    close $f
    set f [open "|[list $::tcltest::tcltest script]" r]
    gets $f x
    if {[catch {tls::socket -certfile $clientCert -cafile $caCert \
	-keyfile $clientKey 127.0.0.1 $tlsServerPort msg]} {
        set x $msg
    } else {
        lappend x [gets $f]
        close $msg
    }
    lappend x [gets $f]
    close $f






|







 







|







6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
...
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
#
# 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.11 2000/06/06 22:18:10 aborr 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
................................................................................
	close $f
	puts $x
    }
    close $f
    set f [open "|[list $::tcltest::tcltest script]" r]
    gets $f x
    if {[catch {tls::socket -certfile $clientCert -cafile $caCert \
	-keyfile $clientKey 127.0.0.1 $tlsServerPort} msg]} {
        set x $msg
    } else {
        lappend x [gets $f]
        close $msg
    }
    lappend x [gets $f]
    close $f