anchor.diff:  				    {"To",	["\"Joe\" <sip:user2@example.org>"]},
   				    {"CSeq",	["10 MESSAGE"]}
   				   ]),
  -    CheckResponse1 = #response{status=200, reason="Ok", header=CRHeader1, body=""},
  +    CheckResponse1 = #response{status=200, reason="Ok", header=CRHeader1, body=EmptyBody},
   
       io:format("test: process_parsed_packet/2 response - 1~n"),
       %% straight forward
       {#response{}=_Response, _LogStr} = process_parsed_packet(CheckResponse1, #siporigin{proto=tcp}),
  -    
  +
       io:format("test: process_parsed_packet/2 response - 2~n"),
       CRHeader2 = keylist:delete("Via", CRHeader1),
  -    CheckResponse2 = #response{status=200, reason="Ok", header=CRHeader2, body=""},
  +    CheckResponse2 = #response{status=200, reason="Ok", header=CRHeader2, body=EmptyBody},
       %% without Via-headers
  -    {invalid} = process_parsed_packet(CheckResponse2, #siporigin{proto=tcp}),
  +    invalid = process_parsed_packet(CheckResponse2, #siporigin{proto=tcp}),
   
       io:format("test: process_parsed_packet/2 response - 3 (disabled)~n"),
       CRHeader3 = keylist:set("From", ["http://www.example.org/"], CRHeader1),
  -    CheckResponse3 = #response{status=200, reason="Ok", header=CRHeader3, body=""},
  +    CheckResponse3 = #response{status=200, reason="Ok", header=CRHeader3, body=EmptyBody},
       %% http From: URL, draft-ietf-sipping-torture-tests-04 argues that a proxy
       %% should be able to process a request/response with this unless the
       %% proxy really has to understand the From:. We currently don't.
       _ = (catch process_parsed_packet(CheckResponse3, #siporigin{proto=tcp})),
   
   
  -    %% test fix_topvia_received(Header, Origin)
  +    %% build request header for other tests
       %%--------------------------------------------------------------------
  -    io:format("test: build request header - 1~n"),
  +    io:format("test: build request header - 0~n"),
       ReqHeader1 = keylist:from_list([{"Via", ["SIP/2.0/TLS 192.0.2.78"]}]),
       Origin1 = #siporigin{proto=tcp, addr="192.0.2.78", port=1234},
       Origin2 = #siporigin{proto=tcp, addr="192.0.2.200", port=2345},
   
  -
  -    io:format("test: fix_topvia_received/2 - 1.1~n"),
  -    %% check Via that is IP-address (the right one), and no rport parameter
  -    ReqHeader1_1 = fix_topvia_received(ReqHeader1, Origin1),
  -
  -    io:format("test: fix_topvia_received/2 - 1.2~n"),
  -    %% check result
  -    ["SIP/2.0/TLS 192.0.2.78"] = keylist:fetch(via, ReqHeader1_1),
  -
  -
  -    io:format("test: fix_topvia_received/2 - 2.1~n"),
  -    %% check Via that is IP-address (but not the same as in Origin2), and no rport parameter
  -    ReqHeader1_2 = fix_topvia_received(ReqHeader1, Origin2),
  -
  -    io:format("test: fix_topvia_received/2 - 2.2~n"),
  -    %% check result
  -    ["SIP/2.0/TLS 192.0.2.78;received=192.0.2.200"] = keylist:fetch(via, ReqHeader1_2),
  -
  -
  -    io:format("test: fix_topvia_received/2 - 3.1~n"),
  -    ReqHeader2 = keylist:from_list([{"Via", ["SIP/2.0/TLS phone.example.org"]}]),
  -    io:format("test: fix_topvia_received/2 - 3.2~n"),
  -    %% check Via that is hostname, and no rport parameter
  -    ReqHeader2_1 = fix_topvia_received(ReqHeader2, Origin1),
  -
  -    io:format("test: fix_topvia_received/2 - 3.3~n"),
  -    %% check result
  -    ["SIP/2.0/TLS phone.example.org;received=192.0.2.78"] = keylist:fetch(via, ReqHeader2_1),
  -
  -    %% test fix_topvia_rport(Header, Origin)
  -    %%--------------------------------------------------------------------
  -
  -    
  -    io:format("test: fix_topvia_rport/2 - 1.1~n"),
  -    ReqHeader3 = keylist:from_list([{"Via", ["SIP/2.0/TLS 192.0.2.78;rport"]}]),
  -    io:format("test: fix_topvia_rport/2 - 1.2~n"),
  -    %% check Via that is IP address, with rport. When rport exists, we MUST add a
  -    %% received= even if the host-part equals the address we received the request from
  -    ReqHeader3_1 = fix_topvia_rport(ReqHeader3, Origin1),
  -
  -    io:format("test: fix_topvia_rport/2 - 1.3~n"),
  -    %% check result
  -    ["SIP/2.0/TLS 192.0.2.78;received=192.0.2.78;rport=1234"] = keylist:fetch(via, ReqHeader3_1),
  -
  -
  -    io:format("test: fix_topvia_rport/2 - 2.1~n"),
  -    %% check Via that is IP address (wrong address), with rport.
  -    ReqHeader3_2 = fix_topvia_rport(ReqHeader3, Origin2),
  -
  -    io:format("test: fix_topvia_rport/2 - 2.2~n"),
  -    %% check result
  -    ["SIP/2.0/TLS 192.0.2.78;received=192.0.2.200;rport=2345"] = keylist:fetch(via, ReqHeader3_2),
  -
  -
  -    io:format("test: fix_topvia_rport/2 - 3.1~n"),
  -    ReqHeader4 = keylist:from_list([{"Via", ["SIP/2.0/TCP phone.example.org;rport"]}]),
  -    io:format("test: fix_topvia_rport/2 - 3.2~n"),
  -    %% check Via that is hostname, with rport.
  -    ReqHeader4_1 = fix_topvia_rport(ReqHeader4, Origin2),
  -
  -    io:format("test: fix_topvia_rport/2 - 3.3~n"),
  -    %% check result
  -    ["SIP/2.0/TCP phone.example.org;received=192.0.2.200;rport=2345"] = keylist:fetch(via, ReqHeader4_1),
  -
  -
  -    %% build request header
  -    %%--------------------------------------------------------------------
       io:format("test: build request header - 1~n"),
       ReqHeader10 = keylist:from_list([
   				     {"Via",	["SIP/2.0/TLS 130.237.90.1:111",
  
positive.code: 	 process/3,
  	 get_env/1,
  	 get_env/2,
  	 make_logstr/2,
  	 safe_spawn/2,
  	 safe_spawn/3,
  	 origin2str/2,
  	 get_listenport/1,
  	 get_all_listenports/0,
  	 test/0
  
negative.code:     [] = keylist:fetch(route, remove_route_matching_me(
  				keylist:set("Route", [MyRouteStr], ReqHeader10)
  				)),
  
      io:format("test: remove_route_matching_me/1 - 3~n"),
      %% Test a matching Route, and some non-matching
      ["<sip:example.org>"] = keylist:fetch(route,
  					  remove_route_matching_me(
  					    keylist:set("Route", [MyRouteStr, "<sip:example.org>"], ReqHeader10)
  					   )),
  
  
      io:format("test: remove_route_matching_me/1 - 4~n"),
      %% Test a double matching Route, should result in the second one still there
      [MyRouteStr] = keylist:fetch(route, remove_route_matching_me(
  					  keylist:set("Route", [MyRouteStr, MyRouteStr], ReqHeader10)
  					 )),
  
      io:format("test: remove_route_matching_me/1 - 5~n"),
      %% Test Route matching on my IP address, plus one more Route
      ["<sip:example.org>"] = keylist:fetch(route,
  