anchor.diff:  stream_test() ->
       CallbackPid = spawn_link(fun() -> receiver([]) end),
       Stream0 = new(CallbackPid),
  -    Data = ["<prefix:root prefix:r='1' xmlns:prefix='ns'>",
  -	    "junk1", "<a/>", "junk2", "<b>cdata</b>", "junk3",
  -	    "</prefix:root>"],
  +    Data = [<<"<prefix:root prefix:r='1' xmlns:prefix='ns'>">>,
  +	    <<"junk1">>, <<"<a/>">>, <<"junk2">>, <<"<b>cdata</b>">>,
  +            <<"junk3">>, <<"</prefix:root>">>],
       StreamN = lists:foldl(
   		fun(Chunk, Stream) ->
   			xml_stream:parse(Stream, Chunk)
  
positive.code: close_parse_test() ->
      Stream = new(),
      close(Stream),
      ?assertError(badarg, xml_stream:parse(Stream, "junk")).
  
  close_change_callback_pid_test() ->
      Stream = new(),
  
negative.code: 				    {xmlcdata, <<"cdata1">>},
  				    #xmlel{name = <<"b">>},
  				    {xmlcdata, <<"cdata2">>}]},
  		 xml_stream:parse_element(<<"<root><a/>cdata1<b/>cdata2</root>">>)).
  
  receiver(Acc) ->
      receive
  