anchor.diff:      ?line {ok, BaseDir} = ?PRIM_FILE_call(get_cwd, Handle, []),
       ?line false = lists:member($\\, BaseDir),
   
  -    ?line test_server:timetrap_cancel(Dog),
       ok.
   
   %% Tests ?PRIM_FILE:get_cwd/1.
  
positive.code: truncate(suite) -> [];
  truncate(doc) -> [];
  truncate(Config) when is_list(Config) ->
      ?line Dog = test_server:timetrap(test_server:seconds(5)),
      ?line RootDir = ?config(priv_dir,Config),
      ?line Name = filename:join(RootDir, 
  			       atom_to_list(?MODULE)
  
negative.code:     ?line ok = ?PRIM_FILE:write(Fd4, Line2),
      ?line ok = ?PRIM_FILE:close(Fd4),
  
      ok.
  
  allocate_and_assert(Fd, Offset, Length) ->
  