anchor.diff:  %% Escape a suite's name to generate the filename.
   %% Remark: we might overwrite another testsuite's file.
   %% ----------------------------------------------------------------------------
  -escape_suitename([Head | _T] = List) when is_list(Head) ->
  -    escape_suitename(lists:flatten(List));
   escape_suitename(Binary) when is_binary(Binary) ->
       escape_suitename(binary_to_list(Binary));
   escape_suitename("module '" ++ String) ->
  
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: %% Empty output is simply the empty string.
  %% Other output is inside a <system-out> xml tag.
  %% ----------------------------------------------------------------------------
  format_testcase_output(Output) ->
      [?INDENT, ?INDENT, <<"<system-out>">>, escape_text(Output), ?NEWLINE, ?INDENT, ?INDENT, <<"</system-out>">>, ?NEWLINE].
  
  