anchor.diff:       {data, <<"<html></body>">>, false},
        {end_tag, <<"textarea">>}] =
           tokens(<<"<textarea><html></body></textarea>">>),
  +    [{pi, <<"xml:namespace">>,
  +     [{<<"prefix">>,<<"o">>},
  +     {<<"ns">>,<<"urn:schemas-microsoft-com:office:office">>}]}]=
  +        tokens(<<"<?xml:namespace prefix=\"o\" ns=\"urn:schemas-microsoft-com:office:office\"?>">>),
       ok.
   
   parse_test() ->
  
positive.code:                          [<<"html">>, <<"PUBLIC">>,
                            <<"-//W3C//DTD XHTML 1.0 Transitional//EN">>,
                            <<"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">>]})),
      ok.
  
  escape_test() ->
  
negative.code:     to_tokens([{Tag0, R1} | Rest], [T0 | Acc]);
  to_tokens([{Tag0, [T0={comment, _C0} | R1]} | Rest], Acc) ->
      %% Allow {comment, iolist()}
      to_tokens([{Tag0, R1} | Rest], [T0 | Acc]);
  to_tokens([{Tag0, [T0={pi, _S0, _A0} | R1]} | Rest], Acc) ->
      %% Allow {pi, binary(), list()}
      to_tokens([{Tag0, R1} | Rest], [T0 | Acc]);
  to_tokens([{Tag0, [{T0, A0=[{_, _} | _]} | R1]} | Rest], Acc) ->
      %% Allow {p, [{"class", "foo"}]}
  