anchor.diff:  	    _ ->  apply(?PRIM_FILE, F, [H | A])
   	end).
   
  -suite() -> [{ct_hooks,[ts_install_cth]}].
  +suite() -> [].
   
   all() -> 
       [read_write_file, {group, dirs}, {group, files},
  
positive.code: 
      %% No permission (on Unix only).
      case os:type() of
  	{unix, _} ->
  	    ?line ?PRIM_FILE:write_file_info(Base, #file_info {mode=0}),
  	    ?line {error, eacces} = 
  		?PRIM_FILE:make_dir(filename:join(Base, "xxxx")),
  	    ?line 
  		?PRIM_FILE:write_file_info(Base, #file_info {mode=8#600});
  	{win32, _} ->
  	    ok
      end,
      ?line test_server:timetrap_cancel(Dog),
      ok.
  
negative.code: 
      %% No permission.
      case os:type() of
  	{win32, _} ->
  	    ok;
  	_ ->
  	    ?line ADirectory = filename:join(Base, "no_perm"),
  	    ?line ok = ?PRIM_FILE:make_dir(ADirectory),
  	    ?line ?PRIM_FILE:write_file_info(Base, #file_info {mode=0}),
  	    ?line {error, eacces} = ?PRIM_FILE:del_dir(ADirectory),
  	    ?line ?PRIM_FILE:write_file_info(
  		     Base, #file_info {mode=8#600})
      end,
      ?line test_server:timetrap_cancel(Dog),
      ok.
  