diff options
| author | Dan Gudmundsson <[email protected]> | 2016-01-18 12:50:18 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2016-05-09 14:55:59 +0200 |
| commit | e24275f3844e53366cdc2068b3c334f49d4ee081 (patch) | |
| tree | 11d5424c8ffbb3b674e7cfc0e47a3a5aa07e54d6 /lib/mnesia/test/mnesia_test_lib.erl | |
| parent | 6fad79dbddf78f6fa4a91bc922234437c8181b7b (diff) | |
| download | otp-e24275f3844e53366cdc2068b3c334f49d4ee081.tar.gz otp-e24275f3844e53366cdc2068b3c334f49d4ee081.tar.bz2 otp-e24275f3844e53366cdc2068b3c334f49d4ee081.zip | |
mnesia_ext: Add basic backend extension tests
Diffstat (limited to 'lib/mnesia/test/mnesia_test_lib.erl')
| -rw-r--r-- | lib/mnesia/test/mnesia_test_lib.erl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/mnesia/test/mnesia_test_lib.erl b/lib/mnesia/test/mnesia_test_lib.erl index 9d3b277e07..5042dbb1ce 100644 --- a/lib/mnesia/test/mnesia_test_lib.erl +++ b/lib/mnesia/test/mnesia_test_lib.erl @@ -142,6 +142,9 @@ %% included for test server compatibility %% assume that all test cases only takes Config as sole argument init_per_testcase(_Func, Config) -> + Env = application:get_all_env(mnesia), + [application:unset_env(mnesia, Key, [{timeout, infinity}]) || + {Key, _} <- Env, Key /= included_applications], global:register_name(mnesia_global_logger, group_leader()), Config. @@ -668,11 +671,13 @@ do_prepare([delete_schema | Actions], Selected, All, Config, File, Line) -> end, do_prepare(Actions, Selected, All, Config, File, Line); do_prepare([create_schema | Actions], Selected, All, Config, File, Line) -> + Ext = ?BACKEND, case diskless(Config) of true -> + rpc:multicall(Selected, application, set_env, [mnesia, schema, Ext]), skip; _Else -> - case mnesia:create_schema(Selected) of + case mnesia:create_schema(Selected, Ext) of ok -> ignore; BadNodes -> @@ -975,7 +980,6 @@ reload_appls([Appl | Appls], Selected) -> {Ok2temp, Empty} = rpc:multicall(Selected, application, unload, [Appl]), Conv = fun({error,{not_loaded,mnesia}}) -> ok; (Else) -> Else end, Ok2 = {lists:map(Conv, Ok2temp), Empty}, - Ok3 = rpc:multicall(Selected, application, load, [Appl]), if Ok /= Ok2 -> @@ -1040,7 +1044,8 @@ verify_replica_location(Tab, DiscOnly0, Ram0, Disc0, AliveNodes0) -> S1 = ?match(AliveNodes, lists:sort(mnesia:system_info(running_db_nodes))), S2 = ?match(DiscOnly, lists:sort(mnesia:table_info(Tab, disc_only_copies))), - S3 = ?match(Ram, lists:sort(mnesia:table_info(Tab, ram_copies))), + S3 = ?match(Ram, lists:sort(mnesia:table_info(Tab, ram_copies) ++ + mnesia:table_info(Tab, ext_ets))), S4 = ?match(Disc, lists:sort(mnesia:table_info(Tab, disc_copies))), S5 = ?match(Write, lists:sort(mnesia:table_info(Tab, where_to_write))), S6 = case lists:member(This, Read) of |