anchor.diff:  
   function REPOSITORY_FOLDER: PAnsiChar;
   begin
  -   Result := PAnsiChar(ExtractFilePath(ParamStr(0)) + REPOSITORY_FOLDER_);
  +   Result := PAnsiChar(AnsiString(ExtractFilePath(ParamStr(0)) + REPOSITORY_FOLDER_));
   end;
   
   function git_oid_cmp(const a, b: Pgit_oid): Integer;
  
positive.code:    git_oid_mkstr(@entry_id, tree_oid);
     for i := 0 to entry_count - 1 do
     begin
        filename := Format('file%d.txt', [i]);
        must_pass(git_tree_add_entry(tree, @entry_id, PAnsiChar(filename), OctalToInt('040000')));
     end;
  
  
negative.code:       commit_time    := git_commit_time(commit);
        parents        := git_commit_parentcount(commit);
  
        CheckTrue(StrComp(author.name,      'Scott Chacon') = 0);
        CheckTrue(StrComp(author.email,     'schacon@gmail.com') = 0);
        CheckTrue(StrComp(committer.name,   'Scott Chacon') = 0);
        CheckTrue(StrComp(committer.email,  'schacon@gmail.com') = 0);
        CheckTrue(Pos(#10, String(message_)) > 0);
        CheckTrue(Pos(#10, String(message_short)) = 0);
        CheckTrue(commit_time > 0);
  
        CheckTrue(parents <= 2, 'parents <= 2');
  