anchor.diff:      attrs_to_html(Rest,
                     [[<<" ">>, escape(K), <<"=\"">>,
                       escape_attr(V), <<"\"">>] | Acc]).
  -    
  +
   test_escape() ->
       <<"&amp;quot;\"word &lt;&lt;up!&amp;quot;">> =
           escape(<<"&quot;\"word <<up!&quot;">>),
  
positive.code:         tokens(<<"<foo bar=baz wibble='wibble' alice=bob/>">>),
      [{comment, <<"[if lt IE 7]>\n<style type=\"text/css\">\n.no_ie { display: none; }\n</style>\n<![endif]">>}] =
          tokens(<<"<!--[if lt IE 7]>\n<style type=\"text/css\">\n.no_ie { display: none; }\n</style>\n<![endif]-->">>),
      ok.
  
  tokens(B, S=#decoder{offset=O}, Acc) ->
  
negative.code:             {S2, _} = find_gt(B, S1),
              {{end_tag, Tag}, S2};
          <<_:O/binary, "<", C, _/binary>> when ?IS_WHITESPACE(C) ->
              %% This isn't really strict HTML
              tokenize_data(B, ?INC_COL(S));
          <<_:O/binary, "<", _/binary>> ->
              {Tag, S1} = tokenize_literal(B, ?INC_COL(S)),
  