anchor.diff:  -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).
  
positive.code: 
      p("once -> done when Bode: ~p", [Body]),
      ok.
  
  
  %%-------------------------------------------------------------------------
  proxy_stream(doc) ->
      ["Test the option stream for asynchrony requests"];
  proxy_stream(suite) ->
      [];
  proxy_stream(Config) when is_list(Config) ->
      case ?config(skip, Config) of 
  	undefined ->
  	    {ok, {{_,200,_}, [_ | _], Body}} = 
  		httpc:request(get, {?PROXY_URL, []}, [], []),
  	    
  	    {ok, RequestId} =
  		httpc:request(get, {?PROXY_URL, []}, [], 
  			     [{sync, false}, {stream, self}]),
  	    
  	    receive 
  		{http, {RequestId, stream_start, _Headers}} ->
  		    ok;
  		{http, Msg} ->
  		    tsf(Msg)
  	    end,
  	    
  	    StreamedBody = receive_streamed_body(RequestId, <<>>),
  	    
  	    Body == binary_to_list(StreamedBody);
  	Reason ->
  	    skip(Reason)
      end.
  
  
  %%-------------------------------------------------------------------------
  
negative.code:     DummyServerPid ! stop,
      ok = httpc:set_options([{ipfamily, inet6fb4}]), 
      ok.
  
  
  %%-------------------------------------------------------------------------
  