anchor.diff:      true =
   	({current_function,{erlang,hibernate,3}} =/=
   	     erlang:process_info(Pid, current_function)),
  -    is_in_erlang_hibernate(Pid),
  +    wait_erlang_hibernate(Pid),
   
       'alive!' = gen_statem:call(Pid, 'alive?'),
       true =
   	({current_function,{erlang,hibernate,3}} =/=
   	     erlang:process_info(Pid, current_function)),
       Pid ! hibernate_now,
  -    is_in_erlang_hibernate(Pid),
  +    wait_erlang_hibernate(Pid),
   
       'alive!' = gen_statem:call(Pid, 'alive?'),
       true =
  
positive.code:     end,
      is_not_in_erlang_hibernate(Pid),
      timer:sleep(HibernateAfterTimeout),
      is_in_erlang_hibernate(Pid),
      %% After call test
      hpong = gen_statem:call(Pid, hping),
      is_not_in_erlang_hibernate(Pid),
      timer:sleep(HibernateAfterTimeout),
      is_in_erlang_hibernate(Pid),
      %% Timer test 1
      TimerTimeout1 = 50,
      ok = gen_statem:call(Pid, {arm_htimer, self(), TimerTimeout1}),
      is_not_in_erlang_hibernate(Pid),
      timer:sleep(TimerTimeout1),
      is_not_in_erlang_hibernate(Pid),
      receive
          {Pid, htimer_armed} ->
              ok
      after 1000 ->
          ct:fail(timer1)
      end,
      is_not_in_erlang_hibernate(Pid),
      timer:sleep(HibernateAfterTimeout),
      is_in_erlang_hibernate(Pid),
      %% Timer test 2
      TimerTimeout2 = 150,
      ok = gen_statem:call(Pid, {arm_htimer, self(), TimerTimeout2}),
      is_not_in_erlang_hibernate(Pid),
      timer:sleep(HibernateAfterTimeout),
      is_in_erlang_hibernate(Pid),
      receive
          {Pid, htimer_armed} ->
              ok
      after 1000 ->
          ct:fail(timer2)
      end,
      is_not_in_erlang_hibernate(Pid),
      timer:sleep(HibernateAfterTimeout),
      is_in_erlang_hibernate(Pid),
      stop_it(Pid),
      process_flag(trap_exit, OldFl),
      receive
  
negative.code:     end,
      is_not_in_erlang_hibernate(Pid),
      timer:sleep(HibernateAfterTimeout),
      wait_erlang_hibernate(Pid),
      %% After cast test
      ok = gen_statem:cast(Pid, {hping, self()}),
      receive
  