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
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#
# 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.7 2000/06/06 00:48:41 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
................................................................................

if {![info exists remoteServerIP]} {
    if {[info exists env(remoteServerIP)]} {
	set remoteServerIP $env(remoteServerIP)
    }
}
if {![info exists remoteServerPort]} {
    if {[info exists env(remoteServerIP)]} {
	set remoteServerPort $env(remoteServerPort)
    } else {
        if {[info exists remoteServerIP]} {
	    set remoteServerPort 2048
        }
    }
}






|







 







|







6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#
# 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.8 2000/06/06 01:34:22 welch 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
................................................................................

if {![info exists remoteServerIP]} {
    if {[info exists env(remoteServerIP)]} {
	set remoteServerIP $env(remoteServerIP)
    }
}
if {![info exists remoteServerPort]} {
    if {[info exists env(remoteServerPort)]} {
	set remoteServerPort $env(remoteServerPort)
    } else {
        if {[info exists remoteServerIP]} {
	    set remoteServerPort 2048
        }
    }
}