anchor.diff:  	{
   	  name :: chars(),
   	  description :: chars(),
  -	  result :: ok | {failed, tuple()} | {aborted, tuple()} | {skipped, tuple()},
  +	  result :: ok | {failed, tuple()} | {aborted, tuple()} | {skipped, term()},
   	  time :: integer(),
   	  output :: binary()
   	 }).
  
positive.code:         <<"\" name=\"">>, escape_attr(Name), <<"\"">>,
          DescriptionAttr],
      ContentAndEndTag = case {Result, Output} of
          {ok, []} -> [<<"/>">>, ?NEWLINE];
          {ok, <<>>} -> [<<"/>">>, ?NEWLINE];
          _ -> [<<">">>, ?NEWLINE, format_testcase_result(Result), format_testcase_output(Output), ?INDENT, <<"</testcase>">>, ?NEWLINE]
      end,
  
negative.code: %% Escape a suite's name to generate the filename.
  %% Remark: we might overwrite another testsuite's file.
  %% ----------------------------------------------------------------------------
  escape_suitename(Binary) when is_binary(Binary) ->
      escape_suitename(binary_to_list(Binary));
  escape_suitename("module '" ++ String) ->
  