anchor.diff:  
       %% Create a short file.
       Name = filename:join(RootDir,
  -			 atom_to_list(?MODULE)
  -			 ++"_basic_test.fil"),
  +			 atom_to_list(?MODULE) ++ "_" ++
  +                         atom_to_list(?FUNCTION_NAME) ++ ".fil"),
       {ok,Fd1} = ?FILE_MODULE:open(Name, write),
       io:put_chars(Fd1, "foo bar"),
       ok = ?FILE_MODULE:close(Fd1),
  
positive.code:     io:format("RootDir = ~p", [RootDir]),
  
      Name = filename:join(RootDir,
  			 atom_to_list(?MODULE)
  			 ++"_file_info.fil"),
      {ok,Fd1} = ?FILE_MODULE:open(Name, write),
      io:put_chars(Fd1,"foo"),
      {ok,FileInfo1} = ?FILE_MODULE:read_file_info(Fd1),
  
negative.code:     io:format("RootDir = ~p", [RootDir]),
  
      Name = filename:join(RootDir,
  			 atom_to_list(?MODULE) ++ "_" ++
                           atom_to_list(?FUNCTION_NAME) ++ ".fil"),
      {ok,Fd1} = ?FILE_MODULE:open(Name,write),
      io:put_chars(Fd1,"foo"),
  
  