diff options
| author | Dan Gudmundsson <[email protected]> | 2015-03-11 15:55:35 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2015-03-11 15:55:35 +0100 |
| commit | 47c44f3de3d5bf4251c35cf49474c3e29ad2933b (patch) | |
| tree | b83b3692b1a1484284e16cf1fb1e29a39eed03fe /lib/mnesia/test/mnesia_recovery_test.erl | |
| parent | f0f727d1d22282786048d8024e60bb2f24e7202e (diff) | |
| parent | 1f4075e70f7511b8dedbb75344478fa27cbe6495 (diff) | |
| download | otp-47c44f3de3d5bf4251c35cf49474c3e29ad2933b.tar.gz otp-47c44f3de3d5bf4251c35cf49474c3e29ad2933b.tar.bz2 otp-47c44f3de3d5bf4251c35cf49474c3e29ad2933b.zip | |
Merge branch 'dgud/testcasecuddle' into maint
* dgud/testcasecuddle:
mnesia: Flush late messages
Add Debug info
mnesia: better debug info when tests fail
mnesia: Ensure tables are loaded before testing them
Diffstat (limited to 'lib/mnesia/test/mnesia_recovery_test.erl')
| -rw-r--r-- | lib/mnesia/test/mnesia_recovery_test.erl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lib/mnesia/test/mnesia_recovery_test.erl b/lib/mnesia/test/mnesia_recovery_test.erl index 0d0ad32fb0..946a9f97ba 100644 --- a/lib/mnesia/test/mnesia_recovery_test.erl +++ b/lib/mnesia/test/mnesia_recovery_test.erl @@ -320,7 +320,9 @@ read_during_down(Op, Config) when is_list(Config) -> ?log("W2R ~p~n", [W2R]), loop_and_kill_mnesia(10, hd(W2R), Tabs), [Pid ! self() || Pid <- Readers], - ?match([ok, ok, ok], [receive ok -> ok after 1000 -> {Pid, mnesia_lib:dist_coredump()} end || Pid <- Readers]), + ?match([ok, ok, ok], + [receive ok -> ok after 5000 -> {Pid, mnesia_lib:dist_coredump()} end + || Pid <- Readers]), ?verify_mnesia(Ns, []). reader(Tab, OP) -> @@ -338,8 +340,12 @@ reader(Tab, OP) -> ?error("Expected ~p Got ~p ~n", [[{Tab, key, val}], Else]), erlang:error(test_failed) end, - receive Pid -> - Pid ! ok + receive + Pid when is_pid(Pid) -> + Pid ! ok; + Other -> + io:format("Msg: ~p~n", [Other]), + error(Other) after 50 -> reader(Tab, OP) end. @@ -1537,6 +1543,7 @@ disc_less(Config) when is_list(Config) -> timer:sleep(500), ?match(ok, rpc:call(Node3, mnesia, start, [[{extra_db_nodes, [Node1, Node2]}]])), ?match(ok, rpc:call(Node3, mnesia, wait_for_tables, [[Tab1, Tab2, Tab3], 20000])), + ?match(ok, rpc:call(Node1, mnesia, wait_for_tables, [[Tab1, Tab2, Tab3], 20000])), ?match(ok, rpc:call(Node3, ?MODULE, verify_data, [Tab1, 100])), ?match(ok, rpc:call(Node3, ?MODULE, verify_data, [Tab2, 100])), |