anchor.diff:              tokenize_word(Bin, ?INC_COL(S), C);
           <<_:O/binary, C, _/binary>> when not ?IS_WHITESPACE(C) ->
               %% Sanity check for whitespace
  -            tokenize_literal(Bin, S, [])
  +            tokenize_literal(Bin, S)
       end.
   
   tokenize_word(Bin, S, Quote) ->
  
positive.code:        mochiweb_html:parse("<html>"
                             "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">"
                             "<head></head></body></html>")),
      ok.
  
  -endif.
  
negative.code:                            {<<"br">>, [], []},
                             <<"bar">>]}]},
         parse(<<"<html><link>foo<br>bar</link></html>">>)),
      %% Case insensitive tags
      ?assertEqual(
         {<<"html">>, [],
          [{<<"head">>, [], [<<"foo">>,
                             {<<"br">>, [], []},
                             <<"BAR">>]},
           {<<"body">>, [{<<"class">>, <<"">>}, {<<"bgcolor">>, <<"#Aa01fF">>}], []}
          ]},
         parse(<<"<html><Head>foo<bR>BAR</head><body Class=\"\" bgcolor=\"#Aa01fF\"></BODY></html>">>)),
      ok.
  
  exhaustive_is_singleton_test() ->
  