diff options
| author | dkf <dkf@noemail.net> | 2001-09-20 12:08:37 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2001-09-20 12:08:37 (GMT) |
| commit | f5927784ea09ccb409f96d499098c162efae916b (patch) | |
| tree | f9ccbdcd27fd881c6c6e02589cbf8de202d8abb0 /tests/socket.test | |
| parent | f1eb55df231122e0d865cfb354f8331aad0f37b7 (diff) | |
| download | tcl-f5927784ea09ccb409f96d499098c162efae916b.zip tcl-f5927784ea09ccb409f96d499098c162efae916b.tar.gz tcl-f5927784ea09ccb409f96d499098c162efae916b.tar.bz2 | |
removed dependence on socket.test being run from same dir as remote.tcl,
which only now needs to be in the same dir as it. [Bug #219326]
FossilOrigin-Name: adcac9a7281a0d40a6f6829fd3f152fce60db64a
Diffstat (limited to 'tests/socket.test')
| -rw-r--r-- | tests/socket.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/socket.test b/tests/socket.test index 46a3e72..da8612a 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: socket.test,v 1.18 2001/09/14 00:43:21 hobbs Exp $ +# RCS: @(#) $Id: socket.test,v 1.19 2001/09/20 12:08:37 dkf Exp $ # Running socket tests with a remote server: # ------------------------------------------ @@ -123,7 +123,10 @@ if {$doTestsWithRemoteServer} { set doTestsWithRemoteServer 0 } else { set remoteServerIP 127.0.0.1 - set remoteFile [file join [pwd] remote.tcl] + # Be *extra* careful in case this file is sourced from + # a directory other than the current one... + set remoteFile [file join [pwd] [file dirname [info script]] \ + remote.tcl] if {[catch {set remoteProcChan \ [open "|[list $::tcltest::tcltest $remoteFile \ -serverIsSilent \ |