Merge branch 'bjorn/stdlib/cuddle-with-tests'

* bjorn/stdlib/cuddle-with-tests:
  Eliminate deprecated now/0 used as timestamp
  Eliminate use of now/0 for creating a unique filename
  Eliminate use of deprecated now/0 for measuring time
  Eliminate use of deprecated now/0 for random number generation
  Speed up timer_simple_SUITE:timer_perf/1
  Speed up timer_SUITE
  Optimize gen_server_SUITE:hibernate/1
  Optimize gen_event_SUITE:hibernate/1
  Optimize gen_fsm_SUITE:hibernate/1
  Optimize unicode_SUITE:ex_binaries_errors* test cases
  Optimize unicode_SUITE:binaries_errors/1
  binary_module_SUITE: Remove unnecessary calls to the binref module
  Optimize binary_module:random_ref_comp/1
  Optimize io_proto_SUITE:unicode_options_gen/1

1 files changed, 94 insertions, 79 deletions

diff --git a/lib/stdlib/test/gen_event_SUITE.erl b/lib/stdlib/test/gen_event_SUITE.erl
index 576a5adfce..6c28eb00c3 100644
--- a/lib/stdlib/test/gen_event_SUITE.erl
+++ b/lib/stdlib/test/gen_event_SUITE.erl
@@ -131,90 +131,105 @@ start(Config) when is_list(Config) ->
     ok.
 
 
-hibernate(suite) -> [];
 hibernate(Config) when is_list(Config) ->
-    ?line {ok,Pid} = gen_event:start({local, my_dummy_handler}),
-    ?line ok = gen_event:add_handler(my_dummy_handler, dummy_h, [self()]),
-    ?line [dummy_h] = gen_event:which_handlers(my_dummy_handler),
-    ?line true = gen_event:call(my_dummy_handler, dummy_h, hibernate),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line Pid ! wake,
-    ?line receive after 1000 -> ok end,
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),    
-    ?line later = gen_event:call(my_dummy_handler, dummy_h, hibernate_later),
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),    
-    ?line receive after 2000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line Pid ! wake,
-    ?line receive after 1000 -> ok end,
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),    
-    ?line gen_event:notify(my_dummy_handler,hibernate),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line gen_event:notify(my_dummy_handler,wakeup),
-    ?line receive after 1000 -> ok end,
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),    
-    ?line gen_event:notify(my_dummy_handler,hibernate),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line gen_event:sync_notify(my_dummy_handler,wakeup),
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),    
-    ?line ok = gen_event:sync_notify(my_dummy_handler,hibernate),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line Pid ! wake,
-    ?line receive after 1000 -> ok end,
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),
-    ?line ok = gen_event:add_handler(my_dummy_handler, dummy1_h, [self()]),
-    ?line [_,_] = gen_event:which_handlers(my_dummy_handler),
-    ?line gen_event:notify(my_dummy_handler,hibernate),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line gen_event:notify(my_dummy_handler,wakeup),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line Pid ! wake,
-    ?line receive after 1000 -> ok end,
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),
-    ?line Pid ! gnurf,
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line Pid ! sleep,
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid,current_function),
-    ?line Pid ! wake,
-    ?line receive after 1000 -> ok end,
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid,current_function)),
-    ?line ok = gen_event:stop(my_dummy_handler),
-    ?line {ok,Pid2} = gen_event:start({local, my_dummy_handler}),
-    ?line ok = gen_event:add_handler(my_dummy_handler, dummy_h, [self(),hibernate]),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid2,current_function),
-    ?line sys:suspend(my_dummy_handler),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid2,current_function),
-    ?line sys:resume(my_dummy_handler),
-    ?line receive after 1000 -> ok end,
-    ?line {current_function,{erlang,hibernate,3}} = erlang:process_info(Pid2,current_function),
-    ?line Pid2 ! wake,
-    ?line receive after 1000 -> ok end,
-    ?line true = ({current_function,{erlang,hibernate,3}} =/= 
-		  erlang:process_info(Pid2,current_function)),
+    {ok,Pid} = gen_event:start({local, my_dummy_handler}),
+    ok = gen_event:add_handler(my_dummy_handler, dummy_h, [self()]),
+    [dummy_h] = gen_event:which_handlers(my_dummy_handler),
+    true = gen_event:call(my_dummy_handler, dummy_h, hibernate),
+    is_in_erlang_hibernate(Pid),
+
+    Pid ! wake,
+    is_not_in_erlang_hibernate(Pid),
+    later = gen_event:call(my_dummy_handler, dummy_h, hibernate_later),
+    true = ({current_function,{erlang,hibernate,3}} =/=
+		erlang:process_info(Pid, current_function)),
+    is_in_erlang_hibernate(Pid),
+
+    Pid ! wake,
+    is_not_in_erlang_hibernate(Pid),
+    gen_event:notify(my_dummy_handler, hibernate),
+    is_in_erlang_hibernate(Pid),
+    gen_event:notify(my_dummy_handler, wakeup),
+    is_not_in_erlang_hibernate(Pid),
+    gen_event:notify(my_dummy_handler, hibernate),
+    is_in_erlang_hibernate(Pid),
+    gen_event:sync_notify(my_dummy_handler, wakeup),
+    true = ({current_function,{erlang,hibernate,3}} =/=
+		erlang:process_info(Pid, current_function)),
+    ok = gen_event:sync_notify(my_dummy_handler, hibernate),
+    is_in_erlang_hibernate(Pid),
+
+    Pid ! wake,
+    is_not_in_erlang_hibernate(Pid),
+    ok = gen_event:add_handler(my_dummy_handler, dummy1_h, [self()]),
+    [_,_] = gen_event:which_handlers(my_dummy_handler),
+    gen_event:notify(my_dummy_handler, hibernate),
+    is_in_erlang_hibernate(Pid),
+    gen_event:notify(my_dummy_handler, wakeup),
+    is_in_erlang_hibernate(Pid),
+
+    Pid ! wake,
+    is_not_in_erlang_hibernate(Pid),
+
+    Pid ! gnurf,
+    is_in_erlang_hibernate(Pid),
+
+    Pid ! sleep,
+    is_in_erlang_hibernate(Pid),
+
+    Pid ! wake,
+    is_not_in_erlang_hibernate(Pid),
+    ok = gen_event:stop(my_dummy_handler),
+
+    {ok,Pid2} = gen_event:start({local, my_dummy_handler}),
+    ok = gen_event:add_handler(my_dummy_handler, dummy_h,
+				     [self(),hibernate]),
+    is_in_erlang_hibernate(Pid2),
+    sys:suspend(my_dummy_handler),
+    is_in_erlang_hibernate(Pid2),
+    sys:resume(my_dummy_handler),
+    is_in_erlang_hibernate(Pid2),
+
+    Pid2 ! wake,
+    is_not_in_erlang_hibernate(Pid2),
    
