diff options
| author | Dan Gudmundsson <[email protected]> | 2011-11-11 11:21:44 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2011-11-11 11:21:44 +0100 |
| commit | edf830a338e78cfe88eee181b1e60a5f3f6b671b (patch) | |
| tree | 121136addec02fd343a0fbb8020a9f6952985a79 /lib/mnesia/test/mnesia_install_test.erl | |
| parent | 857e8a96dc7902e7d6a97ea510a0ce0e69731631 (diff) | |
| parent | 758e7b817293f7da71c5bdf2c2e2eb6f70e23687 (diff) | |
| download | otp-edf830a338e78cfe88eee181b1e60a5f3f6b671b.tar.gz otp-edf830a338e78cfe88eee181b1e60a5f3f6b671b.tar.bz2 otp-edf830a338e78cfe88eee181b1e60a5f3f6b671b.zip | |
Merge branch 'maint-r14'
Diffstat (limited to 'lib/mnesia/test/mnesia_install_test.erl')
| -rw-r--r-- | lib/mnesia/test/mnesia_install_test.erl | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/lib/mnesia/test/mnesia_install_test.erl b/lib/mnesia/test/mnesia_install_test.erl index 5d55fcac0e..3a2d44aa95 100644 --- a/lib/mnesia/test/mnesia_install_test.erl +++ b/lib/mnesia/test/mnesia_install_test.erl @@ -205,7 +205,7 @@ silly_upgrade(Config) when is_list(Config) -> ?match(ok, mnesia:install_fallback(Bup2)), file:delete(Bup2), %% Will generate intentional crash, fatal error - ?match([], mnesia_test_lib:stop_mnesia([Node2])), + ?match([], mnesia_test_lib:stop_mnesia([Node2])), wait_till_dead([Node1, Node2]), ?match([], mnesia_test_lib:start_mnesia([Node1, Node2], [Tab1, Tab2])), ?match(match, verify_state(Tab1, Tab2, CpState)), @@ -213,22 +213,29 @@ silly_upgrade(Config) when is_list(Config) -> ?match(ok, mnesia:install_fallback(Bup)), file:delete(Bup), %% Will generate intentional crash, fatal error - ?match([], mnesia_test_lib:stop_mnesia([Node1, Node2])), + ?match([], mnesia_test_lib:stop_mnesia([Node1, Node2])), wait_till_dead([Node1, Node2]), ?match([], mnesia_test_lib:start_mnesia([Node1, Node2], [Tab1, Tab2])), CpState2 = [X || X <- CpState, element(1, X) /= Tab1], ?match(match, verify_state(Tab1, Tab2, CpState2)), ?verify_mnesia(Nodes, []). -wait_till_dead([]) -> ok; -wait_till_dead([N|Ns]) -> +wait_till_dead([]) -> + ok; %% timer:sleep(5); +wait_till_dead(Repeat = [N|Ns]) -> Apps = rpc:call(N, application, which_applications, []), case lists:keymember(mnesia, 1, Apps) of - true -> + true -> timer:sleep(10), - wait_till_dead([N|Ns]); - false -> - wait_till_dead(Ns) + wait_till_dead(Repeat); + false -> + case rpc:call(N, erlang, whereis, [mnesia_monitor]) of + undefined -> + wait_till_dead(Ns); + _ -> + timer:sleep(10), + wait_till_dead(Repeat) + end end. add_some_records(Tab1, Tab2, Old) -> |