Eliminate use of ?config() macro

?config is ugly and not recommended. Use proplists:get_value/2
instead.

1 files changed, 13 insertions, 13 deletions

diff --git a/lib/kernel/test/global_group_SUITE.erl b/lib/kernel/test/global_group_SUITE.erl
index 410ade37e6..7d01a446eb 100644
--- a/lib/kernel/test/global_group_SUITE.erl
+++ b/lib/kernel/test/global_group_SUITE.erl
@@ -79,7 +79,7 @@ end_per_suite(_Config) ->
     ok.
 
 -define(TESTCASE, testcase_name).
--define(testcase, ?config(?TESTCASE, Config)).
+-define(testcase, proplists:get_value(?TESTCASE, Config)).
 
 init_per_testcase(Case, Config) ->
     Config.
@@ -97,7 +97,7 @@ end_per_testcase(_Func, _Config) ->
 start_gg_proc(suite) -> [];
 start_gg_proc(doc) -> ["Check that the global_group processes are started automatically. "];
 start_gg_proc(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "global_group.config"),
     ?line {ok, Fd}=file:open(File, [write]),
     [Ncp1,Ncp2,Ncp3] = node_names([cp1, cp2, cp3], Config),
@@ -129,7 +129,7 @@ no_gg_proc(suite) -> [];
 no_gg_proc(doc) -> ["Start a system without global groups. Nodes are not "
 		    "synced at start (sync_nodes_optional is not defined)"];
 no_gg_proc(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "no_global_group.config"),
     ?line {ok, Fd} = file:open(File, [write]),
     ?line config_no(Fd),
@@ -299,7 +299,7 @@ no_gg_proc_sync(doc) ->
     ["Start a system without global groups, but syncing the nodes by using " 
      "sync_nodes_optional."];
 no_gg_proc_sync(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "no_global_group_sync.config"),
     ?line {ok, Fd} = file:open(File, [write]),
 
@@ -470,7 +470,7 @@ compatible(suite) -> [];
 compatible(doc) -> 
     ["Check that a system without global groups is compatible with the old R4 system."];
 compatible(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "global_group_comp.config"),
     ?line {ok, Fd} = file:open(File, [write]),
 
@@ -640,7 +640,7 @@ compatible(Config) when is_list(Config) ->
 one_grp(suite) -> [];
 one_grp(doc) -> ["Test a system with only one global group. "];
 one_grp(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "global_group.config"),
     ?line {ok, Fd} = file:open(File, [write]),
     [Ncp1,Ncp2,Ncp3] = node_names([cp1, cp2, cp3], Config),
@@ -724,7 +724,7 @@ one_grp_x(suite) -> [];
 one_grp_x(doc) -> ["Check a system with only one global group. "
 		   "Start the nodes with different time intervals. "];
 one_grp_x(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "global_group.config"),
     ?line {ok, Fd} = file:open(File, [write]),
     [Ncp1,Ncp2,Ncp3] = node_names([cp1, cp2, cp3], Config),
@@ -783,7 +783,7 @@ one_grp_x(Config) when is_list(Config) ->
 two_grp(suite) -> [];
 two_grp(doc) -> ["Test a two global group system. "];
 two_grp(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "global_group.config"),
     ?line {ok, Fd} = file:open(File, [write]),
 
@@ -1080,7 +1080,7 @@ two_grp(Config) when is_list(Config) ->
 hidden_groups(suite) -> [];
 hidden_groups(doc) -> ["Test hidden global groups."];
 hidden_groups(Config) when is_list(Config) ->
-    ?line Dir = ?config(priv_dir, Config),
+    Dir = proplists:get_value(priv_dir, Config),
     ?line File = filename:join(Dir, "global_group.config"),
     ?line {ok, Fd} = file:open(File, [write]),
 
@@ -1180,25 +1180,25 @@ test_exit(Config) when is_list(Config) ->
 
 start_node(Name, Config) ->
     Pa=filename:dirname(code:which(?MODULE)),
-    Dir=?config(priv_dir, Config),
+    Dir=proplists:get_value(priv_dir, Config),
     ConfFile = "  -config " ++ filename:join(Dir, "global_group"),
     test_server:start_node(Name, slave, [{args, "-pa " ++ Pa ++ ConfFile}]).
 
 start_node_no(Name, Config) ->
     Pa=filename:dirname(code:which(?MODULE)),
-    Dir=?config(priv_dir, Config),
+    Dir=proplists:get_value(priv_dir, Config),
     ConfFile = "  -config " ++ filename:join(Dir, "no_global_group"),
     test_server:start_node(Name, slave, [{args, "-pa " ++ Pa ++ ConfFile}]).
 
 start_node_no2(Name, Config) ->
     Pa=filename:dirname(code:which(?MODULE)),
-    Dir=?config(priv_dir, Config),
+    Dir=proplists:get_value(priv_dir, Config),
     ConfFile = "  -config " ++ filename:join(Dir, "no_global_group_sync"),
     test_server:start_node(Name, slave, [{args, "-pa " ++ Pa ++ ConfFile}]).
 
 start_node_comp(Name, Config) ->
     Pa=filename:dirname(code:which(?MODULE)),
-    Dir=?config(priv_dir, Config),
+    Dir=proplists:get_value(priv_dir, Config),
     ConfFile = "  -config " ++ filename:join(Dir, "global_group_comp"),
     test_server:start_node(Name, slave, [{args, "-pa " ++ Pa ++ ConfFile}]).