anchor.diff:  		    io:format(" => suite init failed: ~p~n", [Error]),
   		    [{failed, {Mod, init_per_suite}, Error}]
   	    catch 
  -		exit:{skipped, SkipReason} ->
  +		exit:{skip, SkipReason} ->
   		    io:format(" => skipping suite: ~p~n", [SkipReason]),
  -		    [{skipped, {Mod, init_per_suite}, SkipReason, 0}];
  +		    [{skip, {Mod, init_per_suite}, SkipReason, 0}];
   		error:undef ->
   		    [t({Mod, Case, Groups}, Config) || Case <- Cases];
   		T:E ->
  
positive.code: 			      [Name, Error]),
  		    [{failed, {Mod, Group}, Error}]
  	    catch
  		exit:{skipped, SkipReason} ->
  		    io:format(" => skipping group: ~p~n", [SkipReason]),
  		    [{skipped, {Mod, Group}, SkipReason, 0}];
  		error:undef ->
  		    [t({Mod, Case, Groups}, Config) || 
  			      Case <- GroupsAndCases];
  
negative.code: 	    megaco:report_event(20, Mod, ?MODULE, Label ++ " failed",
  				[TestCase, Config, {return, Fail}, Errors]),
  	    {failed, {Mod,Fun}, Fail, Time};
  	{'EXIT', Pid, {skip, Reason}, Time} -> 
  	    megaco:report_event(20, Mod, ?MODULE, Label ++ " skipped",
  				[TestCase, Config, {skip, Reason}]),
  	    {skip, {Mod, Fun}, Errors, Time};
  	{'EXIT', Pid, Reason, Time} -> 
  	    megaco:report_event(20, Mod, ?MODULE, Label ++ " crashed",
  				[TestCase, Config, {'EXIT', Reason}]),
  