anchor.diff:  conn_peer_connected(Pid) ->
       call(Pid, peer_connected, []).
   
  -conn_peer_accepted(Pid) ->
  -    call(Pid, peer_accepted, []).
  +conn_peer_accepted(Pid, Host) ->
  +    call(Pid, peer_accepted, [Host]).
   
   conn_connection_failed(Pid) ->
       call(Pid, connection_failed, []).
  
positive.code:     % Check the inbound connection limit.
      Peer11 = peer(11, "10.1.0.1", 11),
      {ok, Conn11a} = test_mgr_start_inbound(Peer11),
      ?assertEqual(temporary, conn_peer_accepted(Conn11a)),
      ?assertEqual(11, aec_peers:count(connections)),
      conn_connection_closed(Conn11a),
  
  
negative.code:                     cast(Parent, stopped, self()),
                      reply(From, Result)
              end;
          {From, peer_accepted, [Host]} ->
              #{ parent := Parent, info := Info } = S,
              {ok, Addr} = inet:parse_address(Host),
              case aec_peers:peer_accepted(Info, Addr, self()) of
                  R when R =:= permanent; R =:= temporary ->
                      S2 = S#{ connected := true },
                      reply(From, R),
  