anchor.diff:        || I <- ShouldMatch ],
       [ ?assertEqual(none, choose_media_type([Provided], I))
         || I <- WantNone ].
  +
  +choose_media_type_qval_test() ->
  +    Provided = ["text/html", "image/jpeg"],
  +    HtmlMatch = ["image/jpeg;q=0.5, text/html",
  +                 "text/html, image/jpeg; q=0.5",
  +                 "text/*; q=0.8, image/*;q=0.7",
  +                 "text/*;q=.8, image/*;q=.7"], %% strange FeedBurner format
  +    JpgMatch = ["image/*;q=1, text/html;q=0.9",
  +                "image/png, image/*;q=0.3"],
  +    [ ?assertEqual("text/html", choose_media_type(Provided, I))
  +      || I <- HtmlMatch ],
  +    [ ?assertEqual("image/jpeg", choose_media_type(Provided, I))
  +      || I <- JpgMatch ].
  
positive.code:             case PrioStr of
                  "0" -> {0.0, Choice};
                  "1" -> {1.0, Choice};
                  _ -> {list_to_float(PrioStr), Choice}
              end;
          {Choice} ->
  
negative.code: 		    QVal = case Val of
  			"1" ->
  			    1;
                          [$.|_] ->
                              %% handle strange FeedBurner Accept
                              list_to_float([$0|Val]); 
  			_ -> list_to_float(Val)
  		    end,
  		    {QVal, Type, Rest ++ Acc};
  