anchor.diff:                            [alert_info(<<"http://www.example.com/sounds/moo.wav">>, []),
                              alert_info(<<"http://www.example.com/sounds/boo.wav">>, [{foo, <<"value">>}])])),
   
  +     % Allow
  +     ?_assertEqual(['INVITE', 'ACK', 'CANCEL', 'OPTIONS', 'BYE'],
  +                   parse('allow', <<"INVITE, ACK, CANCEL, OPTIONS, BYE">>)),
  +     ?_assertEqual(<<"INVITE, ACK, CANCEL, OPTIONS, BYE">>,
  +                   format('allow', ['INVITE', 'ACK', 'CANCEL', 'OPTIONS', 'BYE'])),
  +
  +     % Authentication-Info
  +     %nextnonce / message-qop / response-auth / cnonce / nonce-count
  +     ?_assertEqual([{nextnonce, <<"47364c23432">>},
  +                    {qop, auth},
  +                    {rspauth, <<"5f113a5432">>},
  +                    {cnonce, <<"42a2187831a9e">>},
  +                    {nc, 25}],
  +                   parse('authentication-info', <<"nextnonce=\"47364c23432\", qop=auth, rspauth=\"5f113a5432\", cnonce=\"42a2187831a9e\", nc=00000019">>)),
  +     ?_assertEqual(<<"nextnonce=\"47364c23432\", qop=auth, rspauth=\"5f113a5432\", cnonce=\"42a2187831a9e\", nc=00000019">>,
  +                   format('authentication-info',
  +                          [{nextnonce, <<"47364c23432">>},
  +                           {qop, auth},
  +                           {rspauth, <<"5f113a5432">>},
  +                           {cnonce, <<"42a2187831a9e">>},
  +                           {nc, 25}])),
  +
        % Call-Id
        ?_assertEqual(<<"somecallid">>, parse('call-id', <<"somecallid">>)),
   
  
positive.code:         'from' -> <<"From">>;
          'to' -> <<"To">>;
          'contact' -> <<"Contact">>;
          'allow' -> <<"Allow">>;
          'require' -> <<"Require">>;
          'proxy-require' -> <<"Proxy-Require">>;
          'supported' -> <<"Supported">>;
  
negative.code:                     address(<<>>, <<"sip:anonymous@example.com">>, [{param, <<"va lue">>}])],
                     parse('contact', <<"Bob <sip:bob@biloxi.com>;q=0.1, \"Alice\" <sip:alice@atlanta.com>;q=0.2, <sip:anonymous@example.com>;param=\"va lue\"">>)),
       ?_assertEqual('*', parse('contact', <<"*">>)),
       ?_assertEqual([address(<<>>, <<"sip:bob@biloxi.com">>, []),
                      address(<<>>, <<"sip:alice@atlanta.com">>, [])],
                     parse('contact', <<"sip:bob@biloxi.com, sip:alice@atlanta.com">>)),
  
       ?_assertEqual(<<"\"Bob\" <sip:bob@biloxi.com>;q=0.1">>,
                     format('contact', address(<<"Bob">>, <<"sip:bob@biloxi.com">>, [{q, <<"0.1">>}]))),
  