anchor.diff:  get_test() ->
       {ok, Sock} = gen_tcp:connect("localhost", 11211,
                                    [binary, {packet, 0}, {active, false}]),
  -    set_test_sock(Sock),
  +    set_test_sock(Sock, <<"aaa">>),
   
       (fun () ->
           {ok, RB} = cmd(get, Sock, nil,
  -                       #msg{keys= [<<"aaa-st">>, <<"notkey1">>, <<"notkey2">>]}),
  +                       #msg{keys= [<<"aaa">>, <<"notkey1">>, <<"notkey2">>]}),
           ?assertMatch(RB, <<"END">>),
   
           {ok, RB1} = cmd(get, Sock, nil,
  
positive.code: 
      ok = gen_tcp:close(Sock).
  
  starts_with(S, Prefix) ->
      Prefix =:= string:substr(S, 1, string:len(Prefix)).
  
  
negative.code: set_test() ->
      {ok, Sock} = gen_tcp:connect("localhost", 11211,
                                   [binary, {packet, 0}, {active, false}]),
      set_test_sock(Sock, <<"aaa">>),
      ok = gen_tcp:close(Sock).
  
  set_test_sock(Sock, Key) ->
      (fun () ->
          {ok, RB} = send_recv(Sock, "flush_all\r\n", nil),
          ?assertMatch(RB, <<"OK">>),
          {ok, RB1} = send_recv(Sock, <<"get ", Key/binary, "\r\n">>, nil),
          ?assertMatch(RB1, <<"END">>)
      end)(),
  
      (fun () ->
          {ok, RB} = cmd(set, Sock, nil,
                         #msg{key= Key,
                              data= <<"AAA">>}),
          ?assertMatch(RB, <<"STORED">>),
  
          {ok, RB1} = send_recv(Sock, <<"get ", Key/binary, "\r\n">>, nil),
          ?assertMatch(RB1, <<"VALUE ", Key/binary, " 0 3">>),
          {ok, RB2} = recv_line(Sock),
          ?assertMatch(RB2, <<"AAA">>),
          {ok, RB3} = recv_line(Sock),
  