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      6   #
     7      7   # Copyright (c) 1994-1996 Sun Microsystems, Inc.
     8      8   # Copyright (c) 1998-2000 Ajuba Solutions. 
     9      9   #
    10     10   # See the file "license.terms" for information on usage and redistribution
    11     11   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    12     12   #
    13         -# RCS: @(#) $Id: tlsIO.test,v 1.10 2000/06/06 22:00:48 aborr Exp $
           13  +# RCS: @(#) $Id: tlsIO.test,v 1.11 2000/06/06 22:18:10 aborr Exp $
    14     14   
    15     15   # Running socket tests with a remote server:
    16     16   # ------------------------------------------
    17     17   # 
    18     18   # Some tests in socket.test depend on the existence of a remote server to
    19     19   # which they connect. The remote server must be an instance of tcltest and it
    20     20   # must run the script found in the file "remote.tcl" in this directory. You
................................................................................
   283    283   	close $f
   284    284   	puts $x
   285    285       }
   286    286       close $f
   287    287       set f [open "|[list $::tcltest::tcltest script]" r]
   288    288       gets $f x
   289    289       if {[catch {tls::socket -certfile $clientCert -cafile $caCert \
   290         -	-keyfile $clientKey 127.0.0.1 $tlsServerPort msg]} {
          290  +	-keyfile $clientKey 127.0.0.1 $tlsServerPort} msg]} {
   291    291           set x $msg
   292    292       } else {
   293    293           lappend x [gets $f]
   294    294           close $msg
   295    295       }
   296    296       lappend x [gets $f]
   297    297       close $f