anchor.diff:  request(Sock, Acc) ->
     receive
       {tcp, Sock, Data} ->
  -                                                % Received data
  +      %% Received data
         request(Sock, [binary_to_list(Data)|Acc]);
       {tcp_closed, Sock} ->
         parse_http_request(lists:flatten(lists:reverse(Acc)));
  
positive.code: dummy_app() -> dummy_app("test_app").
  
  dummy_user() ->
    {ok, User} = case users:find_by_email("test@getbeehive.com") of
                   not_found ->
                     UserC = #user{email    = "test@getbeehive.com",
                                   password = "test",
                                   token    = "dummytoken" },
                     users:create(UserC);
                   U1 -> {ok, U1}
                 end,
    User.
  
  admin_user() ->
    {ok, User} =
      case users:find_by_email("admin@getbeehive.com") of
        not_found ->
          UserC = #user{email    = "admin@getbeehive.com",
                        password = "admin",
                        token    = "token",
                        level    = ?ADMIN_USER_LEVEL
                       },
          users:create(UserC);
        U1 -> {ok, U1}
      end,
    User.
  
                                                  % Utils
  delete_all(Table) ->
    Pluralized = erlang:list_to_atom(lists:append([erlang:atom_to_list(Table), "s"])),
    lists:map(fun(O) ->
                  Pluralized:delete(O)
              end, Pluralized:all()).
                                                  % beehive_db_srv:delete_all(Table).
  
  response_json(Response) ->
    Json = lists:last(Response),
  
negative.code:   Fun(),
    shutdown(Nodes).
  
  %% FIXTURE
  dummy_git_repos_url() ->
    ReposDir = filename:join([?BH_ROOT, "test", "fixtures", "incredibly_simple_rack_app.git"]),
    lists:concat(["file://", ReposDir]).
  