Check-in [f81ece270a]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment:Fixed use of remoteServerPort environment variable
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f81ece270a50ff89df26f7f1a0ff8f570a102703
User & Date: welch on 2000-06-06 01:34:22
Other Links: manifest | tags
Context
2000-06-06
01:50
removed test that caused hang on linux check-in: 276fc6c658 user: aborr tags: trunk, ajuba-ajuba2-2-0
01:34
Fixed use of remoteServerPort environment variable check-in: f81ece270a user: welch tags: trunk
01:34
Merging with similar changes by Scott S. check-in: 08fc9629ab user: welch tags: trunk
Changes

Modified tests/tlsIO.test from [874a13908a] to [1ca9d390dd].

     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.7 2000/06/06 00:48:41 aborr Exp $
           13  +# RCS: @(#) $Id: tlsIO.test,v 1.8 2000/06/06 01:34:22 welch 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
................................................................................
    90     90   
    91     91   if {![info exists remoteServerIP]} {
    92     92       if {[info exists env(remoteServerIP)]} {
    93     93   	set remoteServerIP $env(remoteServerIP)
    94     94       }
    95     95   }
    96     96   if {![info exists remoteServerPort]} {
    97         -    if {[info exists env(remoteServerIP)]} {
           97  +    if {[info exists env(remoteServerPort)]} {
    98     98   	set remoteServerPort $env(remoteServerPort)
    99     99       } else {
   100    100           if {[info exists remoteServerIP]} {
   101    101   	    set remoteServerPort 2048
   102    102           }
   103    103       }
   104    104   }