anchor.diff:  bad_request() ->
       Headers = lists:duplicate(100, {"X-Foo", "Bar"}),
       ?assertEqual({error, socket_closed_remotely},
  -                 httpc:request(get, {"http://localhost:8080/foo", Headers},
  +                 httpc:request(get, {"http://localhost:3001/foo", Headers},
                                  [], [])),
   
       Body = binary:copy(<<"x">>, 1024 * 1000),
       ?assertEqual({error, socket_closed_remotely},
                    httpc:request(post,
  -                               {"http://localhost:8080/foo", [], "foo", Body},
  +                               {"http://localhost:3001/foo", [], "foo", Body},
                                  [], [])).
   
   
   
   content_length() ->
  -    {ok, Response} = httpc:request("http://localhost:8080/304"),
  +    {ok, Response} = httpc:request("http://localhost:3001/304"),
   
       ?assertEqual(304, status(Response)),
       ?assertEqual([{"connection", "Keep-Alive"},
  
positive.code:                  list_to_binary(body(Response))).
  
  exception_flow() ->
      {ok, Response} = httpc:request("http://localhost:8080/403"),
      ?assertEqual(403, status(Response)),
      ?assertEqual([{"connection", "Keep-Alive"},
                    {"content-length", "9"}], headers(Response)),
      ?assertEqual("Forbidden", body(Response)).
  
  user_connection() ->
      {ok, Response} = httpc:request("http://localhost:8080/close"),
      ?assertEqual(200, status(Response)),
      ?assertEqual([{"connection", "close"},
                    {"content-length", "7"}], headers(Response)),
  
negative.code:     application:start(public_key),
      application:start(ssl),
      inets:start(),
      {ok, P} = elli:start_link([{callback, elli_example_callback}, {port, 3001}]),
      unlink(P),
      register(elli, P),
      [P].
  