anchor.diff:              %% We need a monitor on this node also
               snmp_test_sys_monitor:start(),
   
  +            PrivDir    = ?config(priv_dir, Config1),
  +            PrivSubdir = filename:join(PrivDir, "snmp_conf_test"),
  +            ok = filelib:ensure_dir(filename:join(PrivSubdir, "dummy")),
  +            Config2 = [{priv_subdir, PrivSubdir} | Config1],
  +
               ?IPRINT("init_per_suite -> end when"
  -                    "~n      Config: ~p", [Config1]),
  +                    "~n      Config: ~p", [Config2]),
               
  -            Config1
  +            Config2
       end.
   
   end_per_suite(Config0) when is_list(Config0) ->
  
positive.code: 
  %%======================================================================
  
  read(suite) -> [];
  read(Config) when is_list(Config) ->
      ?P(read),
      ?SKIP(not_implemented_yet).
  
  
  %%======================================================================
  
negative.code: %% -----
  %%
  
  init_per_testcase(read = _Case, Config) when is_list(Config) ->
      %% There are other ways to test this:
      %% lsof (linux and maybe FreeBSD):    lsof -p <pid>
      %%    os:cmd("lsof -p " ++ os:getpid() ++ " | grep -v COMMAND | wc -l").
      %% fstat (FreeBSD and maybe OpenBSD): fstat -p <pid>
      %%    os:cmd("fstat -p " ++ os:getpid() ++ " | grep -v USER | wc -l").
      %% But this (list:dir) is good enough...
      case os:type() of
          {unix, linux} ->
              case file:read_file_info("/proc/" ++ os:getpid() ++ "/fd") of
                  {ok, #file_info{type   = directory,
                                  access = Access}}
                    when (Access =:= read) orelse
                         (Access =:= read_write) ->
                      [{num_open_fd, fun num_open_fd_using_list_dir/0} |
                       Config];
                  _ ->
                      {skip, "Not proc fd"}
              end;
          {win32, _} ->
              {skip, "Not implemented"};
          _ ->
              {skip, "Not implemented"}
      end;
  init_per_testcase(_Case, Config) when is_list(Config) ->
      Config.
  
  