anchor.diff:  %% -----
   %%
   
  +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.
   
  
positive.code: 
  %%======================================================================
  
  read(suite) -> [];
  read(Config) when is_list(Config) ->
      ?P(read),
      ?SKIP(not_implemented_yet).
  
  
  %%======================================================================
  
negative.code:             %% 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", [Config2]),
              
              Config2
      end.
  
  end_per_suite(Config0) when is_list(Config0) ->
  