diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-03 11:45:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-03 11:45:32 (GMT) |
| commit | b0336f197479fbd56091c339eec3cacc76e99292 (patch) | |
| tree | 1eefe38f45eef7570a4b44ce733132a9d2fb8602 /tests/unixInit.test | |
| parent | 9620510685aba2a1cd7181551718278db98778c1 (diff) | |
| download | tcl-b0336f197479fbd56091c339eec3cacc76e99292.zip tcl-b0336f197479fbd56091c339eec3cacc76e99292.tar.gz tcl-b0336f197479fbd56091c339eec3cacc76e99292.tar.bz2 | |
Keep most tests from making sockets that are reachable off the machine.
Diffstat (limited to 'tests/unixInit.test')
| -rw-r--r-- | tests/unixInit.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/unixInit.test b/tests/unixInit.test index 4c876c4..1f4dc7a 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.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: unixInit.test,v 1.49 2006/03/21 11:12:29 dkf Exp $ +# RCS: @(#) $Id: unixInit.test,v 1.50 2006/11/03 11:45:35 dkf Exp $ package require tcltest 2.2 namespace import -force ::tcltest::* @@ -50,7 +50,7 @@ test unixInit-1.2 {initialisation: standard channel type deduction} {unix stdio} close $channel exit } - puts [fconfigure [socket -server accept 0] -sockname] + puts [fconfigure [socket -server accept -myaddr 127.0.0.1 0] -sockname] vwait forever \ } # Note the backslash above; this is important to make sure that the |