anchor.diff:  %% -----
   %%
   
  -init_per_testcase(read = _Case, Config) when is_list(Config) ->
  +init_per_testcase(fd_leak_check = _Case, Config) when is_list(Config) ->
  +    ?IPRINT("init_per_testcase -> entry with"
  +            "~n   Config: ~p", [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").
  
positive.code:     end.
  
  
  %%======================================================================
  
  read_files(suite) -> [];
  read_files(Config) when is_list(Config) ->
      ?P(read_files),
      ?SKIP(not_implemented_yet).
  
  
  %%======================================================================
  
negative.code:      check_sec_model2,
       check_sec_level,
       check_timer, 
       read, read_files,
       fd_leak_check
      ].
  
  groups() -> 
  