anchor.diff:      ?line ok = io:format(Fd, "~s", [Str]),
       file:close(Fd).
   
  -
  -%% ------
  -
  -p(F) ->
  -    p(F, []).
  - 
  -p(F, A) ->
  -    p(get(tname), F, A).
  - 
  -p(TName, F, A) ->
  -    io:format("~w -> " ++ F ++ "~n", [TName|A]).
  -
  
positive.code:     ?line ok    = file:make_dir(MgrDbDir),
      MgrLogDir   = filename:join(MgrTopDir,   "log/"),
      ?line ok    = file:make_dir(MgrLogDir),
      [{case_top_dir,     CaseTopDir},
       {manager_dir,      MgrTopDir},
       {manager_conf_dir, MgrConfDir},
       {manager_db_dir,   MgrDbDir},
       {manager_log_dir,  MgrLogDir} | Config].
  
  
  end_per_testcase(Case, Config) when is_list(Config) ->
      p("end_per_testcase -> Case: ~p", [Case]),
  
      p("system events during test: "
        "~n   ~p~n", [snmp_test_global_sys_monitor:events()]),
  
      Config.
  
  
negative.code: %%
  
  init_per_testcase(Case, Config) when is_list(Config) ->
      ?IPRINT("init_per_testcase -> entry with"
              "~n   Config: ~p", [Config]),
  
      snmp_test_global_sys_monitor:reset_events(),
      
      SuiteTopDir = ?config(snmp_suite_top_dir, Config),
      CaseTopDir  = filename:join(SuiteTopDir, atom_to_list(Case)),
      ?line ok    = file:make_dir(CaseTopDir),
      ?IPRINT("init_per_testcase -> CaseTopDir: ~p", [CaseTopDir]),
      MgrTopDir   = filename:join(CaseTopDir, "manager/"),
      ?line ok    = file:make_dir(MgrTopDir),
      MgrConfDir  = filename:join(MgrTopDir, "conf/"),
  