anchor.diff:                 {"body",
                   [{"id","home"},
                    {"class","tundra"}],
  -                []}]},
  +                ["&lt;<this<!-- is -->CDATA>&gt;"]}]},
       Expect = parse(D0),
       ok.
   
  
positive.code: tokenize_literal([C | Rest], S, Acc) ->
      tokenize_literal(Rest, ?INC_COL(S), [C | Acc]).
  
  tokenize_comment([], S, Acc) ->
      {{comment, lists:reverse(Acc)}, [], S};
  tokenize_comment("-->" ++ Rest, S, Acc) ->
  
negative.code:     tokenize_comment(Rest, ?ADV_COL(S, 4), []);
  tokenize("<!DOCTYPE " ++ Rest, S) ->
      tokenize_doctype(Rest, ?ADV_COL(S, 10), []);
  tokenize("<![CDATA[" ++ Rest, S) ->
      tokenize_cdata(Rest, ?ADV_COL(S, 9), []);
  tokenize("&" ++ Rest, S) ->
      tokenize_charref(Rest, ?INC_COL(S), []);
  tokenize("</" ++ Rest, S) ->
  