anchor.diff:  	  end),
       receive
   	{Tag,_} ->
  -	    ?t:fail()
  +	    ct:fail(should_be_suspended)
       after 3000 ->
   	    exit(Caller, ok)
       end,
  
positive.code: 	{'EXIT',Pid3,normal} ->
  	    ok
      after 5000 ->
  	    ?t:fail(gen_statem_did_not_die)
      end,
  
      %% Process not started using proc_lib
  
negative.code:     {formatted,State,Data};
  format_status(normal, [_Pdict,_State,_Data]) ->
      [format_status_called].
  
  flush() ->
      receive
  	Msg ->
  	    [Msg|flush()]
      after 0 ->
  	    []
      end.
  