anchor.diff:      {skip, Reason :: term()} |
       {auto_skip, Reason :: term()} |
       {fail, Reason :: term()}.
  -init_tc(ct_framework, Mod, Args) ->
  +init_tc(ct_framework, _Func, Args) ->
       Args;
   init_tc(Mod, init_per_suite, Config) ->
       call(fun call_generic/3, Config, {pre_init_suite, Mod});
  
positive.code:     {auto_skip, Reason :: term()} |
      {fail, Reason :: term()} |
      ok.
  end_tc(ct_framework, Mod, _Args, Result) ->
      Result;
  end_tc(Mod, init_per_suite, _Config, Result) ->
      call(fun call_generic/3, Result, {post_init_suite, Mod});
  
negative.code:     NewCalls = get_new_callbacks(NewConf, Fun),
      call(NewCalls  ++ Rest, remove(?config_name, NewConf), Meta,
  	 lists:keyreplace(CBId, 1, CBs, {CBId, NewCBInfo}));
  call([], Config, _Meta, CBs) ->
      ct_util:save_suite_data_async(?config_name, CBs),
      Config.
  
  