path: root/test/examples/x.tcl

# tcl tests

#simple example

proc Echo_Server {port} {
    set s [socket -server EchoAccept $port]
    vwait forever
}