anchor.diff:              {Tag, S1} = tokenize_literal(B, ?INC_COL(S)),
               {Attrs, S2} = tokenize_attributes(B, S1),
               {S3, HasSlash} = find_gt(B, S2),
  -            Singleton = HasSlash orelse is_singleton(norm(binary_to_list(Tag))),
  +            Singleton = HasSlash orelse is_singleton(Tag),
               {{start_tag, Tag, Attrs, Singleton}, S3};
           _ ->
               tokenize_data(B, S)
  
positive.code:         [{<<"head">>, [], [<<"foo">>,
                             {<<"br">>, [], []},
                             <<"BAR">>]},
           {<<"body">>, [{<<"bgcolor">>, <<"#Aa01fF">>}], []}
          ]},
         parse(<<"<html><Head>foo<bR>BAR</head><body bgcolor=\"#Aa01fF\"></BODY></html>">>)),
      ok.
  
  exhaustive_is_singleton_test() ->
  
negative.code:        {<<"div">>,[],[{<<"br">>, [], []}, {<<"br">>, [], []}, <<"z">>]},
         mochiweb_html:parse("<div><br><br>z</br/></br/></div>")),
      ?assertEqual(
         {<<"div">>,[],[{<<"br">>, [], []}, {<<"br">>, [], []}, <<"z">>, {<<"br">>, [], []}, {<<"br">>, [], []}]},
         mochiweb_html:parse("<div><br><br>z<br/><br/></div>")),
      ?assertEqual(
         {<<"div">>,[],[{<<"br">>, [], []}, {<<"br">>, [], []}, <<"z">>]},
         mochiweb_html:parse("<div><br><br>z</br></br></div>")).
  
  