anchor.diff:      ClientFun = fun (Socket) ->
                           Req = fake_request(Socket, ContentType,
                                              size(BinContent)),
  -                        Res = parse_form(Req, fun handler_test/2),
  +                        Res = parse_form(Req),
                           [{"submit-name", "Larry"},
                            {"files", {"file1.txt", {"text/plain",[]},
                                       <<"... contents of file1.txt ...">>}
  
positive.code:     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),
  
negative.code: -module(mochiweb_multipart).
  -author('bob@mochimedia.com').
  
  -export([parse_form/1, parse_form/2]).
  -export([parse_multipart_request/2]).
  -export([test/0]).
  
  