module test

import iTasks
import StdMisc,StdDebug
import Data.Maybe

Start w = startEngine t w

t = withShared () \channels->
	tcpconnect "localhost" 8123 channels
		{ConnectionHandlers|
			onConnect=onConnect,
			onData=onData,
			onShareChange=onShareChange,
			onDisconnect=onDisconnect}
	where
		onConnect acc ()
			| not (trace_tn "onConnect") = undef
			= (Ok "", Nothing, [], False)

		onData newdata acc ()
			| not (trace_tn "onData") = undef
			= (Ok "", Nothing, [], False)
		
		onShareChange acc ()
			| not (trace_tn "onShareChange") = undef
			= (Ok "", Nothing, [], False)

		onDisconnect _ ()
			| not (trace_tn "onDisconnect") = undef
			= (Ok "", Nothing)