anchor.diff:      (fun () ->
           {ok, RB} = cmd(delete, Sock, nil,
                          #msg{key= <<"aaa-st">>}),
  -        ?assertMatch(RB, <<"DELETED\r\n">>),
  +        ?assertMatch(RB, <<"DELETED">>),
   
           {ok, RB1} = send_recv(Sock, "get aaa-st\r\n", nil),
  -        ?assertMatch(RB1, <<"END\r\n">>)
  +        ?assertMatch(RB1, <<"END">>)
       end)(),
   
       ok = gen_tcp:close(Sock).
  
positive.code: send(Sock, IoList) ->
      gen_tcp:send(Sock, iolist_to_binary(IoList)).
  
  %% @doc receive binary data of specified number of bytes length.
  recv_data(_, 0) -> {ok, <<>>};
  recv_data(Sock, NumBytes) ->
      case gen_tcp:recv(Sock, NumBytes) of
  
negative.code:     (fun () ->
          {ok, RB} = cmd(get, Sock, nil,
                         #msg{keys= [<<"aaa-st">>, <<"notkey1">>, <<"notkey2">>]}),
          ?assertMatch(RB, <<"END">>),
  
          {ok, RB1} = cmd(get, Sock, nil,
                          #msg{keys= [<<"notkey0">>, <<"notkey1">>, <<"notkey2">>]}),
          ?assertMatch(RB1, <<"END">>)
      end)(),
  
      ok = gen_tcp:close(Sock).
  