anchor.diff:      {ok, {{_,404,_}, [_ | _], [_ | _]}} 
   	= httpc:request(get, {URL, []}, [], []),
       ok.
  -
  -
  -%%-------------------------------------------------------------------------
  -proxy_page_does_not_exist(doc) ->
  -    ["Test that we get a 404 when the page is not found."];
  -proxy_page_does_not_exist(suite) ->
  -    [];
  -proxy_page_does_not_exist(Config) when is_list(Config) ->
  -    case ?config(skip, Config) of 
  -	undefined ->
  -	    URL = ?PROXY_URL ++ "/doesnotexist.html",
  -	    {ok, {{_,404,_}, [_ | _], [_ | _]}} = 
  -		httpc:request(get, {URL, []}, [], []),
  -	    ok;
  -	Reason ->
  -	    skip(Reason)
  -    end.
  -
  -
  -%%-------------------------------------------------------------------------
  -
  -proxy_https_not_supported(doc) ->
  -    [];
  -proxy_https_not_supported(suite) ->
  -    [];
  -proxy_https_not_supported(Config) when is_list(Config) ->
  -    Result = httpc:request(get, {"https://login.yahoo.com", []}, [], []),
  -    case Result of
  -	{error, https_through_proxy_is_not_currently_supported} ->
  -	    ok;
  -	_ ->
  -	    tsf({unexpected_reason, Result})
  -    end.
   
   
   %%-------------------------------------------------------------------------
  
positive.code: -compile(export_all).
  
  %% Test server specific exports
  -define(PROXY_URL, "http://www.erlang.org").
  -define(PROXY, "www-proxy.ericsson.se").
  -define(PROXY_PORT, 8080).
  -define(IP_PORT, 8998).
  -define(SSL_PORT, 8999).
  -define(NOT_IN_USE_PORT, 8997).
  
negative.code: 
  cline(List) ->
      lists:flatten([List, "\r\n"]).
  
  receive_streamed_body(RequestId, Body) ->
      receive 
  