aboutsummaryrefslogtreecommitdiffstats
path: root/lib/sasl
diff options
context:
space:
mode:
authorSiri Hansen <siri@erlang.org>2014-03-27 15:34:06 +0100
committerSiri Hansen <siri@erlang.org>2014-04-03 11:17:42 +0200
commit8b7ed9a291692b1f4858ecdf9b2b340403ce2564 (patch)
tree38e40dcea5656a1d9e63391a5210ed3e6d757772 /lib/sasl
parent8e4b29f081a604fb4b55ddfcadb7476b6d0b1e1b (diff)
downloadotp-8b7ed9a291692b1f4858ecdf9b2b340403ce2564.tar.gz
otp-8b7ed9a291692b1f4858ecdf9b2b340403ce2564.tar.bz2
otp-8b7ed9a291692b1f4858ecdf9b2b340403ce2564.zip
Add debug printouts in release_handler_SUITE:upgrade_gg
Diffstat (limited to 'lib/sasl')
-rw-r--r--lib/sasl/test/release_handler_SUITE.erl19
1 files changed, 19 insertions, 0 deletions
diff --git a/lib/sasl/test/release_handler_SUITE.erl b/lib/sasl/test/release_handler_SUITE.erl
index 2d108a6cad..55a467a4d5 100644
--- a/lib/sasl/test/release_handler_SUITE.erl
+++ b/lib/sasl/test/release_handler_SUITE.erl
@@ -2417,9 +2417,28 @@ check_gg_info(Node,OtherAlive,OtherDead,Synced) ->
?t:format("~ncheck_gg_info failed for ~p: ~p~nwhen GGI was: ~p~n"
"and GI was: ~p~n",
[Node,E,GGI,GI]),
+ %% An attempt to find out if it is only a timing issue
+ %% that makes this fail every now and then:
+ try_again_check(Node,GGI,GI,1),
?t:fail("check_gg_info failed")
end.
+try_again_check(_Node,_GGI,_GI,6) ->
+ ok;
+try_again_check(Node,GGI,GI,N) ->
+ timer:sleep(1000),
+ case {rpc:call(Node,global_group,info,[]),
+ rpc:call(Node,global,info,[])} of
+ {GGI,GI} ->
+ ?t:format("~nAfter one more sek, GGI and GI are still the same"),
+ try_again_check(Node,GGI,GI,N+1);
+ {NewGGI,NewGI} ->
+ ?t:format("~nAfter one more sek:~nNew GGI: ~p~nNew GI: ~p~n",
+ [NewGGI,NewGI]),
+ try_again_check(Node,NewGGI,NewGI,N+1)
+ end.
+
+
do_check_gg_info(OtherAlive,OtherDead,Synced,GGI,GI) ->
{_,gg1} = lists:keyfind(own_group_name,1,GGI),
{_,synced} = lists:keyfind(state,1,GGI),