anchor.diff:  		Else ->
   		    Else
   	    end,
  -	    Com;
  -	{win32, _} ->
  -	    %% At least Windows NT can 
  -	    %% successfully move a file to
  -	    %% another drive.
  -	    ok
  +	    Com
       end,
       ?line test_server:timetrap_cancel(Dog),
       Comment.
  
positive.code: 
      %% No permission.
      case os:type() of
  	{unix, _} ->
  	    ?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});
  	{win32, _} ->
  	    ok
      end,
      ?line test_server:timetrap_cancel(Dog),
      ok.
  
negative.code: 	    _ ->  apply(?PRIM_FILE, F, [H | A])
  	end).
  
  suite() -> [].
  
  all() -> 
      [read_write_file, {group, dirs}, {group, files},
  