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/iogt.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/iogt.test')
| -rw-r--r-- | tests/iogt.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/iogt.test b/tests/iogt.test index 969e43c..c45d97d 100644 --- a/tests/iogt.test +++ b/tests/iogt.test @@ -10,7 +10,7 @@ # Copyright (c) 2000 Andreas Kupries. # All rights reserved. # -# RCS: @(#) $Id: iogt.test,v 1.15 2006/11/03 00:34:53 hobbs Exp $ +# RCS: @(#) $Id: iogt.test,v 1.16 2006/11/03 11:45:34 dkf Exp $ if {[catch {package require tcltest 2.1}]} { puts stderr "Skipping tests in [info script]. tcltest 2.1 required." @@ -126,7 +126,7 @@ proc echoPut {c sock} { #fileevent stdin readable {exit ;#cut} # main -socket -server newconn $port +socket -server newconn -myaddr 127.0.0.1 $port vwait forever } __echo_srv__.tcl] |