anchor.diff:       {?eh,start_logging,{'DEF','RUNDIR'}},
        {?eh,test_start,{'DEF',{'START_TIME','LOGDIR'}}},
        {?eh,cth,{'_',init,['_',[]]}},
  -     
  +
        {?eh,tc_start,{ct_cth_empty_SUITE,init_per_suite}},
        {?eh,cth,{'_',pre_init_per_suite,[ct_cth_empty_SUITE,'$proplist',[]]}},
        {?eh,cth,{'_',post_init_per_suite,[ct_cth_empty_SUITE,'$proplist',
  
positive.code:     ];
  
  test_events(prio_cth) ->
      
      GenPre = fun(Func,States) ->
  		     [{?eh,cth,{'_',Func,['_','_',State]}} || 
  			 State <- States]
  	     end,
  
      GenPost = fun(Func,States) ->
  		      [{?eh,cth,{'_',Func,['_','_','_',State]}} || 
  			  State <- States]
  	     end,
      
      [{?eh,start_logging,{'DEF','RUNDIR'}},
       {?eh,test_start,{'DEF',{'START_TIME','LOGDIR'}}}] ++
  
  
negative.code: 				{failed, {ct_cth_empty_SUITE, init_per_suite,
  					  {failed, "Test failure"}}}},[]]}},
  
  
       {?eh,test_done,{'DEF','STOP_TIME'}},
       {?eh,cth, {'_',terminate,[[]]}},
       {?eh,stop_logging,[]}
  