diff options
author | Siri Hansen <siri@erlang.org> | 2014-03-27 15:34:06 +0100 |
---|---|---|
committer | Siri Hansen <siri@erlang.org> | 2014-04-03 11:17:42 +0200 |
commit | 8b7ed9a291692b1f4858ecdf9b2b340403ce2564 (patch) | |
tree | 38e40dcea5656a1d9e63391a5210ed3e6d757772 /lib/sasl | |
parent | 8e4b29f081a604fb4b55ddfcadb7476b6d0b1e1b (diff) | |
download | otp-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.erl | 19 |
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), |