anchor.diff:  
   bad_connect_test() ->
       %% Start with an unlikely port number
  -    {error, econnrefused} = start({127,0,0,1}, 65535).
  +    {ok, Pid} = start({127,0,0,1}, 65535),
  +    ?assertEqual({false, [{econnrefused,1}]}, is_connected(Pid)).
   
   
   pb_socket_test_() ->
  
positive.code: -spec start(address(), portnum()) -> {ok, pid()} | {error, term()}.
  start(Address, Port) ->
      gen_server:start(?MODULE, [Address, Port], []).
  
  %% @doc Ping the server
  -spec ping(pid()) -> ok | {error, term()}.
  
negative.code:     {noreply, send_request(new_request(Msg, From, Timeout, Ctx), State)}.
  
  %% @private
  handle_info({tcp_error, _Socket, Reason}, State) ->
      error_logger:error_msg("PBC client TCP error for ~p:~p - ~p\n",
                             [State#state.address, State#state.port, Reason]),
      {noreply, disconnect(State)};
      
  handle_info({tcp_closed, _Socket}, State) ->
      {noreply, disconnect(State)};
  
  handle_info({tcp, _Socket, Data}, State=#state{sock = Sock, pending = Pending}) ->
      [MsgCode|MsgData] = Data,
      Resp = riakc_pb:decode(MsgCode, MsgData),
  