Optimize gen_event_SUITE:hibernate/1

The running time for gen_event_SUITE:hibernate/1 is about 20 seconds
because of 1000 ms sleeps in the test case. Introduce helper
functions to avoid sleeping more than necessary.

While we are it, also remove all ?line macros in the test case.

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) -> [];