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

testsvnclasses.pas: added svn status tests and status.xml

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@763 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-04-03 20:27:49 +00:00
parent 11938bfea0
commit 5a274d364c
2 changed files with 344 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

312
components/svn/test/status.xml Normal file
View File

@ -0,0 +1,312 @@
<?xml version="1.0"?>
<status>
<target
path="DevWork">
<entry
path="DevWork/ProcessingForm.lrs">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/DevWork.app">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/ProcessingForm.ppu">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/DevWork.lpi">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/mainform.lrs">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/Initial.pas">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="4">
<author>skalogryz</author>
<date>2009-03-10T07:26:05.645361Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/mainform.ppu">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/DevWork.lpr">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="10">
<author>skalogryz</author>
<date>2009-03-23T13:47:56.231453Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/svnexec.ppu">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/DevWork.lrs">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/svnVersionControl.ppu">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/DevWork">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/ProcessingForm.pas">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="10">
<author>skalogryz</author>
<date>2009-03-23T13:47:56.231453Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/mainform.pas">
<wc-status
props="none"
item="modified"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/DevWork.ico">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/icons.PNG">
<wc-status
props="normal"
item="normal"
revision="12">
<commit
revision="10">
<author>skalogryz</author>
<date>2009-03-23T13:47:56.231453Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/backup">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/DevWork.compiled">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/ProcessingForm.lfm">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/VersionControlTypes.ppu">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/DevWork.rc">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/mainform.lfm">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<entry
path="DevWork/DevWork.manifest">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork/Initial.ppu">
<wc-status
props="none"
item="unversioned">
</wc-status>
</entry>
<entry
path="DevWork">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="11">
<author>skalogryz</author>
<date>2009-03-27T14:47:59.748249Z</date>
</commit>
</wc-status>
</entry>
<against
revision="12"/>
</target>
<target
path="VersionControl">
<entry
path="VersionControl/svnexec.pas">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="3">
<author>skalogryz</author>
<date>2009-03-10T07:24:53.791474Z</date>
</commit>
</wc-status>
</entry>
<entry
path="VersionControl/VersionControlTypes.pas">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="3">
<author>skalogryz</author>
<date>2009-03-10T07:24:53.791474Z</date>
</commit>
</wc-status>
</entry>
<entry
path="VersionControl/svnVersionControl.pas">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="12">
<author>skalogryz</author>
<date>2009-03-28T10:12:28.820488Z</date>
</commit>
</wc-status>
</entry>
<entry
path="VersionControl">
<wc-status
props="none"
item="normal"
revision="12">
<commit
revision="12">
<author>skalogryz</author>
<date>2009-03-28T10:12:28.820488Z</date>
</commit>
</wc-status>
</entry>
<against
revision="12"/>
</target>
</status>

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

@ -17,6 +17,7 @@ type
function GetInfoFileName: string; function GetInfoFileName: string;
function GetLogFileName: string; function GetLogFileName: string;
function GetPropFileName: string; function GetPropFileName: string;
function GetStatusFileName: string;
published published
procedure TestHookUp; procedure TestHookUp;
procedure TestLoadInfo; procedure TestLoadInfo;
@ -29,10 +30,16 @@ type
procedure TestLogFiles; procedure TestLogFiles;
procedure TestPropList; procedure TestPropList;
procedure TestPropListLoadForFiles; procedure TestPropListLoadForFiles;
procedure TestStatus;
end; end;
implementation implementation
function TTestSvnClasses.GetStatusFileName: string;
begin
Result := ExtractFilePath(ParamStr(0)) + 'status.xml';
end;
function TTestSvnClasses.GetInfoFileName: string; function TTestSvnClasses.GetInfoFileName: string;
begin begin
Result := ExtractFilePath(ParamStr(0)) + 'info.xml'; Result := ExtractFilePath(ParamStr(0)) + 'info.xml';
@ -294,6 +301,31 @@ begin
end; end;
end; end;
procedure TTestSvnClasses.TestStatus;
var
SvnStatus: TSvnStatus;
procedure AssertTargetPath(i: integer; const ATargetPath: string; AItemsCount: Integer);
var
List: TSvnStatusList;
begin
List := SvnStatus.Lists[i];
AssertEquals('Wrong target path', ATargetPath, List.TargetPath);
AssertEquals('Wrong number of list items', AItemsCount, AItemsCount);
end;
begin
SvnStatus := TSvnStatus.Create;
try
SvnStatus.LoadFromFile(GetStatusFileName);
AssertEquals('Wrong number of status lists', 2, SvnStatus.ListsCount);
AssertTargetPath(0, 'DevWork', 25);
AssertTargetPath(1, 'VersionControl', 4);
finally
SvnStatus.Free;
end;
end;
initialization initialization
RegisterTest(TTestSvnClasses); RegisterTest(TTestSvnClasses);