anchor.diff:  pos1(suite) -> [];
   pos1(doc) -> [];
   pos1(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)
  
positive.code:     ?line {ok, Fd} = ?PRIM_FILE:open(Name, [read, write]),
      ?line read_write_test(Fd),
  
      ?line test_server:timetrap_cancel(Dog),
      ok.
  
  read_write_test(File) ->
  
negative.code:     ?line Val = ?PRIM_FILE:close(Fd1),
      ?line io:format("Second close gave: ~p", [Val]),
  
      ok.
  
  access(suite) -> [];
  access(doc) -> [];
  access(Config) when is_list(Config) ->
      ?line RootDir = ?config(priv_dir,Config),
      ?line Name = filename:join(RootDir, 
  			       atom_to_list(?MODULE)
  