anchor.diff:          {'DOWN', MRef, process, Pid, Reason} ->
               p("worker process terminated: "
                 "~n      ~p", [Reason]),
  -            ok
  +            ok;
  +
  +        {'EXIT', TCPid, {timetrap_timeout = R, TCTimeout, TCSTack}} ->
  +            p("received timetrap timeout (~w ms) from ~p => "
  +              "Kill executor process"
  +              "~n      TC Stack: ~p", [TCTimeout, TCPid, TCSTack]),
  +            exit(Pid, kill),
  +            ?SKIP(R)
       end,
       ok.
  +
   
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: mstone2(suite) ->
      [];
  mstone2(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      WorkerNode = ?config(worker_node, Config),
      RunTime   = 1, % Minutes
      NumSched  = try erlang:system_info(schedulers_online) of N -> N
                  catch _:_:_ -> 1
                  end,
      Factor    = 1 + (NumSched div 12),
      Mode      = standard,
      Mod       = megaco_codec_mstone2,
      Func      = start,
      Args      = [Factor, RunTime, Mode],
      p("Run with: "
        "~n      Factor:   ~p"
        "~n      Run Time: ~p min(s)"
        "~n      Mode:     ~p", [Factor, RunTime, Mode]),
      ct:timetrap(?MINS(RunTime + 1)),
      do_meas(?FUNCTION_NAME, WorkerNode, Mod, Func, Args).
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
negative.code: 
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  try_tc(TCName, Pre, Case, Post) ->
      try_tc(TCName, "EX-TESTER", ?TEST_VERBOSITY, Pre, Case, Post).
  
  try_tc(TCName, Name, Verbosity, Pre, Case, Post) ->
      ?TRY_TC(TCName, Name, Verbosity, Pre, Case, Post).
  
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  p(F) ->
      p(F, []).
  
  