anchor.diff:  
   prioritize_media(TyParam) ->
       {Type, Params} = TyParam,
  -    prioritize_media(Type,Params,[]).    
  +    prioritize_media(Type,Params,[]).
   prioritize_media(Type,Params,Acc) ->
       case Params of
           [] ->
  
positive.code:             % doing this a little more work than needed in
              % order to be easily insensitive but preserving
              case lists:member(LAcc, LChoices) of
                  true -> 
                      hd([X || X <- Choices,
                               string:to_lower(X) =:= LAcc]);
                  false -> do_choose(Default, DefaultOkay, AnyOkay,
  
negative.code:       || I <- HtmlMatch ],
      [ ?assertEqual("image/jpeg", choose_media_type(Provided, I))
        || I <- JpgMatch ].
  
  accept_header_to_media_types_test() ->
      Header1 = "text/html,application/xhtml+xml,application/xml,application/x-javascript,*/*;q=0.5",
      Header2 = "audio/*; q=0, audio/basic",
      OddHeader = "text/html,application/xhtml+xml,application/xml,application/x-javascript,*/*;q=0,5",
      Result1 = accept_header_to_media_types(Header1),
      Result2 = accept_header_to_media_types(Header2),
      Result3 = accept_header_to_media_types(OddHeader),
      ExpResult1 = [{1,"application/x-javascript", []},
                    {1,"application/xml",[]},
                    {1,"application/xhtml+xml",[]},
                    {1,"text/html",[]},
                    {0.5,"*/*",[]}],
      ExpResult2 = [{1,"audio/basic",[]},{0,"audio/*",[]}],
      ExpResult3 = [{1, "5", []},
                    {1,"application/x-javascript", []},
                    {1,"application/xml",[]},
                    {1,"application/xhtml+xml",[]},
                    {1,"text/html",[]},
                    {0,"*/*",[]}],
      ?assertEqual(ExpResult1, Result1),
      ?assertEqual(ExpResult2, Result2),
      ?assertEqual(ExpResult3, Result3).
  
  media_type_extra_whitespace_test() ->
      MType = "application/x-www-form-urlencoded          ;      charset      =       utf8",
  