anchor.diff:      ok = with_socket_server(ServerFun, ClientFun),
       ok.
   
  -handler_test(Filename, ContentType) ->
  -    fun (Next) ->
  -            handler_test_read(Next, {Filename, ContentType}, [])
  -    end.
  -
  -handler_test_read(eof, {Filename, ContentType}, Acc) ->
  -    Value = iolist_to_binary(lists:reverse(Acc)),
  -    {Filename, ContentType, Value};
  -handler_test_read(Data, H, Acc) ->
  -    Acc1 = [Data | Acc],
  -    fun (Next) -> handler_test_read(Next, H, Acc1) end.
  -
  -
   test_parse_form() ->
       ContentType = "multipart/form-data; boundary=AaB03x",
       "AaB03x" = get_boundary(ContentType),
  
positive.code: -record(mp, {state, boundary, length, buffer, callback, req}).
  
  %% TODO: DOCUMENT THIS MODULE.
  
  parse_form(Req, FileHandler) ->
      Callback = fun (Next) -> parse_form_outer(Next, FileHandler, []) end,
  
negative.code:     ClientFun = fun (Socket) ->
                          Req = fake_request(Socket, ContentType,
                                             size(BinContent)),
                          Res = parse_form(Req),
                          [{"submit-name", "Larry"},
                           {"files", {"file1.txt", {"text/plain",[]},
                                      <<"... contents of file1.txt ...">>}
  