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

fpsvnsync: fixed adding new directories (or files) with properties

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@154 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-04-27 20:31:57 +00:00
parent 44f1a2f5da
commit 3b1dfd7245
4 changed files with 56 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,16 +272,20 @@ procedure TTestSvnClasses.TestPropListLoadForFiles;
var
SvnPropInfo: TSvnPropInfo;
FileNames: TStrings;
i : integer;
begin
FileNames:= TStringList.Create;
FileNames.Add('testsvnclasses.pas');
FileNames.Add(ExtractFileDir(ParamStr(0)));
FileNames.Add('fpcunitsvnpkg.lpi');
SvnPropInfo := TSvnPropInfo.Create;
try
SvnPropInfo.LoadForFiles(FileNames);
AssertEquals('Wrong number of files', 2, SvnPropInfo.FileCount);
AssertEquals('Wrong file name', FileNames[0], SvnPropInfo[0].FileName);
AssertEquals('Wrong file name', FileNames[1], SvnPropInfo[1].FileName);
AssertEquals('Wrong number of files', FileNames.Count, SvnPropInfo.FileCount);
for i := 0 to FileNames.Count-1 do begin
AssertNotNull('File name missing: '+ FileNames[i],
SvnPropInfo.GetFileItem(FileNames[i]));
end;
finally
FileNames.Free;
SvnPropInfo.Free;