Add more triumphant configuration system for controlling BDB in unit tests
This commit is contained in:
parent
7e7bbe574a
commit
3b9ba443f1
1 changed files with 7 additions and 2 deletions
|
@ -10,7 +10,7 @@
|
||||||
|
|
||||||
-include_lib("ct.hrl").
|
-include_lib("ct.hrl").
|
||||||
|
|
||||||
ball() ->
|
all() ->
|
||||||
[open_should_create_database_if_none_exists,
|
[open_should_create_database_if_none_exists,
|
||||||
open_should_allow_opening_multiple_databases,
|
open_should_allow_opening_multiple_databases,
|
||||||
close_should_fail_with_invalid_db_handle,
|
close_should_fail_with_invalid_db_handle,
|
||||||
|
@ -30,11 +30,16 @@ ball() ->
|
||||||
delete_should_remove_file,
|
delete_should_remove_file,
|
||||||
delete_should_fail_if_db_inuse].
|
delete_should_fail_if_db_inuse].
|
||||||
|
|
||||||
|
dbconfig(Config) ->
|
||||||
|
Cfg = [{set_data_dir, ?config(priv_dir, Config)},
|
||||||
|
{set_flags, 'DB_TXN_NOSYNC'}],
|
||||||
|
list_to_binary(lists:flatten([io_lib:format("~s ~s\n", [K,V]) || {K, V} <- Cfg])).
|
||||||
|
|
||||||
|
|
||||||
init_per_suite(Config) ->
|
init_per_suite(Config) ->
|
||||||
DbHome = ?config(priv_dir, Config),
|
DbHome = ?config(priv_dir, Config),
|
||||||
os:putenv("DB_HOME", DbHome),
|
os:putenv("DB_HOME", DbHome),
|
||||||
ok = file:write_file(DbHome ++ "DB_CONFIG", <<"set_data_dir ", (list_to_binary(DbHome))/binary, "\n">>),
|
ok = file:write_file(DbHome ++ "DB_CONFIG", dbconfig(Config)),
|
||||||
Config.
|
Config.
|
||||||
|
|
||||||
end_per_suite(_Config) ->
|
end_per_suite(_Config) ->
|
||||||
|
|
Loading…
Reference in a new issue