-
-    ?line ok = gen_event:stop(my_dummy_handler),
+    ok = gen_event:stop(my_dummy_handler),
 
     ok.
 
+is_in_erlang_hibernate(Pid) ->
+    receive after 1 -> ok end,
+    is_in_erlang_hibernate_1(200, Pid).
+
+is_in_erlang_hibernate_1(0, Pid) ->
+    io:format("~p\n", [erlang:process_info(Pid, current_function)]),
+    ?t:fail(not_in_erlang_hibernate_3);
+is_in_erlang_hibernate_1(N, Pid) ->
+    {current_function,MFA} = erlang:process_info(Pid, current_function),
+    case MFA of
+	{erlang,hibernate,3} ->
+	    ok;
+	_ ->
+	    receive after 10 -> ok end,
+	    is_in_erlang_hibernate_1(N-1, Pid)
+    end.
+
+is_not_in_erlang_hibernate(Pid) ->
+    receive after 1 -> ok end,
+    is_not_in_erlang_hibernate_1(200, Pid).
+
+is_not_in_erlang_hibernate_1(0, Pid) ->
+    io:format("~p\n", [erlang:process_info(Pid, current_function)]),
+    ?t:fail(not_in_erlang_hibernate_3);
+is_not_in_erlang_hibernate_1(N, Pid) ->
+    {current_function,MFA} = erlang:process_info(Pid, current_function),
+    case MFA of
+	{erlang,hibernate,3} ->
+	    receive after 10 -> ok end,
+	    is_not_in_erlang_hibernate_1(N-1, Pid);
+	_ ->
+	    ok
+    end.
 
 
 add_handler(doc) -> [];