Add TestServer.SSH

[richard-ash]

No description provided.

[danschultzer]

It should dispatch before anything else because also the reply must be modifiable (you want to be able to control all messages):

Suggested change

	def handle_ssh_msg({:ssh_cm, connection, inner}, state) do
	acknowledge(connection, inner)
	case maybe_dispatch(state, inner) do
	{:ok, :ignore} ->
	{:ok, state}
	{:ok, reply} ->
	send_reply(connection, state, reply)
	finish(connection, inner, reply_opts(reply), state)
	{:error, reason} ->
	handle_dispatch_error(connection, state, inner, reason)
	finish(connection, inner, [exit_status: 1], state)
	end
	end
	def handle_ssh_msg({:ssh_cm, connection, frame}, state) do
	case dispatch(state, frame) do
	{:ok, :ignore} ->
	{:ok, state}
	{:ok, res} ->
	send_resp(res)
	{:error, reason} ->
	handle_error(reason)
	end
	end