pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

svn classes: fixed test

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@137 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-03-30 13:18:56 +00:00
parent 49b0c3d159
commit 479926d209
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/svn/test/testsvnclasses.pas
View File

@@ -221,6 +221,8 @@ var
SvnLog: TSvnLog;
Files: TStrings;
i: Integer;
const
DeletedFileCount : array[0..5] of byte = (0,1,1,2,0,0);
begin
SvnLog := TSvnLog.Create;
Files := nil;
@@ -229,8 +231,8 @@ begin
AssertEquals('Wrong number of log entries', 6, SvnLog.LogEntryCount);
for i := 0 to SvnLog.LogEntryCount - 1 do begin
Files := SvnLog.LogEntry[i].GetFileList;
AssertEquals('Wrong number of files',
SvnLog.LogEntry[i].PathCount, Files.Count);
AssertEquals('Wrong number of files for entry ' + IntToStr(i),
SvnLog.LogEntry[i].PathCount - DeletedFileCount[i], Files.Count);
FreeAndNil(Files);
end;
finally