anchor.diff:  handle_event(#event{name=test_done}, #event{data={_Ok, Failed, _Skipped}}=S) ->
       PreviousFailed = case application:get_env(systest, failures) of
                            undefined -> 0;
  -                        Value     -> Value
  +                         Value     -> Value
                        end,
       application:set_env(systest, failures, PreviousFailed + Failed),
       {ok, S};
  
positive.code:     failed(list_to_atom(string:join(lists:flatten([
                  io_lib:format("~p", [Thing]) || Thing <- What]), "|")),
            Desc, FailInfo);
  failed(What, Desc, _FailInfo) when is_atom(What) ->
      console("~s ~p failed.~n", [Desc, What]).
                          % lists:flatten(fail_info(FailInfo))]).
  
  fail_info({error,FailInfo}) ->
      fail_info(FailInfo);
  
negative.code:     io_lib:format("timetrap timeout (~p)", [Value]);
  fail_info({failed,{_Suite,end_per_testcase,FailInfo}}) ->
      io_lib:format("end_per_testcase failure: ~s", [fail_info(FailInfo)]);
  fail_info(Other) ->
      io_lib:format("Fail Info ~p", [Other]).
  
  %%
  %% @private
  