anchor.diff:    Dir = filename:dirname(filename:dirname(code:which(?MODULE))),
     ConfigFile = filename:join([Dir, "test", "fixtures", "beehive.cfg"]),
   
  -  application:set_env(beehive, node_type,     proplists:get_value(node_type, Proplist, test_type)),
  -  application:set_env(beehive, config_file,   proplists:get_value(config_file, Proplist, ConfigFile)),
  -  application:set_env(beehive, beehive_home,  proplists:get_value(beehive_home, Proplist, "/tmp/beehive/test")),
  -  application:set_env(beehive, database_dir,  proplists:get_value(database_dir, Proplist, "/tmp/beehive/test/test_db")),
  +  application:set_env(beehive, node_type,
  +                      proplists:get_value(node_type, Proplist, test_type)),
  +  application:set_env(beehive, config_file,
  +                      proplists:get_value(config_file, Proplist, ConfigFile)),
  +  application:set_env(beehive, beehive_home,
  +                      proplists:get_value(beehive_home, Proplist,
  +                                          "/tmp/beehive/test")),
  +  application:set_env(beehive, database_dir,
  +                      proplists:get_value(database_dir, Proplist,
  +                                          "/tmp/beehive/test/test_db")),
     application:start(sasl),
     beehive:start([{beehive_db_srv, testing}]),
   
  -                                                % erlang:display({beehive_db_srv, init_databases, start}),
  -                                                % beehive_db_srv:init_databases(),
  -                                                % erlang:display({beehive_db_srv, init_databases, done}),
  +  %% erlang:display({beehive_db_srv, init_databases, start}),
  +  %% beehive_db_srv:init_databases(),
  +  %% erlang:display({beehive_db_srv, init_databases, done}),
     timer:sleep(200),
  -                                                % We don't need any error output here
  +  %% We don't need any error output here
     inets:start(),
     ok;
   
   setup(Table) ->
  -                                                % beehive_db_srv:start_link(),
  -                                                % application:start(sasl),
  +  %% beehive_db_srv:start_link(),
  +  %% application:start(sasl),
     setup(),
     clear_table(Table),
     ok.
  
positive.code: request(Sock, Acc) ->
    receive
      {tcp, Sock, Data} ->
                                                  % Received data
        request(Sock, [binary_to_list(Data)|Acc]);
      {tcp_closed, Sock} ->
        parse_http_request(lists:flatten(lists:reverse(Acc)));
  
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]).
  