anchor.diff:                                     {'organization', <<"Boxes by Bob">>}, {'priority', <<"non-urgent">>},
                                      {'proxy-authenticate', <<"Digest realm=\"atlanta.com\"">>}, {'proxy-authorization', <<"Digest username=\"Alice\"">>},
                                      {'proxy-require', <<"foo">>}, {'record-route', <<"<sip:server10.biloxi.com;lr>">>},
  +                                   {'reply-to', <<"Bob <sip:bob@biloxi.com>">>},
   
   
                                      {'content-length', <<"5">>}, {'via', <<"SIP/2.0/UDP localhost">>},
  
positive.code:                      "Organization: Boxes by Bob\r\nPriority: non-urgent\r\n",
                       "Proxy-Authenticate: Digest realm=\"atlanta.com\"\r\nProxy-Authorization: Digest username=\"Alice\"\r\n",
                       "Proxy-Require: foo\r\nRecord-Route: <sip:server10.biloxi.com;lr>\r\n",
  
                       "Content-Length: 5\r\nVia: SIP/2.0/UDP localhost\r\n",
                       "To: sip:bob@localhost\r\n"
  
negative.code:                    parse('record-route', <<"<sip:p1.example.com;lr>">>)),
       ?_assertEqual(<<"<sip:p1.example.com;lr>">>,
                     format('record-route', address(<<>>, <<"sip:p1.example.com;lr">>, []))),
  
       % Reply-To
       ?_assertEqual(address(<<"Bob">>, <<"sip:bob@biloxi.com">>, [{param, <<"value">>}]),
                     parse('reply-to', <<"Bob <sip:bob@biloxi.com>;param=value">>)),
       ?_assertEqual(<<"\"Bob\" <sip:bob@biloxi.com>;param=value">>,
                     format('reply-to', address(<<"Bob">>, <<"sip:bob@biloxi.com">>, [{param, <<"value">>}]))),
  
  
  
  