anchor.diff:       {end_tag,"tag"}]},
      {"<a href=/a/bc/d.e>x</a>",
       [{tag,"a",[{"href","/a/bc/d.e"}]},
  -     {text,"x"},
  +     {text,<<"x">>},
        {end_tag,"a"}]},
      {"<a>...<...</a>",
       [{tag,"a",[]},
  -     {text,"...&lt;..."},
  +     {text,<<"...&lt;...">>},
        {end_tag,"a"}]},
      {"<P a=b c=d>hej<!-- tobbe --><b>svejsan</b>foo</p>grump<x x=y />",
       [{tag,"p",[{"a","b"},{"c","d"}]},
  -     {text,"hej"},
  +     {text,<<"hej">>},
        {comment," tobbe "},
        {tag,"b",[]},
  -     {text,"svejsan"},
  +     {text,<<"svejsan">>},
        {end_tag,"b"},
  -     {text,"foo"},
  +     {text,<<"foo">>},
        {end_tag,"p"},
  -     {text,"grump"},
  +     {text,<<"grump">>},
        {tag,"x",[{"x","y"}]},
        {end_tag,"x"}]},
      {"<script>visual+basic = rules;</script>",
  
positive.code: -author('mats cronqvist').
  -export([sax/3
           , unit/0,unit/1
           , file_parse/1
           , wget_parse/1
           , wget_print/1]).
  
  
negative.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Parsing real pages
  wget(Url) ->
    inets:start(),
    {ok, {_Rc, _Hdrs, Body}} = http:request(get, {Url, []}, [], []),
    Body.
  
  wget_parse(Url) ->
    sax(wget(Url),fun(T,A)-> A++[T] end, []).
  
  wget_print(Url) ->
    io:fwrite("~s~n",[wget(Url)]).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% ad-hoc unit test
  