The R13B03 release.OTP_R13B03

1 files changed, 2535 insertions, 0 deletions

diff --git a/lib/snmp/test/snmp_manager_config_test.erl b/lib/snmp/test/snmp_manager_config_test.erl
new file mode 100644
index 0000000000..51325996e6
--- /dev/null
+++ b/lib/snmp/test/snmp_manager_config_test.erl
@@ -0,0 +1,2535 @@
+%% 
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2004-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%% 
+
+%%----------------------------------------------------------------------
+%% Purpose:
+%% 
+%% Test:
+%% ts:run().
+%% ts:run(snmp, [batch]).
+%% ts:run(snmp, snmp_manager_config_test, [batch]).
+%% 
+%%----------------------------------------------------------------------
+-module(snmp_manager_config_test).
+
+%%----------------------------------------------------------------------
+%% Include files
+%%----------------------------------------------------------------------
+-include("test_server.hrl").
+-include("snmp_test_lib.hrl").
+-include_lib("snmp/src/manager/snmpm_usm.hrl").
+
+
+%%----------------------------------------------------------------------
+%% External exports
+%%----------------------------------------------------------------------
+%% -compile(export_all).
+
+-export([
+	 all/1, 
+         init_per_testcase/2, fin_per_testcase/2,
+
+	 start_and_stop/1,
+
+	 simple_start_and_stop/1,
+	 start_without_mandatory_opts1/1,
+	 start_without_mandatory_opts2/1,
+	 start_with_all_valid_opts/1,
+	 start_with_unknown_opts/1,
+	 start_with_incorrect_opts/1,
+	 start_with_invalid_manager_conf_file1/1,
+	 start_with_invalid_users_conf_file1/1,
+	 start_with_invalid_agents_conf_file1/1,
+	 start_with_invalid_usm_conf_file1/1,
+
+	 normal_op/1,
+
+	 system/1,
+	 simple_system_op/1,
+
+	 users/1,
+	 register_user_using_file/1,
+	 register_user_using_function/1,
+	 register_user_failed_using_function1/1,
+
+	 agents/1,
+	 register_agent_using_file/1,
+	 register_agent_using_function/1,
+	 register_agent_failed_using_function1/1,
+
+	 usm_users/1,
+	 register_usm_user_using_file/1,
+	 register_usm_user_using_function/1,
+	 register_usm_user_failed_using_function1/1,
+	 update_usm_user_info/1, 
+
+	 counter/1,
+	 create_and_increment/1,
+
+	 stats_counter/1,
+	 stats_create_and_increment/1,
+
+	 tickets/1,
+	 otp_7219/1
+
+	]).
+
+%%----------------------------------------------------------------------
+%% Internal exports
+%%----------------------------------------------------------------------
+-export([
+        ]).
+
+
+%%----------------------------------------------------------------------
+%% Macros
+%%----------------------------------------------------------------------
+
+
+%%----------------------------------------------------------------------
+%% Records
+%%----------------------------------------------------------------------
+
+
+%%======================================================================
+%% External functions
+%%======================================================================
+
+init_per_testcase(Case, Config) when is_list(Config) ->
+    p("init_per_testcase -> Case: ~p", [Case]),
+    SnmpPrivDir = ?config(priv_dir, Config),
+    p("init_per_testcase -> SnmpPrivDir: ~p", [SnmpPrivDir]),
+    SuiteDir = atom_to_list(?MODULE),
+    SuiteTopDir = filename:join(SnmpPrivDir, SuiteDir),
+    case file:make_dir(SuiteTopDir) of
+	ok ->
+	    ok;
+	{error, eexist} ->
+	    ok;
+	{error, Reason} ->
+	    ?FAIL({failed_creating, SuiteTopDir, Reason})
+    end,
+    p("init_per_testcase -> SuiteTopDir: ~p", [SuiteTopDir]),
+    CaseDir = atom_to_list(Case),
+    ?line ok = 
+	file:make_dir(CaseTopDir = filename:join(SuiteTopDir, CaseDir)),
+    p("init_per_testcase -> CaseTopDir: ~p", [CaseTopDir]),
+    ?line ok = 
+	file:make_dir(MgrTopDir  = filename:join(CaseTopDir, "manager/")),
+    ?line ok = 
+	file:make_dir(MgrConfDir = filename:join(MgrTopDir,   "conf/")),
+    ?line ok = 
+	file:make_dir(MgrDbDir   = filename:join(MgrTopDir,   "db/")),
+    ?line ok = 
+	file:make_dir(MgrLogDir  = filename:join(MgrTopDir,   "log/")),
+    [{case_top_dir,     CaseTopDir},
+     {manager_dir,      MgrTopDir},
+     {manager_conf_dir, MgrConfDir},
+     {manager_db_dir,   MgrDbDir},
+     {manager_log_dir,  MgrLogDir} | Config].
+
+
+fin_per_testcase(Case, Config) when is_list(Config) ->
+    p("fin_per_testcase -> Case: ~p", [Case]),
+    %% The cleanup is removed due to some really discusting NFS behaviour...
+    %% CaseTopDir = ?config(manager_dir, Config),
+    %% ?line ok = ?DEL_DIR(CaseTopDir),
+    Config.
+
+
+%%======================================================================
+%% Test case definitions
+%%======================================================================
+% all(doc) ->
+%     "The top snmp manager config test case";
+all(suite) ->
+    [
+     start_and_stop,
+     normal_op,
+     tickets
+    ].
+
+
+%%======================================================================
+%% Test functions
+%%======================================================================
+
+start_and_stop(doc) ->
+    "A collection of start and stop tests";
+start_and_stop(suite) ->
+    [
+     simple_start_and_stop,
+     start_without_mandatory_opts1,
+     start_without_mandatory_opts2,
+     start_with_all_valid_opts,
+     start_with_unknown_opts,
+     start_with_incorrect_opts,
+     start_with_invalid_manager_conf_file1,
+     start_with_invalid_users_conf_file1,
+     start_with_invalid_agents_conf_file1,
+     start_with_invalid_usm_conf_file1
+    ].
+
+
+%% 
+%% ---
+%% 
+
+simple_start_and_stop(suite) -> [];
+simple_start_and_stop(doc) ->
+    "Start the snmp manager config process with the \n"
+	"minimum setof options (config dir).";
+simple_start_and_stop(Conf) when is_list(Conf) ->
+    put(tname,ssas),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    write_manager_conf(ConfDir),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    ?line {ok, _Pid} = snmpm_config:start_link(Opts),
+    ?line ok = snmpm_config:stop(),
+
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_without_mandatory_opts1(suite) -> [];
+start_without_mandatory_opts1(doc) ->
+    "Start the snmp manager config process with some of the \n"
+	"mandatory options missing.";
+start_without_mandatory_opts1(Conf) when is_list(Conf) ->
+    put(tname,swomo1),
+    put(verbosity,trace),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    write_manager_conf(ConfDir),
+    
+
+    %% config, but no dir:
+    p("config option, but no dir"),
+    Opts = [{priority, normal}, 
+	    {config, [{verbosity, trace}, {db_dir, DbDir}]}, {mibs, []}],
+    ?line {error, {missing_mandatory,dir}} = config_start(Opts),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_without_mandatory_opts2(suite) -> [];
+start_without_mandatory_opts2(doc) ->
+    "Start the snmp manager config process with some of the \n"
+	"mandatory options missing.";
+start_without_mandatory_opts2(Conf) when is_list(Conf) ->
+    put(tname,swomo2),
+    put(verbosity,trace),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+
+    write_manager_conf(ConfDir),
+    
+
+    %% Second set of options (no config):
+    p("no config option"),
+    Opts = [{priority, normal}, 
+	    {mibs, []}],
+    ?line {error, {missing_mandatory,config,[dir, db_dir]}} = 
+	config_start(Opts),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_with_all_valid_opts(suite) -> [];
+start_with_all_valid_opts(doc) ->
+    "Start the snmp manager config process with the \n"
+	"complete set of all the valid options.";
+start_with_all_valid_opts(Conf) when is_list(Conf) ->
+    put(tname,swavo),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+    LogDir  = ?config(manager_log_dir, Conf),
+    StdMibDir = filename:join(code:priv_dir(snmp), "mibs") ++ "/",
+
+    write_manager_conf(ConfDir),
+    
+
+    %% Third set of options (no versions):
+    p("all options"),
+    NetIfOpts  = [{module,    snmpm_net_if}, 
+		  {verbosity, trace},
+		  {options,   [{recbuf,   30000},
+			       {bind_to,  false},
+			       {no_reuse, false}]}],
+    ServerOpts = [{timeout, 10000}, {verbosity, trace}],
+    NoteStoreOpts = [{timeout, 20000}, {verbosity, trace}],
+    ConfigOpts = [{dir, ConfDir}, {verbosity, trace}, {db_dir, DbDir}],
+    Mibs = [join(StdMibDir, "SNMP-NOTIFICATION-MIB"),
+	    join(StdMibDir, "SNMP-USER-BASED-SM-MIB")],
+    Prio = normal,
+    ATL  = [{type,   read_write}, 
+	    {dir,    LogDir}, 
+	    {size,   {10,10240}},
+	    {repair, true}],
+    Vsns = [v1,v2,v3],
+    Opts = [{config,          ConfigOpts},
+	    {net_if,          NetIfOpts},
+	    {server,          ServerOpts},
+	    {note_store,      NoteStoreOpts},
+	    {audit_trail_log, ATL},
+	    {priority,        Prio}, 
+	    {mibs,            Mibs},
+	    {versions,        Vsns}],
+    ?line {ok, _Pid} = config_start(Opts),
+    ?line ok = config_stop(),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_with_unknown_opts(suite) -> [];
+start_with_unknown_opts(doc) ->
+    "Start the snmp manager config process when some of\n"
+	"the options are unknown.";
+start_with_unknown_opts(Conf) when is_list(Conf) ->
+    put(tname,swuo),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+    LogDir  = ?config(manager_log_dir, Conf),
+    StdMibDir = filename:join(code:priv_dir(snmp), "mibs") ++ "/",
+
+    write_manager_conf(ConfDir),
+    
+
+    %% Third set of options (no versions):
+    p("all options"),
+    NetIfOpts  = [{module,    snmpm_net_if}, 
+		  {verbosity, trace},
+		  {options,   [{recbuf,   30000},
+			       {bind_to,  false},
+			       {no_reuse, false}]}],
+    ServerOpts = [{timeout, 10000}, {verbosity, trace}],
+    NoteStoreOpts = [{timeout, 20000}, {verbosity, trace}],
+    ConfigOpts = [{dir, ConfDir}, {verbosity, trace}, {db_dir, DbDir}],
+    Mibs = [join(StdMibDir, "SNMP-NOTIFICATION-MIB"),
+	    join(StdMibDir, "SNMP-USER-BASED-SM-MIB")],
+    Prio = normal,
+    ATL  = [{type,   read_write}, 
+	    {dir,    LogDir}, 
+	    {size,   {10,10240}},
+	    {repair, true}],
+    Vsns = [v1,v2,v3],
+    Opts = [{config,          ConfigOpts},
+	    {net_if,          NetIfOpts},
+	    {server,          ServerOpts},
+	    {note_store,      NoteStoreOpts},
+	    {audit_trail_log, ATL},
+	    {unknown_option,  "dummy value"},
+	    {priority,        Prio}, 
+	    {mibs,            Mibs},
+	    {versions,        Vsns}],
+    ?line {ok, _Pid} = config_start(Opts),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_with_incorrect_opts(suite) -> [];
+start_with_incorrect_opts(doc) ->
+    "Start the snmp manager config process when some of\n"
+	"the options has incorrect values.";
+start_with_incorrect_opts(Conf) when is_list(Conf) -> 
+    put(tname,swio),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+    LogDir  = ?config(manager_log_dir, Conf),
+    StdMibDir = filename:join(code:priv_dir(snmp), "mibs") ++ "/",
+
+    write_manager_conf(ConfDir),
+    
+    ConfigOpts = [{verbosity,trace}, {dir, ConfDir}, {db_dir, DbDir}],
+
+    p("net-if - incorrect module"),
+    NetIfOpts1 = [{module, snmpm_user}],  %% Behaviour check will fail
+    Opts01     = [{config, ConfigOpts}, {versions, [v1]}, 
+		   {net_if, NetIfOpts1}],
+    ?line {error, Reason01} = config_start(Opts01),
+    p("net-if (module) res: ~p", [Reason01]),
+    
+    p("net-if - incorrect verbosity"),
+    NetIfOpts2  = [{verbosity, invalid_verbosity}],
+    Opts02      = [{config, ConfigOpts}, {versions, [v1]}, 
+		   {net_if, NetIfOpts2}],
+    ?line {error, Reason02} = config_start(Opts02),
+    p("net-if (verbosity) res: ~p", [Reason02]),
+
+    p("net-if - incorrect options"),
+    NetIfOpts3 = [{options, invalid_options}],
+    Opts03     = [{config, ConfigOpts}, {versions, [v1]}, 
+		  {net_if, NetIfOpts3}],
+    ?line {error, Reason03} = config_start(Opts03),
+    p("net-if (options) res: ~p", [Reason03]),
+		   
+    p("server - incorrect timeout (1)"),
+    ServerOpts1 = [{timeout, invalid_timeout}],
+    Opts08      = [{config, ConfigOpts}, {versions, [v1]}, 
+		   {server, ServerOpts1}],
+    ?line {error, Reason08} = config_start(Opts08),
+    p("server (timeout) res: ~p", [Reason08]),
+
+    p("server - incorrect timeout (2)"),
+    ServerOpts2 = [{timeout, 0}],
+    Opts09      = [{config, ConfigOpts}, {versions, [v1]}, 
+		   {server, ServerOpts2}],
+    ?line {error, Reason09} = config_start(Opts09),
+    p("server (timeout) res: ~p", [Reason09]),
+
+    p("server - incorrect timeout (3)"),
+    ServerOpts3 = [{timeout, -1000}],
+    Opts10      = [{config, ConfigOpts}, 
+		   {versions, [v1]}, 
+		   {server, ServerOpts3}],
+    ?line {error, Reason10} = config_start(Opts10),
+    p("server (timeout) res: ~p", [Reason10]),
+
+    p("server - incorrect verbosity"),
+    ServerOpts4 = [{verbosity, invalid_verbosity}],
+    Opts11      = [{config, ConfigOpts}, 
+		   {versions, [v1]}, 
+		   {server, ServerOpts4}],
+    ?line {error, Reason11} = config_start(Opts11),
+    p("server (verbosity) res: ~p", [Reason11]),
+
+    p("note-store - incorrect timeout (1)"),
+    NoteStoreOpts1 = [{timeout, invalid_timeout}],
+    Opts12         = [{config, ConfigOpts}, 
+		      {versions, [v1]}, 
+		      {note_store, NoteStoreOpts1}],
+    ?line {error, Reason12} = config_start(Opts12),
+    p("note-store (timeout) res: ~p", [Reason12]),
+
+    p("note-store - incorrect timeout (2)"),
+    NoteStoreOpts2 = [{timeout, 0}],
+    Opts13         = [{config, ConfigOpts}, 
+		      {versions, [v1]}, 
+		      {note_store, NoteStoreOpts2}],
+    ?line {error, Reason13} = config_start(Opts13),
+    p("note-store (timeout) res: ~p", [Reason13]),
+
+    p("note-store - incorrect timeout (3)"),
+    NoteStoreOpts3 = [{timeout, -2000}],
+    Opts14         = [{config, ConfigOpts}, 
+		      {versions, [v1]}, 
+		      {note_store, NoteStoreOpts3}],
+    ?line {error, Reason14} = config_start(Opts14),
+    p("note-store (timeout) res: ~p", [Reason14]),
+
+    p("note-store - incorrect verbosity"),
+    NoteStoreOpts4 = [{timeout, 20000}, {verbosity, invalid_verbosity}],
+    Opts15         = [{config, ConfigOpts}, 
+		      {versions, [v1]}, 
+		      {note_store, NoteStoreOpts4}],
+    ?line {error, Reason15} = config_start(Opts15),
+    p("note-store (verbosity) res: ~p", [Reason15]),
+
+    p("config - incorrect dir (1)"),
+    ConfigOpts1 = [{dir, invalid_dir}],
+    Opts16      = [{config, ConfigOpts1}, 
+		   {versions, [v1]}],
+    ?line {error, Reason16} = config_start(Opts16),
+    p("config (dir) res: ~p", [Reason16]),
+
+    p("config - incorrect dir (2)"),
+    ConfigOpts2 = [{dir, "/invalid/dir"}],
+    Opts17      = [{config, ConfigOpts2}, 
+		   {versions, [v1]}],
+    ?line {error, Reason17} = config_start(Opts17),
+    p("config (dir) res: ~p", [Reason17]),
+
+    p("config - incorrect verbosity"),
+    ConfigOpts3 = [{dir, ConfDir}, {verbosity, invalid_verbosity}],
+    Opts18      = [{config, ConfigOpts3}, 
+		   {versions, [v1]}],
+    ?line {error, Reason18} = config_start(Opts18),
+    p("config (verbosity) res: ~p", [Reason18]),
+
+    p("mibs - incorrect mibs (1)"),
+    Mibs1  = invalid_mibs,
+    Opts19 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {mibs, Mibs1}],
+    ?line {error, Reason19} = config_start(Opts19),
+    p("mibs (mibs) res: ~p", [Reason19]),
+
+    p("mibs - incorrect mibs (2)"),
+    Mibs2  = [join(StdMibDir, "INVALID-MIB")],
+    Opts20 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {mibs, Mibs2}],
+    ?line {error, Reason20} = config_start(Opts20),
+    p("mibs (mibs) res: ~p", [Reason20]),
+
+    p("prio - incorrect prio"),
+    Prio1 = invalid_prio,
+    Opts21 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {priority, Prio1}],
+    ?line {error, Reason21} = config_start(Opts21),
+    p("prio (prio) res: ~p", [Reason21]),
+
+    p("atl - incorrect type"),
+    ATL1  = [{type,   invalid_type}, 
+	     {dir,    LogDir}, 
+	     {size,   {10,10240}},
+	     {repair, true}],
+    Opts22 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {audit_trail_log, ATL1}],
+    ?line {error, Reason22} = config_start(Opts22),
+    p("atl (type) res: ~p", [Reason22]),
+
+    p("atl - incorrect dir (1)"),
+    ATL2  = [{type,   read_write}, 
+	     {dir,    invalid_dir}, 
+	     {size,   {10,10240}},
+	     {repair, true}],
+    Opts23 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {audit_trail_log, ATL2}],
+    ?line {error, Reason23} = config_start(Opts23),
+    p("atl (dir) res: ~p", [Reason23]),
+
+    p("atl - incorrect dir (2)"),
+    ATL3  = [{type,   read_write}, 
+	     {dir,    "/invalid/dir"}, 
+	     {size,   {10,10240}},
+	     {repair, true}],
+    Opts24 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {audit_trail_log, ATL3}],
+    ?line {error, Reason24} = config_start(Opts24),
+    p("atl (dir) res: ~p", [Reason24]),
+
+    p("atl - incorrect size (1)"),
+    ATL4  = [{type,   read_write}, 
+	     {dir,    LogDir}, 
+	     {size,   invalid_size},
+	     {repair, true}],
+    Opts25 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {audit_trail_log, ATL4}],
+    ?line {error, Reason25} = config_start(Opts25),
+    p("atl (size) res: ~p", [Reason25]),
+
+    p("atl - incorrect size (2)"),
+    ATL5  = [{type,   read_write}, 
+	     {dir,    LogDir}, 
+	     {size,   {10,invalid_file_size}},
+	     {repair, true}],
+    Opts26 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {audit_trail_log, ATL5}],
+    ?line {error, Reason26} = config_start(Opts26),
+    p("atl (size) res: ~p", [Reason26]),
+
+    p("atl - incorrect size (3)"),
+    ATL6  = [{type,   read_write}, 
+	     {dir,    LogDir}, 
+	     {size,   {invalid_file_num,10240}},
+	     {repair, true}],
+    Opts27 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {audit_trail_log, ATL6}],
+    ?line {error, Reason27} = config_start(Opts27),
+    p("atl (size) res: ~p", [Reason27]),
+
+    p("atl - incorrect repair"),
+    ATL7  = [{type,   read_write}, 
+	     {dir,    LogDir}, 
+	     {size,   {10,10240}},
+	     {repair, invalid_repair}],
+    Opts28 = [{config, ConfigOpts}, 
+	      {versions, [v1]}, 
+	      {audit_trail_log, ATL7}],
+    ?line {error, Reason28} = config_start(Opts28),
+    p("atl (repair) res: ~p", [Reason28]),
+
+    p("version - incorrect versions (1)"),
+    Vsns1  = invalid_vsns,
+    Opts29 = [{config, ConfigOpts}, 
+	      {versions, Vsns1}],
+    ?line {error, Reason29} = config_start(Opts29),
+    p("versions (versions) res: ~p", [Reason29]),
+
+    p("version - incorrect versions (2)"),
+    Vsns2  = [v1,v2,v3,v9],
+    Opts30 = [{config, ConfigOpts}, 
+	      {versions, Vsns2}],
+    ?line {error, Reason30} = config_start(Opts30),
+    p("versions (versions) res: ~p", [Reason30]),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_with_invalid_manager_conf_file1(suite) -> [];
+start_with_invalid_manager_conf_file1(doc) ->
+    "Start with invalid manager config file (1).";
+start_with_invalid_manager_conf_file1(Conf) when is_list(Conf) -> 
+    put(tname,swimcf),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    %% --
+    p("write manager config file with invalid IP address (1)"),
+    write_manager_conf(ConfDir, 
+		       "arne-anka", "4001", "500", "\"bmkEngine\""),
+    ?line {error, Reason11} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason11]),
+    ?line {failed_reading, _, _, 1, {parse_error, _}} = Reason11,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid IP address (2)"),
+    write_manager_conf(ConfDir, 
+		       "arne_anka", "4001", "500", "\"bmkEngine\""),
+    ?line {error, Reason12} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason12]),
+    ?line {failed_check, _, _, 2, {invalid_ip_address, _}} = Reason12,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid IP address (3)"),
+    write_manager_conf(ConfDir, 
+		       "9999", "4001", "500", "\"bmkEngine\""),
+    ?line {error, Reason13} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason13]),
+    ?line {failed_check, _, _, 2, {invalid_ip_address, _}} = Reason13,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid port (2)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "kalle-anka", "500", "\"bmkEngine\""),
+    ?line {error, Reason21} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason21]),
+    ?line {failed_reading, _, _, 2, {parse_error, _}} = Reason21,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid port (1)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "-1", "500", "\"bmkEngine\""),
+    ?line {error, Reason22} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason22]),
+    ?line {failed_check, _, _, 3, {invalid_integer, _}} = Reason22,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid port (3)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "\"kalle-anka\"", "500", "\"bmkEngine\""),
+    ?line {error, Reason23} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason23]),
+    ?line {failed_check, _, _, 3, {invalid_integer, _}} = Reason23,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid EngineID (1)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "4001", "500", "bmkEngine"),
+    ?line {error, Reason31} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason31]),
+    ?line {failed_check, _, _, 5, {invalid_string, _}} = Reason31,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid EngineID (2)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "4001", "500", "{1,2,3}"),
+    ?line {error, Reason32} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason32]),
+    ?line {failed_check, _, _, 5, {invalid_string, _}} = Reason32,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid EngineID (3)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "4001", "500", "10101"),
+    ?line {error, Reason33} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason33]),
+    ?line {failed_check, _, _, 5, {invalid_string, _}} = Reason33,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid MMS (1)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "4001", "483", "\"bmkEngine\""),
+    ?line {error, Reason41} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason41]),
+    ?line {failed_check, _, _, 4, {invalid_integer, _}} = Reason41,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid MMS (2)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "4001", "-1", "\"bmkEngine\""),
+    ?line {error, Reason42} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason42]),
+    ?line {failed_check, _, _, 4, {invalid_integer, _}} = Reason42,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid MMS (3)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "4001", "\"kalle-anka\"", "\"bmkEngine\""),
+    ?line {error, Reason43} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason43]),
+    ?line {failed_check, _, _, 4, {invalid_integer, _}} = Reason43,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with invalid MMS (4)"),
+    write_manager_conf(ConfDir, 
+		       "[134,138,177,189]", "4001", "kalle_anka", "\"bmkEngine\""),
+    ?line {error, Reason44} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason44]),
+    ?line {failed_check, _, _, 4, {invalid_integer, _}} = Reason44,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with unknown option"),
+    write_manager_conf(ConfDir, 
+		       "{kalle, anka}."),
+    ?line {error, Reason51} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason51]),
+    ?line {failed_check, _, _, 1, {unknown_config, _}} = Reason51,
+    await_config_not_running(),
+
+    %% --
+    p("write manager config file with unknown option"),
+    write_manager_conf(ConfDir, 
+		       "kalle_anka."),
+    ?line {error, Reason52} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason52]),
+    ?line {failed_check, _, _, 1, {unknown_config, _}} = Reason52,
+    await_config_not_running(),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_with_invalid_users_conf_file1(suite) -> [];
+start_with_invalid_users_conf_file1(doc) ->
+    "Start with invalid users config file.";
+start_with_invalid_users_conf_file1(Conf) when is_list(Conf) -> 
+    put(tname,swiucf),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    write_manager_conf(ConfDir),
+
+    %% --
+    p("write users config file with invalid module (1)"),
+    write_users_conf(ConfDir, [{"kalle", "kalle", "dummy"}]),
+    ?line {error, Reason11} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason11]),
+    ?line {failed_check, _, _, _, {bad_module, kalle}} = Reason11,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid module (1)"),
+    write_users_conf(ConfDir, [{"kalle", "snmpm", "dummy"}]),
+    ?line {error, Reason12} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason12]),
+    ?line {failed_check, _, _, _, {bad_module, _}} = Reason12,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid module (2)"),
+    write_users_conf(ConfDir, [{"kalle1", "10101", "dummy"}]),
+    ?line {error, Reason13} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason13]),
+    ?line {failed_check, _, _, _, {bad_module, _}} = Reason13,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid user tuple (1)"),
+    write_users_conf2(ConfDir, "{kalle, snmpm_user_default}."),
+    ?line {error, Reason21} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason21]),
+    ?line {failed_check, _, _, _, {bad_user_config, _}} = Reason21,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid user tuple (2)"),
+    write_users_conf2(ConfDir, "{kalle, snmpm_user_default, kalle, [], olle}."),
+    ?line {error, Reason22} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason22]),
+    ?line {failed_check, _, _, _, {bad_user_config, _}} = Reason22,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid user tuple (3)"),
+    write_users_conf2(ConfDir, "snmpm_user_default."),
+    ?line {error, Reason23} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason23]),
+    ?line {failed_check, _, _, _, {bad_user_config, _}} = Reason23,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid user tuple (4)"),
+    write_users_conf2(ConfDir, "[kalle, snmpm_user_default, kalle]."),
+    ?line {error, Reason24} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason24]),
+    ?line {failed_check, _, _, _, {bad_user_config, _}} = Reason24,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid user agent default config (1)"),
+    write_users_conf2(ConfDir, "{kalle, snmpm_user_default, kalle, olle}."),
+    ?line {error, Reason31} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason31]),
+    ?line {failed_check, _, _, _, {bad_default_agent_config, _}} = Reason31,
+    await_config_not_running(),
+
+    %% --
+    p("write users config file with invalid user agent default config (2)"),
+    write_users_conf2(ConfDir, "{kalle, snmpm_user_default, kalle, [olle]}."),
+    ?line {error, Reason32} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason32]),
+    %% ?line {failed_check, _, _, _, {bad_default_agent_config, _}} = Reason32,
+    case Reason32 of
+	{failed_check, _, _, _, {bad_default_agent_config, _}} ->
+	    ok;
+	{A, B, C, D} ->
+	    exit({bad_error, A, B, C, D})
+    end,
+    await_config_not_running(),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_with_invalid_agents_conf_file1(suite) -> [];
+start_with_invalid_agents_conf_file1(doc) ->
+    "Start with invalid agents config file.";
+start_with_invalid_agents_conf_file1(Conf) when is_list(Conf) -> 
+    put(tname, swiacf),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    write_manager_conf(ConfDir),
+
+    write_users_conf(ConfDir, [{"swiacf", "snmpm_user_default", "dummy"}]),
+    
+    Agent0 = {"swiacf", "\"targ-hobbes\"", "\"comm1\"", 
+	      "[192,168,0,100]", "162", "\"bmkEngine\"", "1500", "484", "v1",
+	      "any", "\"initial\"", "noAuthNoPriv"},
+
+    %% --
+    p("[test 11] write agents config file with invalid user (1)"),
+    Agent11 = setelement(1, Agent0, "kalle-anka"),
+    write_agents_conf(ConfDir, [Agent11]),
+    case config_start(Opts) of
+	{error, Reason11} ->
+	    p("start failed (as expected): ~p", [Reason11]),
+	    ?line {failed_reading, _, _, _, {parse_error, _}} = Reason11,
+	    await_config_not_running();
+	OK_11 ->
+	    exit({error, {unexpected_success, "11", OK_11}})
+    end,
+
+    %% --
+    p("[test 21] write agents config file with invalid target name (1)"),
+    Agent21 = setelement(2, Agent0, "targ-hobbes"),
+    write_agents_conf(ConfDir, [Agent21]),
+    case config_start(Opts) of
+	{error, Reason21} ->
+	    p("start failed (as expected): ~p", [Reason21]),
+	    ?line {failed_reading, _, _, _, {parse_error, _}} = Reason21,
+	    await_config_not_running();
+	OK_21 ->
+	    exit({error, {unexpected_success, "21", OK_21}})
+    end,
+
+    %% --
+    p("[test 22] write agents config file with invalid target name (2)"),
+    Agent22 = setelement(2, Agent0, "targ_hobbes"),
+    write_agents_conf(ConfDir, [Agent22]),
+    case config_start(Opts) of
+	{error, Reason22} ->
+	    p("start failed (as expected): ~p", [Reason22]),
+	    ?line {failed_check, _, _, _, {invalid_string, _}} = Reason22,
+	    await_config_not_running();
+	OK_22 ->
+	    exit({error, {unexpected_success, "22", OK_22}})
+    end,
+
+    %% --
+    p("[test 23] write agents config file with invalid target name (3)"),
+    Agent23 = setelement(2, Agent0, "10101"),
+    write_agents_conf(ConfDir, [Agent23]),
+    case config_start(Opts) of
+	{error, Reason23} ->
+	    p("start failed (as expected): ~p", [Reason23]),
+	    ?line {failed_check, _, _, _, {invalid_string, _}} = Reason23,
+	    await_config_not_running();
+	OK_23 ->
+	    exit({error, {unexpected_success, "23", OK_23}})
+    end,
+
+    %% --
+    p("[test 31] write agents config file with invalid community (1)"),
+    Agent31 = setelement(3, Agent0, "targ-hobbes"),
+    write_agents_conf(ConfDir, [Agent31]),
+    case config_start(Opts) of
+	{error, Reason31} ->
+	    p("start failed (as expected): ~p", [Reason31]),
+	    ?line {failed_reading, _, _, _, {parse_error, _}} = Reason31,
+	    await_config_not_running();
+	OK_31 ->
+	    exit({error, {unexpected_success, "31", OK_31}})
+    end,
+
+    %% --
+    p("[test 32] write agents config file with invalid community (2)"),
+    Agent32 = setelement(3, Agent0, "targ_hobbes"),
+    write_agents_conf(ConfDir, [Agent32]),
+    case config_start(Opts) of
+	{error, Reason32} ->
+	    p("start failed (as expected): ~p", [Reason32]),
+	    ?line {failed_check, _, _, _, {invalid_string, _}} = Reason32,
+	    await_config_not_running();
+	OK_32 ->
+	    exit({error, {unexpected_success, "32", OK_32}})
+    end,
+
+    %% --
+    p("[test 33] write agents config file with invalid community (3)"),
+    Agent33 = setelement(3, Agent0, "10101"),
+    write_agents_conf(ConfDir, [Agent33]),
+    case config_start(Opts) of
+	{error, Reason33} ->
+	    p("start failed (as expected): ~p", [Reason33]),
+	    ?line {failed_check, _, _, _, {invalid_string, _}} = Reason33,
+	    await_config_not_running();
+	OK_33 ->
+	    exit({error, {unexpected_success, "33", OK_33}})
+    end,
+
+    %% --
+    p("[test 51] write agents config file with invalid ip (1)"),
+    Agent51 = setelement(4, Agent0, "kalle_anka"),
+    write_agents_conf(ConfDir, [Agent51]),
+    case config_start(Opts) of
+	{error, Reason51} ->
+	    p("start failed (as expected): ~p", [Reason51]),
+	    ?line {failed_check, _, _, _, {bad_address, _}} = Reason51,
+	    await_config_not_running();
+	OK_51 ->
+	    exit({error, {unexpected_success, "51", OK_51}})
+    end,
+
+    %% --
+    p("[test 52] write agents config file with invalid ip (2)"),
+    Agent52 = setelement(4, Agent0, "10101"),
+    write_agents_conf(ConfDir, [Agent52]),
+    case config_start(Opts) of
+	{error, Reason52} ->
+	    p("start failed (as expected): ~p", [Reason52]),
+	    ?line {failed_check, _, _, _, {bad_address, _}} = Reason52,
+	    await_config_not_running();
+	OK_52 ->
+	    exit({error, {unexpected_success, "52", OK_52}})
+    end,
+
+    %% --
+    p("[test 53] write agents config file with invalid ip (3)"),
+    Agent53 = setelement(4, Agent0, "[192,168,0]"),
+    write_agents_conf(ConfDir, [Agent53]),
+    case config_start(Opts) of
+	{error, Reason53} ->
+	    p("start failed (as expected): ~p", [Reason53]),
+	    ?line {failed_check, _, _, _, {invalid_ip_address, _}} = Reason53,
+	    await_config_not_running();
+	OK_53 ->
+	    exit({error, {unexpected_success, "53", OK_53}})
+    end,
+
+    %% --
+    p("[test 54] write agents config file with invalid ip (4)"),
+    Agent54 = setelement(4, Agent0, "[192,168,0,100,99]"),
+    write_agents_conf(ConfDir, [Agent54]),
+    case config_start(Opts) of
+	{error, Reason54} ->
+	    p("start failed (as expected): ~p", [Reason54]),
+	    ?line {failed_check, _, _, _, {invalid_ip_address, _}} = Reason54,
+	    await_config_not_running();
+	OK_54 ->
+	    exit({error, {unexpected_success, "54", OK_54}})
+    end,
+
+    %% --
+    p("[test 55] write agents config file with invalid ip (5)"),
+    Agent55 = setelement(4, Agent0, "[192,168,0,arne]"),
+    write_agents_conf(ConfDir, [Agent55]),
+    ?line {error, Reason55} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason55]),
+    ?line {failed_check, _, _, _, {invalid_ip_address, _}} = Reason55,
+    await_config_not_running(),
+
+    %% --
+    p("[test 61] write agents config file with invalid port (1)"),
+    Agent61 = setelement(5, Agent0, "kalle_anka"),
+    write_agents_conf(ConfDir, [Agent61]),
+    ?line {error, Reason61} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason61]),
+    ?line {failed_check, _, _, _, {invalid_integer, _}} = Reason61,
+    await_config_not_running(),
+
+    %% --
+    p("[test 62] write agents config file with invalid port (2)"),
+    Agent62 = setelement(5, Agent0, "-1"),
+    write_agents_conf(ConfDir, [Agent62]),
+    ?line {error, Reason62} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason62]),
+    ?line {failed_check, _, _, _, {invalid_integer, _}} = Reason62,
+    await_config_not_running(),
+
+    %% --
+    p("[test 63] write agents config file with invalid port (3)"),
+    Agent63 = setelement(5, Agent0, "\"100\""),
+    write_agents_conf(ConfDir, [Agent63]),
+    ?line {error, Reason63} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason63]),
+    ?line {failed_check, _, _, _, {invalid_integer, _}} = Reason63,
+    await_config_not_running(),
+
+    %% --
+    p("[test 71] write agents config file with invalid engine-id (1)"),
+    Agent71 = setelement(6, Agent0, "kalle_anka"),
+    write_agents_conf(ConfDir, [Agent71]),
+    ?line {error, Reason71} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason71]),
+    ?line {failed_check, _, _, _, {invalid_string, _}} = Reason71,
+    await_config_not_running(),
+
+    %% --
+    p("[test 72] write agents config file with invalid engine-id (2)"),
+    Agent72 = setelement(6, Agent0, "10101"),
+    write_agents_conf(ConfDir, [Agent72]),
+    ?line {error, Reason72} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason72]),
+    ?line {failed_check, _, _, _, {invalid_string, _}} = Reason72,
+    await_config_not_running(),
+
+    %% --
+    p("[test 81] write agents config file with invalid timeout (1)"),
+    Agent81 = setelement(7, Agent0, "kalle_anka"),
+    write_agents_conf(ConfDir, [Agent81]),
+    ?line {error, Reason81} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason81]),
+    ?line {failed_check, _, _, _, {invalid_timer, _}} = Reason81,
+    await_config_not_running(),
+
+    %% --
+    p("[test 82] write agents config file with invalid timeout (2)"),
+    Agent82 = setelement(7, Agent0, "-1"),
+    write_agents_conf(ConfDir, [Agent82]),
+    ?line {error, Reason82} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason82]),
+    ?line {failed_check, _, _, _, {invalid_timer, _}} = Reason82,
+    await_config_not_running(),
+
+    %% --
+    p("[test 83] write agents config file with invalid timeout (3)"),
+    Agent83 = setelement(7, Agent0, "{1000, 1, 10, kalle}"),
+    write_agents_conf(ConfDir, [Agent83]),
+    ?line {error, Reason83} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason83]),
+    ?line {failed_check, _, _, _, {invalid_timer, _}} = Reason83,
+    await_config_not_running(),
+
+    %% --
+    p("[test 84] write agents config file with invalid timeout (4)"),
+    Agent84 = setelement(7, Agent0, "{1000, -1, 10, 10}"),
+    write_agents_conf(ConfDir, [Agent84]),
+    ?line {error, Reason84} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason84]),
+    ?line {failed_check, _, _, _, {invalid_timer, _}} = Reason84,
+    await_config_not_running(),
+
+    %% --
+    p("[test 85] write agents config file with invalid timeout (5)"),
+    Agent85 = setelement(7, Agent0, "{1000, 1, -100, 10}"),
+    write_agents_conf(ConfDir, [Agent85]),
+    ?line {error, Reason85} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason85]),
+    ?line {failed_check, _, _, _, {invalid_timer, _}} = Reason85,
+    await_config_not_running(),
+
+    %% --
+    p("[test 86] write agents config file with invalid timeout (6)"),
+    Agent86 = setelement(7, Agent0, "{1000, 1, 100, -1}"),
+    write_agents_conf(ConfDir, [Agent86]),
+    ?line {error, Reason86} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason86]),
+    ?line {failed_check, _, _, _, {invalid_timer, _}} = Reason86,
+    await_config_not_running(),
+
+    %% --
+    p("[test 91] write agents config file with invalid max-message-size (1)"),
+    Agent91 = setelement(8, Agent0, "483"),
+    write_agents_conf(ConfDir, [Agent91]),
+    ?line {error, Reason91} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason91]),
+    ?line {failed_check, _, _, _, {invalid_packet_size, _}} = Reason91,
+    await_config_not_running(),
+
+    %% --
+    p("[test 92] write agents config file with invalid max-message-size (2)"),
+    Agent92 = setelement(8, Agent0, "kalle_anka"),
+    write_agents_conf(ConfDir, [Agent92]),
+    ?line {error, Reason92} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason92]),
+    ?line {failed_check, _, _, _, {invalid_packet_size, _}} = Reason92,
+    await_config_not_running(),
+
+    %% --
+    p("[test A1] write agents config file with invalid version (1)"),
+    AgentA1 = setelement(9, Agent0, "1"),
+    write_agents_conf(ConfDir, [AgentA1]),
+    ?line {error, ReasonA1} = config_start(Opts),
+    p("start failed (as expected): ~p", [ReasonA1]),
+    ?line {failed_check, _, _, _, {bad_version, _}} = ReasonA1,
+    await_config_not_running(),
+
+    %% --
+    p("[test A2] write agents config file with invalid version (2)"),
+    AgentA2 = setelement(9, Agent0, "v30"),
+    write_agents_conf(ConfDir, [AgentA2]),
+    ?line {error, ReasonA2} = config_start(Opts),
+    p("start failed (as expected): ~p", [ReasonA2]),
+    ?line {failed_check, _, _, _, {bad_version, _}} = ReasonA2,
+    await_config_not_running(),
+
+    %% --
+    p("[test B1] write agents config file with invalid sec-model (1)"),
+    AgentB1 = setelement(10, Agent0, "\"any\""),
+    write_agents_conf(ConfDir, [AgentB1]),
+    ?line {error, ReasonB1} = config_start(Opts),
+    p("start failed (as expected): ~p", [ReasonB1]),
+    ?line {failed_check, _, _, _, {invalid_sec_model, _}} = ReasonB1,
+    await_config_not_running(),
+
+    %% --
+    p("[test B2] write agents config file with invalid sec-model (2)"),
+    AgentB2 = setelement(10, Agent0, "v3"),
+    write_agents_conf(ConfDir, [AgentB2]),
+    ?line {error, ReasonB2} = config_start(Opts),
+    p("start failed (as expected): ~p", [ReasonB2]),
+    ?line {failed_check, _, _, _, {invalid_sec_model, _}} = ReasonB2,
+    await_config_not_running(),
+
+    %% --
+    p("[test C1] write agents config file with invalid sec-name (1)"),
+    AgentC1 = setelement(11, Agent0, "initial"),
+    write_agents_conf(ConfDir, [AgentC1]),
+    case config_start(Opts) of
+	{error, ReasonC1} ->
+	    p("start failed (as expected): ~p", [ReasonC1]),
+	    ?line {failed_check, _, _, _, {bad_sec_name, _}} = ReasonC1,
+	    await_config_not_running();
+	OK_C1 ->
+	    exit({error, {unexpected_success, "C1", OK_C1}})
+    end,
+
+    %% --
+    p("[test C2] write agents config file with invalid sec-name (2)"),
+    AgentC2 = setelement(11, Agent0, "10101"),
+    write_agents_conf(ConfDir, [AgentC2]),
+    case config_start(Opts) of
+	{error, ReasonC2} ->
+	    p("start failed (as expected): ~p", [ReasonC2]),
+	    ?line {failed_check, _, _, _, {bad_sec_name, _}} = ReasonC2,
+	    await_config_not_running();
+	OK_C2 ->
+	    exit({error, {unexpected_success, "C2", OK_C2}})
+    end,
+
+    %% --
+    p("[test D1] write agents config file with invalid sec-level (1)"),
+    AgentD1 = setelement(12, Agent0, "\"noAuthNoPriv\""),
+    write_agents_conf(ConfDir, [AgentD1]),
+    case config_start(Opts) of
+	{error, ReasonD1} ->
+	    p("start failed (as expected): ~p", [ReasonD1]),
+	    ?line {failed_check, _, _, _, {invalid_sec_level, _}} = ReasonD1,
+	    await_config_not_running();
+	OK_D1 ->
+	    exit({error, {unexpected_success, "D1", OK_D1}})
+    end,
+
+    %% --
+    p("[test D2] write agents config file with invalid sec-level (2)"),
+    AgentD2 = setelement(12, Agent0, "99"),
+    write_agents_conf(ConfDir, [AgentD2]),
+    case config_start(Opts) of
+	{error, ReasonD2} ->
+	    p("start failed (as expected): ~p", [ReasonD2]),
+	    ?line {failed_check, _, _, _, {invalid_sec_level, _}} = ReasonD2,
+	    await_config_not_running();
+	OK_D2 ->
+	    exit({error, {unexpected_success, "D2", OK_D2}})
+    end,
+
+    %% --
+    p("[test E1] write agents config file with invalid agent (1)"),
+    write_agents_conf2(ConfDir, "{swiacf, \"targ-hobbes\"}."),
+    case config_start(Opts) of
+	{error, ReasonE1} ->
+	    p("start failed (as expected): ~p", [ReasonE1]),
+	    ?line {failed_check, _, _, _, {bad_agent_config, _}} = ReasonE1,
+	    await_config_not_running();
+	OK_E1 ->
+	    exit({error, {unexpected_success, "E1", OK_E1}})
+    end,
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+start_with_invalid_usm_conf_file1(suite) -> [];
+start_with_invalid_usm_conf_file1(doc) ->
+    "Start with invalid usm config file.";
+start_with_invalid_usm_conf_file1(Conf) when is_list(Conf) -> 
+    put(tname,swiusmcf),
+    p("start"),
+    process_flag(trap_exit, true),
+
+    case ?CRYPTO_START() of
+        ok ->
+            case ?CRYPTO_SUPPORT() of
+                {no, Reason} ->
+                    ?SKIP({unsupported_encryption, Reason});
+                yes ->
+                    ok
+            end;
+        {error, Reason} ->
+            ?SKIP({failed_starting_crypto, Reason})
+    end,
+     
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    Opts = [{versions, [v1,v2,v3]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    write_manager_conf(ConfDir),
+
+    write_users_conf(ConfDir, [{"swiacf", "snmpm_user_default", "dummy"}]),
+    
+    Usm0 = {"\"bmkEngine\"", "\"swiusmcf\"", 
+	    "usmNoAuthProtocol", "[]",
+	    "usmNoPrivProtocol", "[]"},
+
+    Usm1 = {"\"bmkEngine\"", "\"swiusmcf\"", "\"kalle\"", 
+	    "usmNoAuthProtocol", "[]",
+	    "usmNoPrivProtocol", "[]"},
+
+    %% --
+    p("[test 11] write usm config file with invalid engine-id (1)"),
+    Usm11 = setelement(1, Usm0, "kalle-anka"),
+    write_usm_conf(ConfDir, [Usm11]),
+    ?line {error, Reason11} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason11]),
+    ?line {failed_reading, _, _, _, {parse_error, _}} = Reason11,
+    await_config_not_running(),
+
+    %% --
+    p("[test 12] write usm config file with invalid engine-id (2)"),
+    Usm12 = setelement(1, Usm0, "kalle_anka"),
+    write_usm_conf(ConfDir, [Usm12]),
+    ?line {error, Reason12} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason12]),
+    ?line {failed_check, _, _, _, {bad_usm_engine_id, _}} = Reason12,
+    await_config_not_running(),
+
+    %% --
+    p("[test 13] write usm config file with invalid engine-id (3)"),
+    Usm13 = setelement(1, Usm1, "10101"),
+    write_usm_conf(ConfDir, [Usm13]),
+    ?line {error, Reason13} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason13]),
+    ?line {failed_check, _, _, _, {bad_usm_engine_id, _}} = Reason13,
+    await_config_not_running(),
+
+    %% --
+    p("[test 21] write usm config file with invalid user-name (1)"),
+    Usm21 = setelement(2, Usm0, "kalle_anka"),
+    write_usm_conf(ConfDir, [Usm21]),
+    ?line {error, Reason21} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason21]),
+    ?line {failed_check, _, _, _, {bad_usm_user_name, _}} = Reason21,
+    await_config_not_running(),
+
+    %% --
+    p("[test 22] write usm config file with invalid user-name (1)"),
+    Usm22 = setelement(2, Usm1, "10101"),
+    write_usm_conf(ConfDir, [Usm22]),
+    ?line {error, Reason22} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason22]),
+    ?line {failed_check, _, _, _, {bad_usm_user_name, _}} = Reason22,
+    await_config_not_running(),
+
+    %% --
+    p("[test 31] write usm config file with invalid sec-name (1)"),
+    Usm31 = setelement(3, Usm1, "kalle_anka"),
+    write_usm_conf(ConfDir, [Usm31]),
+    ?line {error, Reason31} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason31]),
+    ?line {failed_check, _, _, _, {bad_usm_sec_name, _}} = Reason31,
+    await_config_not_running(),
+
+    %% --
+    p("[test 32] write usm config file with invalid sec-name (2)"),
+    Usm32 = setelement(3, Usm1, "10101"),
+    write_usm_conf(ConfDir, [Usm32]),
+    ?line {error, Reason32} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason32]),
+    ?line {failed_check, _, _, _, {bad_usm_sec_name, _}} = Reason32,
+    await_config_not_running(),
+
+    %% --
+    p("[test 41] write usm config file with invalid auth-protocol (1)"),
+    Usm41 = setelement(3, Usm0, "\"usmNoAuthProtocol\""),
+    write_usm_conf(ConfDir, [Usm41]),
+    ?line {error, Reason41} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason41]),
+    ?line {failed_check, _, _, _, {invalid_auth_protocol, _}} = Reason41,
+    await_config_not_running(),
+
+    %% --
+    p("[test 42] write usm config file with invalid auth-protocol (2)"),
+    Usm42 = setelement(3, Usm0, "kalle"),
+    write_usm_conf(ConfDir, [Usm42]),
+    ?line {error, Reason42} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason42]),
+    ?line {failed_check, _, _, _, {invalid_auth_protocol, _}} = Reason42,
+    await_config_not_running(),
+
+    %% --
+    p("[test 43] write usm config file with invalid auth-protocol (3)"),
+    Usm43 = setelement(3, Usm0, "10101"),
+    write_usm_conf(ConfDir, [Usm43]),
+    ?line {error, Reason43} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason43]),
+    ?line {failed_check, _, _, _, {invalid_auth_protocol, _}} = Reason43,
+    await_config_not_running(),
+
+    %% --
+    p("[test 51] write usm config file with invalid auth-key (1)"),
+    Usm51 = setelement(3, Usm0, "usmHMACMD5AuthProtocol"),
+    write_usm_conf(ConfDir, [Usm51]),
+    ?line {error, Reason51} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason51]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _, _}} = Reason51,
+    await_config_not_running(),
+
+    %% --
+    p("[test 52] write usm config file with invalid auth-key (2)"),
+    Usm52 = setelement(4, Usm51, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5]"),
+    write_usm_conf(ConfDir, [Usm52]),
+    ?line {error, Reason52} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason52]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _, 15}} = Reason52,
+    await_config_not_running(),
+
+    %% --
+    p("[test 53] write usm config file with invalid auth-key (3)"),
+    Usm53 = setelement(4, Usm51, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7]"),
+    write_usm_conf(ConfDir, [Usm53]),
+    ?line {error, Reason53} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason53]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _, 17}} = Reason53,
+    await_config_not_running(),
+
+    %% --
+    p("[test 54] write usm config file with invalid auth-key (4)"),
+    Usm54 = setelement(4, Usm51, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,kalle]"),
+    write_usm_conf(ConfDir, [Usm54]),
+    %% ?line ok = crypto:start(),  %% Varf�r k�r den redan?
+    ?line crypto:start(),  %% Make sure it's started...
+    ?line {error, Reason54} = config_start(Opts),
+    ?line ok = crypto:stop(),
+    p("start failed (as expected): ~p", [Reason54]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _}} = Reason54,
+    await_config_not_running(),
+
+    %% --
+    p("[test 55] write usm config file with invalid auth-key (5)"),
+    Usm55 = setelement(4, Usm51, "arne_anka"),
+    write_usm_conf(ConfDir, [Usm55]),
+    ?line {error, Reason55} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason55]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _}} = Reason55,
+    await_config_not_running(),
+
+    %% --
+    p("[test 56] write usm config file with invalid auth-key (6)"),
+    Usm56 = setelement(4, Usm51, "10101"),
+    write_usm_conf(ConfDir, [Usm56]),
+    ?line {error, Reason56} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason56]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _}} = Reason56,
+    await_config_not_running(),
+
+    %% --
+    p("[test 57] write usm config file with invalid auth-key (7)"),
+    Usm57 = setelement(3, Usm0, "usmHMACSHAAuthProtocol"),
+    write_usm_conf(ConfDir, [Usm57]),
+    ?line {error, Reason57} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason57]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _, _}} = Reason57,
+    await_config_not_running(),
+
+    %% --
+    p("[test 58] write usm config file with invalid auth-key (8)"),
+    Usm58 = setelement(4, Usm57, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6]"),
+    write_usm_conf(ConfDir, [Usm58]),
+    ?line {error, Reason58} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason58]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _, 16}} = Reason58,
+    await_config_not_running(),
+
+    %% --
+    p("[test 59] write usm config file with invalid auth-key (9)"),
+    Usm59 = setelement(4, Usm57, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,ka]"),
+    write_usm_conf(ConfDir, [Usm59]),
+    ?line ok = crypto:start(),
+    ?line {error, Reason59} = config_start(Opts),
+    ?line ok = crypto:stop(),
+    p("start failed (as expected): ~p", [Reason59]),
+    ?line {failed_check, _, _, _, {invalid_auth_key, _}} = Reason59,
+    await_config_not_running(),
+
+    %% --
+    p("[test 5A] write usm config file with valid auth-key when crypto not started (10)"),
+    Usm5A = setelement(4, Usm57, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0]"),
+    write_usm_conf(ConfDir, [Usm5A]),
+    ?line {error, Reason5A} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason5A]),
+    ?line {failed_check, _, _, _, {unsupported_crypto, _}} = Reason5A,
+    await_config_not_running(),
+
+    %% --
+    p("[test 61] write usm config file with invalid priv-protocol (1)"),
+    Usm61 = setelement(5, Usm0, "\"usmNoPrivProtocol\""),
+    write_usm_conf(ConfDir, [Usm61]),
+    ?line {error, Reason61} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason61]),
+    ?line {failed_check, _, _, _, {invalid_priv_protocol, _}} = Reason61,
+    await_config_not_running(),
+
+    %% --
+    p("[test 62] write usm config file with invalid priv-protocol (2)"),
+    Usm62 = setelement(5, Usm0, "kalle"),
+    write_usm_conf(ConfDir, [Usm62]),
+    ?line {error, Reason62} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason62]),
+    ?line {failed_check, _, _, _, {invalid_priv_protocol, _}} = Reason62,
+    await_config_not_running(),
+
+    %% --
+    p("[test 63] write usm config file with invalid priv-protocol (3)"),
+    Usm63 = setelement(5, Usm0, "10101"),
+    write_usm_conf(ConfDir, [Usm63]),
+    ?line {error, Reason63} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason63]),
+    ?line {failed_check, _, _, _, {invalid_priv_protocol, _}} = Reason63,
+    await_config_not_running(),
+
+    %% --
+    p("[test 71] write usm config file with invalid priv-key (1)"),
+    Usm71 = setelement(5, Usm0, "usmDESPrivProtocol"),
+    write_usm_conf(ConfDir, [Usm71]),
+    ?line {error, Reason71} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason71]),
+    ?line {failed_check, _, _, _, {invalid_priv_key, _, _}} = Reason71,
+    await_config_not_running(),
+
+    %% --
+    p("[test 72] write usm config file with invalid priv-key (2)"),
+    Usm72 = setelement(6, Usm71, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5]"),
+    write_usm_conf(ConfDir, [Usm72]),
+    ?line {error, Reason72} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason72]),
+    ?line {failed_check, _, _, _, {invalid_priv_key, _, 15}} = Reason72,
+    await_config_not_running(),
+
+    %% --
+    p("[test 73] write usm config file with invalid priv-key (3)"),
+    Usm73 = setelement(6, Usm71, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7]"),
+    write_usm_conf(ConfDir, [Usm73]),
+    ?line {error, Reason73} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason73]),
+    ?line {failed_check, _, _, _, {invalid_priv_key, _, 17}} = Reason73,
+    await_config_not_running(),
+
+    %% --
+    p("[test 74] write usm config file with invalid priv-key (4)"),
+    Usm74 = setelement(6, Usm71, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,kalle]"),
+    write_usm_conf(ConfDir, [Usm74]),
+    ?line ok = crypto:start(),
+    ?line {error, Reason74} = config_start(Opts),
+    ?line ok = crypto:stop(),
+    p("start failed (as expected): ~p", [Reason74]),
+    ?line {failed_check, _, _, _, {invalid_priv_key, _}} = Reason74,
+    await_config_not_running(),
+
+    %% --
+    p("[test 75] write usm config file with invalid priv-key (5)"),
+    Usm75 = setelement(6, Usm71, "arne_anka"),
+    write_usm_conf(ConfDir, [Usm75]),
+    ?line {error, Reason75} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason75]),
+    ?line {failed_check, _, _, _, {invalid_priv_key, _}} = Reason75,
+    await_config_not_running(),
+
+    %% --
+    p("[test 76] write usm config file with invalid priv-key (6)"),
+    Usm76 = setelement(6, Usm71, "10101"),
+    write_usm_conf(ConfDir, [Usm76]),
+    ?line {error, Reason76} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason76]),
+    ?line {failed_check, _, _, _, {invalid_priv_key, _}} = Reason76,
+    await_config_not_running(),
+
+    %% --
+    p("[test 77] write usm config file with valid priv-key when crypto not started (7)"),
+    Usm77 = setelement(6, Usm71, "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6]"),
+    write_usm_conf(ConfDir, [Usm77]),
+    ?line {error, Reason77} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason77]),
+    ?line {failed_check, _, _, _, {unsupported_crypto, _}} = Reason77,
+    await_config_not_running(),
+
+     %% --
+    p("[test 78] write usm config file with invalid usm (1)"),
+    write_usm_conf2(ConfDir, "{\"bmkEngine\", \"swiusmcf\"}."),
+    ?line {error, Reason81} = config_start(Opts),
+    p("start failed (as expected): ~p", [Reason81]),
+    ?line {failed_check, _, _, _, {bad_usm_config, _}} = Reason81,
+    await_config_not_running(),
+   
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+normal_op(doc) ->
+    "A collection of tests for normal operation";
+normal_op(suite) ->
+    [
+     system,
+     agents,
+     users,
+     usm_users,
+     counter,
+     stats_counter
+    ].
+
+
+%% 
+%% ---
+%% 
+
+system(doc) ->
+    "Various system related operations with the snmp manager config";
+system(suite) ->
+    [
+     simple_system_op
+    ].
+
+simple_system_op(suite) -> [];
+simple_system_op(doc) -> 
+    "Access some of the known system info and some \n"
+	"system info that does not exist.";
+simple_system_op(Conf) when is_list(Conf) ->
+    put(tname,sso),
+    p("start"),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    write_manager_conf(ConfDir),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    p("start config"),
+    ?line {ok, _Pid}         = config_start(Opts),
+    
+    p("retreive various configs"),
+    ?line {ok, _Time}        = snmpm_config:system_start_time(),
+    ?line {ok, _EngineId}    = snmpm_config:get_engine_id(),
+    ?line {ok, _MMS}         = snmpm_config:get_engine_max_message_size(),
+
+    p("attempt to retreive nonexisting"),
+    ?line {error, not_found} = snmpm_config:system_info(kalle),
+    
+    ?line ok = config_stop(),
+    await_config_not_running(),
+
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+users(doc) ->
+    "Various users related operations with the snmp manager config";
+users(suite) ->
+    [
+     register_user_using_file,
+     register_user_using_function,
+     register_user_failed_using_function1
+    ].
+
+
+%% 
+%% ---
+%% 
+
+register_user_using_file(suite) -> [];
+register_user_using_file(doc) ->
+    "Register user using the 'users.conf' file.";
+register_user_using_file(Conf) when is_list(Conf) -> 
+    put(tname,ruufi),
+    p("start"),
+    process_flag(trap_exit, true),
+    _ConfDir = ?config(manager_conf_dir, Conf),
+    _DbDir = ?config(manager_db_dir, Conf),
+    ?SKIP(not_yet_implemented).
+
+
+%% 
+%% ---
+%% 
+
+register_user_using_function(suite) -> [];
+register_user_using_function(doc) ->
+    "Register user using the API (function).";
+register_user_using_function(Conf) when is_list(Conf) -> 
+    put(tname,ruufu),
+    p("start"),
+    process_flag(trap_exit, true),
+    _ConfDir = ?config(manager_conf_dir, Conf),
+    _DbDir = ?config(manager_db_dir, Conf),
+    ?SKIP(not_yet_implemented).
+
+
+%% 
+%% ---
+%% 
+
+register_user_failed_using_function1(suite) -> [];
+register_user_failed_using_function1(doc) ->
+    "Register user failed using incorrect arguments to API (function).";
+register_user_failed_using_function1(Conf) when is_list(Conf) -> 
+    put(tname,rufufu1),
+    p("start"),
+    process_flag(trap_exit, true),
+    _ConfDir = ?config(manager_conf_dir, Conf),
+    _DbDir = ?config(manager_db_dir, Conf),
+    ?SKIP(not_yet_implemented).
+
+
+%% 
+%% ---
+%% 
+
+agents(doc) ->
+    "Various agents related operations with the snmp manager config";
+agents(suite) ->
+    [
+     register_agent_using_file,
+     register_agent_using_function,
+     register_agent_failed_using_function1
+    ].
+
+
+%% 
+%% ---
+%% 
+
+register_agent_using_file(suite) -> [];
+register_agent_using_file(doc) ->
+    "Register agents using the 'agents'conf' file.";
+register_agent_using_file(Conf) when is_list(Conf) -> 
+    put(tname,raufi),
+    p("start"),
+    process_flag(trap_exit, true),
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+
+    %% --
+    p("write manager config file"),
+    write_manager_conf(ConfDir),
+
+    %% --
+    p("write users config file"),
+    UserId1 = raufi1,
+    UserId1Str = str(UserId1),
+    UserId2 = raufi2,
+    UserId2Str = str(UserId2),
+    User1 = {UserId1Str, "snmpm_user_default", "dummy1"},
+    User2 = {UserId2Str, "snmpm_user_default", "dummy2", "[{version, v1}]"},
+    write_users_conf(ConfDir, [User1, User2]),
+
+    %% --
+    p("write agents config file"),
+    AgentAddr1 = [192,168,0,101],
+    AgentAddr1Str = str(AgentAddr1),
+    AgentPort1 = 162,
+    AgentPort1Str = str(AgentPort1),
+    EngineID1 = "bmkEngine1",
+    EngineID1Str = str(EngineID1),
+    MMS1 = 1024,
+    MMS1Str = str(MMS1),
+    AgentAddr2 = [192,168,0,102],
+    AgentAddr2Str = str(AgentAddr2),
+    AgentPort2 = 162,
+    AgentPort2Str = str(AgentPort2),
+    EngineID2 = "bmkEngine2",
+    EngineID2Str = str(EngineID2),
+    MMS2 = 512,
+    MMS2Str = str(MMS2),
+    Agent1Str = {UserId1Str, "\"targ-hobbes1\"", "\"comm\"", 
+		 AgentAddr1Str, AgentPort1Str, EngineID1Str, 
+		 "1000", MMS1Str, "v1",
+		 "any", "\"initial\"", "noAuthNoPriv"},
+    Agent2Str = {UserId2Str, "\"targ-hobbes2\"", "\"comm\"", 
+		 AgentAddr2Str, AgentPort2Str, EngineID2Str, 
+		 "1500", MMS2Str, "v1",
+		 "any", "\"initial\"", "noAuthNoPriv"},
+    write_agents_conf(ConfDir, [Agent1Str, Agent2Str]),
+
+    %% --
+    p("start the config process"),
+    ?line {ok, _Pid} = config_start(Opts),
+
+    %% --
+    p("which agents"),
+    ?line [_, _] = All = snmpm_config:which_agents(),
+    p("all agents: ~n   ~p", [All]),
+    ?line [A1]         = snmpm_config:which_agents(UserId1),
+    p("agents belonging to ~w: ~n   ~p", [UserId1, A1]),
+    ?line [A2]         = snmpm_config:which_agents(UserId2),
+    p("agents belonging to ~w: ~n   ~p", [UserId2, A2]),
+
+    %% --
+    p("All info for agent <~w,~w>", [AgentAddr1, AgentPort1]),
+    ?line {ok, AllInfo1} = 
+	snmpm_config:agent_info(AgentAddr1, AgentPort1, all),
+    p("all agent info for agent: ~n   ~p", [AllInfo1]),
+    
+    %% --
+    p("EngineID (~p) for agent <~w,~w>", [EngineID1, AgentAddr1, AgentPort1]),
+    ?line {ok, EngineID1} = 
+	snmpm_config:agent_info(AgentAddr1, AgentPort1, engine_id),
+    
+    
+    %% --
+    p("All info for agent <~w,~w>", [AgentAddr2, AgentPort2]),
+    ?line {ok, AllInfo2} = 
+	snmpm_config:agent_info(AgentAddr2, AgentPort2, all),
+    p("all agent info for agent: ~n   ~p", [AllInfo2]),
+    
+    %% --
+    p("EngineID (~p) for agent <~w,~w>", [EngineID2, AgentAddr2, AgentPort2]),
+    ?line {ok, EngineID2} = 
+	snmpm_config:agent_info(AgentAddr2, AgentPort2, engine_id),
+
+    %% --
+    ?line {ok, MMS2} = 
+	snmpm_config:agent_info(AgentAddr2, AgentPort2, max_message_size),
+    NewMMS21 = 2048,
+    p("try update agent info max-message-size to ~w for agent <~w,~w>", 
+      [NewMMS21, AgentAddr2, AgentPort2]),
+    ?line ok = snmpm_config:update_agent_info(UserId2, AgentAddr2, AgentPort2,
+					      max_message_size, NewMMS21),
+    ?line {ok, NewMMS21} = 
+	snmpm_config:agent_info(AgentAddr2, AgentPort2, max_message_size),
+
+    %% --
+    p("try (and fail) to update agent info max-message-size to ~w "
+      "for agent <~w,~w> " 
+      "with user ~w (not owner)", 
+      [NewMMS21, AgentAddr2, AgentPort2, UserId1]),
+    ?line {error, Reason01} = 
+	snmpm_config:update_agent_info(UserId1, AgentAddr2, AgentPort2,
+				       max_message_size, NewMMS21),
+    p("expected failure. Reason01: ~p", [Reason01]), 
+    ?line {ok, NewMMS21} = 
+	snmpm_config:agent_info(AgentAddr2, AgentPort2, max_message_size),
+
+    %% --
+    NewMMS22 = 400,
+    p("try (and fail) to update agent info max-message-size to ~w "
+      "for agent <~w,~w>", 
+      [NewMMS22, AgentAddr2, AgentPort2]),
+    ?line {error, Reason02} = 
+	snmpm_config:update_agent_info(UserId1, AgentAddr2, AgentPort2,
+				       max_message_size, NewMMS22),
+    p("expected failure. Reason02: ~p", [Reason02]), 
+
+    %% --
+    p("stop config process"),
+    ?line ok = snmpm_config:stop(),
+    await_config_not_running(),
+
+    %% --
+    p("done"),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+register_agent_using_function(suite) -> [];
+register_agent_using_function(doc) ->
+    "Register agents using the API (function).";
+register_agent_using_function(Conf) when is_list(Conf) -> 
+    put(tname,raufu),
+    p("start"),
+    process_flag(trap_exit, true),
+    _ConfDir = ?config(manager_conf_dir, Conf),
+    _DbDir = ?config(manager_db_dir, Conf),
+    ?SKIP(not_yet_implemented).
+
+
+%% 
+%% ---
+%% 
+
+register_agent_failed_using_function1(suite) -> [];
+register_agent_failed_using_function1(doc) ->
+    "Register agents failng using the API (function) with incorrect "
+	"config (1).";
+register_agent_failed_using_function1(Conf) when is_list(Conf) -> 
+    put(tname,rafuf1),
+    p("start"),
+    process_flag(trap_exit, true),
+    _ConfDir = ?config(manager_conf_dir, Conf),
+    _DbDir = ?config(manager_db_dir, Conf),
+    ?SKIP(not_yet_implemented).
+
+
+%%
+%% ---
+%% 
+
+usm_users(doc) ->
+    "Various USM users related operations with the snmp manager config";
+usm_users(suite) ->
+    [
+     register_usm_user_using_file,
+     register_usm_user_using_function,
+     register_usm_user_failed_using_function1,
+     update_usm_user_info
+    ].
+
+
+%% 
+%% ---
+%% 
+
+register_usm_user_using_file(suite) -> [];
+register_usm_user_using_file(doc) ->
+    "Register usm user using the 'usm.conf' file.";
+register_usm_user_using_file(Conf) when is_list(Conf) -> 
+    put(tname,ruuufi),
+    p("start"),
+    process_flag(trap_exit, true),
+
+    case ?CRYPTO_START() of
+        ok ->
+            case ?CRYPTO_SUPPORT() of
+                {no, Reason} ->
+                    ?SKIP({unsupported_encryption, Reason});
+                yes ->
+                    ok
+            end;
+        {error, Reason} ->
+            ?SKIP({failed_starting_crypto, Reason})
+    end,
+     
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir   = ?config(manager_db_dir, Conf),
+
+    Opts = [{versions, [v3]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    %% --
+    p("write manager config file"),
+    write_manager_conf(ConfDir),
+
+    %% --
+    p("write usm user config file"),
+    SecEngineID = "loctzp's engine",
+    SecName1    = "samu_auth1",
+    UserName1   = SecName1,
+    UsmUser1 = {"\"" ++ SecEngineID ++ "\"", 
+		"\"" ++ UserName1 ++ "\"", 
+		"\"" ++ SecName1 ++ "\"", 
+		"usmHMACMD5AuthProtocol", "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6]",
+		"usmNoPrivProtocol", "[]"},
+
+    SecName2    = "samu_auth2",
+    UserName2   = "samu",
+    UsmUser2 = {"\"" ++ SecEngineID ++ "\"", 
+		"\"" ++ UserName2 ++ "\"", 
+		"\"" ++ SecName2 ++ "\"", 
+		"usmHMACMD5AuthProtocol", "[1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6]",
+		"usmNoPrivProtocol", "[]"},
+    write_usm_conf(ConfDir, [UsmUser1, UsmUser2]),
+
+    %% --
+    p("start the config process"),
+    ?line {ok, _Pid} = config_start(Opts),
+
+    %% --
+    p("lookup 1 (ok)"),
+    ?line {ok, #usm_user{name = UserName1} = User1} = 
+	snmpm_config:get_usm_user_from_sec_name(SecEngineID, SecName1),
+    p("User: ~p", [User1]),
+
+    p("lookup 2 (ok)"),
+    ?line {ok, #usm_user{name = UserName2} = User2} = 
+	snmpm_config:get_usm_user_from_sec_name(SecEngineID, SecName2),
+    p("User: ~p", [User2]),
+
+    p("lookup 3 (error)"),
+    ?line {error, not_found} = 
+	snmpm_config:get_usm_user_from_sec_name(SecEngineID, SecName2 ++ "_1"),
+
+    %% --
+    p("stop config process"),
+    ?line ok = snmpm_config:stop(),
+    await_config_not_running(),
+
+    %% --
+    p("done"),
+    ok.
+%% ?SKIP(not_yet_implemented).
+
+
+%% 
+%% ---
+%% 
+
+register_usm_user_using_function(suite) -> [];
+register_usm_user_using_function(doc) ->
+    "Register usm user using the API (function).";
+register_usm_user_using_function(Conf) when is_list(Conf) -> 
+    put(tname,ruuufu),
+    p("start"),
+    process_flag(trap_exit, true),
+
+    case ?CRYPTO_START() of
+        ok ->
+            case ?CRYPTO_SUPPORT() of
+                {no, Reason} ->
+                    ?SKIP({unsupported_encryption, Reason});
+                yes ->
+                    ok
+            end;
+        {error, Reason} ->
+            ?SKIP({failed_starting_crypto, Reason})
+    end,
+     
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    Opts = [{versions, [v3]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    %% --
+    p("write manager config file"),
+    write_manager_conf(ConfDir),
+
+    %% --
+    p("start the config process"),
+    ?line {ok, _Pid} = config_start(Opts),
+
+    %% --
+    p("register usm user's"),
+    EngineID   = "loctzp's engine",
+
+    p("register user 1 (ok)"),
+    UserName1  = "samu_auth1",
+    SecName1   = UserName1, 
+    UsmConfig1 = [{sec_name, SecName1},
+		  {auth,     usmHMACMD5AuthProtocol},
+		  {auth_key, [1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6]},
+		  {priv,     usmNoPrivProtocol}],
+    ?line ok = snmpm_config:register_usm_user(EngineID, UserName1, UsmConfig1),
+    p("try register user 1 again (error)"),
+    ?line {error, {already_registered, EngineID, UserName1}} = 
+	snmpm_config:register_usm_user(EngineID, UserName1, UsmConfig1),
+    
+    p("register user 2 (ok)"),
+    UserName2  = "samu_auth2",
+    SecName2   = UserName2, 
+    UsmConfig2 = [{auth,     usmHMACMD5AuthProtocol},
+		  {auth_key, [1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6]},
+		  {priv,     usmNoPrivProtocol}],
+    ?line ok = snmpm_config:register_usm_user(EngineID, UserName2, UsmConfig2),
+    
+    p("register user 3 (ok)"),
+    UserName3  = "samu3",
+    SecName3   = "samu_auth3",
+    UsmConfig3 = [{sec_name, SecName3},
+		  {auth,     usmHMACMD5AuthProtocol},
+		  {auth_key, [1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6]},
+		  {priv,     usmNoPrivProtocol}],
+    ?line ok = snmpm_config:register_usm_user(EngineID, UserName3, UsmConfig3),
+    
+    p("lookup 1 (ok)"),
+    ?line {ok, #usm_user{name = UserName1} = User1} = 
+	snmpm_config:get_usm_user_from_sec_name(EngineID, SecName1),
+    p("User: ~p", [User1]),
+
+    p("lookup 2 (ok)"),
+    ?line {ok, #usm_user{name = UserName2} = User2} = 
+	snmpm_config:get_usm_user_from_sec_name(EngineID, SecName2),
+    p("User: ~p", [User2]),
+
+    p("lookup 3 (ok)"),
+    ?line {ok, #usm_user{name = UserName3} = User3} = 
+	snmpm_config:get_usm_user_from_sec_name(EngineID, SecName3),
+    p("User: ~p", [User3]),
+
+    p("lookup 4 (error)"),
+    ?line {error, not_found} = 
+	snmpm_config:get_usm_user_from_sec_name(EngineID, SecName3 ++ "_1"),
+
+    %% --
+    p("stop config process"),
+    ?line ok = snmpm_config:stop(),
+    await_config_not_running(),
+
+    %% --
+    p("done"),
+    ok.
+%%    ?SKIP(not_yet_implemented).
+
+
+%% 
+%% ---
+%% 
+
+register_usm_user_failed_using_function1(suite) -> [];
+register_usm_user_failed_using_function1(doc) ->
+    "Register usm user failed using incorrect arguments to API (function).";
+register_usm_user_failed_using_function1(Conf) when is_list(Conf) -> 
+    put(tname,ruufufu1),
+    p("start"),
+    process_flag(trap_exit, true),
+
+    case ?CRYPTO_START() of
+        ok ->
+            case ?CRYPTO_SUPPORT() of
+                {no, Reason} ->
+                    ?SKIP({unsupported_encryption, Reason});
+                yes ->
+                    ok
+            end;
+        {error, Reason} ->
+            ?SKIP({failed_starting_crypto, Reason})
+    end,
+     
+    _ConfDir = ?config(manager_conf_dir, Conf),
+    _DbDir = ?config(manager_db_dir, Conf),
+    ?SKIP(not_yet_implemented).
+
+
+%%
+%% ---
+%% 
+
+update_usm_user_info(suite) -> [];
+update_usm_user_info(doc) ->
+    "Update usm user info.";
+update_usm_user_info(Conf) when is_list(Conf) -> 
+    put(tname,ruufufu1),
+    p("start"),
+    process_flag(trap_exit, true),
+
+    case ?CRYPTO_START() of
+        ok ->
+            case ?CRYPTO_SUPPORT() of
+                {no, Reason} ->
+                    ?SKIP({unsupported_encryption, Reason});
+                yes ->
+                    ok
+            end;
+        {error, Reason} ->
+            ?SKIP({failed_starting_crypto, Reason})
+    end,
+     
+    _ConfDir = ?config(manager_conf_dir, Conf),
+    _DbDir = ?config(manager_db_dir, Conf),
+    ?SKIP(not_yet_implemented).
+
+
+%%
+%% ---
+%% 
+
+counter(doc) ->
+    "Various counter related operations with the snmp manager config";
+counter(suite) ->
+    [
+     create_and_increment
+    ].
+
+
+%% 
+%% ---
+%% 
+
+create_and_increment(suite) -> [];
+create_and_increment(doc) ->
+    "Craete and increment counters.";
+create_and_increment(Conf) when is_list(Conf) -> 
+    put(tname,cai),
+    p("start"),
+    process_flag(trap_exit, true),
+
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    write_manager_conf(ConfDir),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    ?line {ok, _Pid} = snmpm_config:start_link(Opts),
+
+    %% Random init
+    {A,B,C} = erlang:now(),
+    random:seed(A,B,C),
+
+    StartVal = random:uniform(2147483647),
+    IncVal   = 42, 
+    EndVal   = StartVal + IncVal,
+
+    ?line StartVal = snmpm_config:cre_counter(test_id, StartVal),
+    ?line EndVal   = snmpm_config:incr_counter(test_id, IncVal),
+
+    ?line ok = snmpm_config:stop(),
+    await_config_not_running(),
+    ok.
+
+
+%% 
+%% ---
+%% 
+
+stats_counter(doc) ->
+    "Various statistic counter related operations with the "
+ 	"snmp manager config";
+stats_counter(suite) ->
+    [
+     stats_create_and_increment
+    ].
+
+
+%% 
+%% ---
+%% 
+
+stats_create_and_increment(suite) -> [];
+stats_create_and_increment(doc) ->
+    "Create and increment statistics counters.";
+stats_create_and_increment(Conf) when is_list(Conf) -> 
+    put(tname,scai),
+    p("start"),
+    process_flag(trap_exit, true),
+    
+    ConfDir = ?config(manager_conf_dir, Conf),
+    DbDir = ?config(manager_db_dir, Conf),
+
+    write_manager_conf(ConfDir),
+
+    Opts = [{versions, [v1]}, 
+	    {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    ?line {ok, _Pid} = snmpm_config:start_link(Opts),
+
+    p("stats table (1): ~p", [ets:tab2list(snmpm_stats_table)]),
+    ?line 0  = snmpm_config:maybe_cre_stats_counter(stats1, 0),
+    p("stats table (2): ~p", [ets:tab2list(snmpm_stats_table)]),
+    ?line ok = snmpm_config:maybe_cre_stats_counter(stats1, 0),
+    p("stats table (3): ~p", [ets:tab2list(snmpm_stats_table)]),
+    ?line 1  = snmpm_config:maybe_cre_stats_counter(stats2, 1),
+    p("stats table (4): ~p", [ets:tab2list(snmpm_stats_table)]),
+    ?line 10 = snmpm_config:cre_stats_counter(stats3, 10),
+    p("stats table (5): ~p", [ets:tab2list(snmpm_stats_table)]),
+
+    Stats1Inc = fun() -> snmpm_config:incr_stats_counter(stats1, 1) end,
+    ?line 10 = loop(10, -1, Stats1Inc),
+    p("stats table (6): ~p", [ets:tab2list(snmpm_stats_table)]),
+    
+    ?line ok = snmpm_config:reset_stats_counter(stats1),
+
+    ?line 10 = loop(10, -1, Stats1Inc),
+
+    ?line ok = snmpm_config:stop(),
+    await_config_not_running(),
+    ok.
+
+
+loop(0, Acc, _) ->
+    Acc;
+loop(N, _, F) when (N > 0) andalso is_function(F) ->
+    Acc = F(),
+    loop(N-1, Acc, F).
+
+
+%%======================================================================
+%% Ticket test-cases
+%%======================================================================
+
+tickets(suite) ->
+    [
+     otp_7219
+    ].
+
+
+otp_7219(suite) ->
+    [];
+otp_7219(doc) ->
+    "Test-case for ticket OTP-7219";
+otp_7219(Config) when is_list(Config) ->
+    put(tname, otp7219),
+    p("start"),
+    process_flag(trap_exit, true),
+
+    ConfDir = ?config(manager_conf_dir, Config),
+    DbDir   = ?config(manager_db_dir, Config),
+
+    p("write manager configuration"),
+    write_manager_conf(ConfDir),
+
+    Opts1 = [{versions, [v1]}, 
+	     {inform_request_behaviour, user}, 
+	     {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    p("start manager config"),
+    ?line {ok, _Pid1} = snmpm_config:start_link(Opts1),
+
+    p("get some manager config"),
+    {ok, {user, _}} = snmpm_config:system_info(net_if_irb),
+
+    p("stop manager config"),
+    ?line ok = snmpm_config:stop(),
+    await_config_not_running(),
+
+    IRB_TO = 15322, 
+    Opts2 = [{versions, [v1]}, 
+	     {inform_request_behaviour, {user, IRB_TO}}, 
+	     {config, [{verbosity, trace}, {dir, ConfDir}, {db_dir, DbDir}]}],
+
+    p("start manager config"),
+    ?line {ok, _Pid2} = snmpm_config:start_link(Opts2),
+
+    p("get some manager config"),
+    {ok, {user, IRB_TO}} = snmpm_config:system_info(net_if_irb),
+
+    p("stop manager config"),
+    ?line ok = snmpm_config:stop(),
+    await_config_not_running(),
+
+    p("done"),
+    ok.
+
+
+%%======================================================================
+%% Internal functions
+%%======================================================================
+
+await_config_not_running() ->
+    await_not_running(snmpm_config, 5).
+
+await_not_running(Name, 0) ->
+    p("await_not_running -> done waiting for ~w to die - try kill it", [Name]),
+    %% Ok, we tried it the nice way, now use brute force
+    await_killed(Name, 5);
+await_not_running(Name, N) when N > 0 ->
+    p("await_not_running -> is process ~w still running (~w)", [Name, N]),
+    case erlang:whereis(Name) of
+	undefined ->
+	    p("await_not_running -> no such (~w) process - sleep some",[Name]),
+	    ?SLEEP(1000),
+	    p("await_not_running -> no such (~w) process - done", [Name]),
+	    ok;
+	Pid when is_pid(Pid) ->
+	    p("~w process still running", [Name]),
+	    ?SLEEP(500),
+	    await_not_running(Name, N-1)
+    end.
+    
+await_killed(Name, 0) ->
+    p("await_killed -> could not kill ~w => giving up", [Name]),
+    exit({error, {failed_terminating, Name}});
+await_killed(Name, N) when N > 0 ->
+    p("await_killed -> is process ~w still running (~w)", [Name, N]),
+    case whereis(Name) of
+	undefined ->
+	    p("await_killed -> no such (~w) process - sleep some", [Name]),
+	    ?SLEEP(1000),
+	    p("await_killed -> no such (~w) process - done", [Name]),
+	    ok;
+	Pid when is_pid(Pid) ->
+	    p("await_killed -> ~w still running - try kill it", [Name]),
+	    exit(Pid, kill),
+	    ?SLEEP(1000),
+	    await_killed(Name, N-1)
+    end.
+    
+
+config_start(Opts) ->
+    (catch snmpm_config:start_link(Opts)).
+
+config_stop() ->
+    (catch snmpm_config:stop()).
+
+
+%% ------
+
+join(Dir, File) ->
+    filename:join(Dir, File).
+
+
+%% ------
+
+write_manager_conf(Dir) ->
+    Port = "5000",
+    MMS  = "484",
+    EngineID = "\"mgrEngine\"",
+    Str = lists:flatten(
+	    io_lib:format("%% Minimum manager config file\n"
+			  "{port,             ~s}.\n"
+			  "{max_message_size, ~s}.\n"
+			  "{engine_id,        ~s}.\n",
+			  [Port, MMS, EngineID])),
+    write_manager_conf(Dir, Str).
+
+write_manager_conf(Dir, IP, Port, MMS, EngineID) ->
+    Str = lists:flatten(
+	    io_lib:format("{address,          ~s}.\n"
+			  "{port,             ~s}.\n"
+			  "{max_message_size, ~s}.\n"
+			  "{engine_id,        ~s}.\n",
+			  [IP, Port, MMS, EngineID])),
+    write_manager_conf(Dir, Str).
+
+write_manager_conf(Dir, Str) ->
+    write_conf_file(Dir, "manager.conf", Str).
+
+
+write_users_conf(Dir, Users) ->
+    F = fun({UserId, UserMod, UserData}) -> %% Old format
+		lists:flatten(
+		  io_lib:format("{~s, ~s, ~s, ~s}.~n", 
+				[UserId, UserMod, UserData, "[]"]));
+	   ({UserId, UserMod, UserData, DefaultAgentConfig}) -> %% New format
+		lists:flatten(
+		  io_lib:format("{~s, ~s, ~s, ~s}.~n", 
+				[UserId, UserMod, UserData, DefaultAgentConfig]))
+	end,
+    Str = lists:flatten([F(User) || User <- Users]),
+    write_conf_file(Dir, "users.conf", Str).
+
+write_users_conf2(Dir, Str) ->
+    write_conf_file(Dir, "users.conf", Str).
+
+
+write_agents_conf(Dir, Agents) ->
+    F = fun({UserId,
+	     TargetName, Comm, 
+	     Ip, Port, EngineID, 
+	     Timeout, MMS, 
+	     Version, SecModel, SecName, SecLevel}) ->
+		lists:flatten(
+		  io_lib:format("{~s, ~n"
+				" ~s, ~s, ~n"
+				" ~s, ~s, ~s, ~n"
+				" ~s, ~s, ~n"
+				" ~s, ~s, ~s, ~s}.~n", 
+				[UserId, 
+				 TargetName, Comm, 
+				 Ip, Port, EngineID, 
+				 Timeout, MMS, 
+				 Version, SecModel, SecName, SecLevel]))
+	end,
+    Str = lists:flatten([F(Agent) || Agent <- Agents]),
+    write_conf_file(Dir, "agents.conf", Str).
+
+write_agents_conf2(Dir, Str) ->
+    write_conf_file(Dir, "agents.conf", Str).
+
+
+write_usm_conf(Dir, Usms) ->
+    F = fun({EngineID, UserName, SecName, AuthP, AuthKey, PrivP, PrivKey}) ->
+		lists:flatten(
+		  io_lib:format("{~s, ~s, ~s, ~n"
+				" ~s, ~s, ~n"
+				" ~s, ~s}.~n", 
+				[EngineID, UserName, SecName, 
+				 AuthP, AuthKey, 
+				 PrivP, PrivKey]));
+	   ({EngineID, UserName, AuthP, AuthKey, PrivP, PrivKey}) ->
+		lists:flatten(
+		  io_lib:format("{~s, ~s, ~n"
+				" ~s, ~s, ~n"
+				" ~s, ~s}.~n", 
+				[EngineID, UserName, 
+				 AuthP, AuthKey, 
+				 PrivP, PrivKey]));
+	   (Usm) ->
+		exit({invalid_usm, Usm})
+	end,
+    Str = lists:flatten([F(Usm) || Usm <- Usms]),
+    write_conf_file(Dir, "usm.conf", Str).
+
+write_usm_conf2(Dir, Str) ->
+    write_conf_file(Dir, "usm.conf", Str).
+
+
+write_conf_file(Dir, File, Str) ->
+    ?line {ok, Fd} = file:open(filename:join(Dir, File), write),
+    ?line ok = io:format(Fd, "~s", [Str]),
+    file:close(Fd).
+
+
+%% ------
+
+str(X) ->
+    lists:flatten(io_lib:format("~w", [X])).
+
+
+%% ------
+
+p(F) ->
+    p(F, []).
+
+p(F, A) ->
+    p(get(tname), F, A).
+
+p(TName, F, A) ->
+    io:format("*** [~s] ***"
+              " ~w -> " ++ F ++ "~n", [format_timestamp(now()),TName|A]).
+
+format_timestamp({_N1, _N2, N3}   = Now) ->
+    {Date, Time}   = calendar:now_to_datetime(Now),
+    {YYYY,MM,DD}   = Date,
+    {Hour,Min,Sec} = Time,
+    FormatDate =
+        io_lib:format("~.4w:~.2.0w:~.2.0w ~.2.0w:~.2.0w:~.2.0w 4~w",
+                      [YYYY,MM,DD,Hour,Min,Sec,round(N3/1000)]),
+    lists:flatten(FormatDate).
+