From 5a274d364cc508ea32460b47a91b1a514109f329 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 3 Apr 2009 20:27:49 +0000
Subject: [PATCH] testsvnclasses.pas: added svn status tests and status.xml

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@763 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/svn/test/status.xml         | 312 +++++++++++++++++++++++++
 components/svn/test/testsvnclasses.pas |  32 +++
 2 files changed, 344 insertions(+)
 create mode 100644 components/svn/test/status.xml

diff --git a/components/svn/test/status.xml b/components/svn/test/status.xml
new file mode 100644
index 000000000..fcdaaf34d
--- /dev/null
+++ b/components/svn/test/status.xml
@@ -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>
diff --git a/components/svn/test/testsvnclasses.pas b/components/svn/test/testsvnclasses.pas
index e983f93d1..9d7f8cd91 100644
--- a/components/svn/test/testsvnclasses.pas
+++ b/components/svn/test/testsvnclasses.pas
@@ -17,6 +17,7 @@ type
     function GetInfoFileName: string;
     function GetLogFileName: string;
     function GetPropFileName: string;
+    function GetStatusFileName: string;
   published
     procedure TestHookUp;
     procedure TestLoadInfo;
@@ -29,10 +30,16 @@ type
     procedure TestLogFiles;
     procedure TestPropList;
     procedure TestPropListLoadForFiles;
+    procedure TestStatus;
   end;
 
 implementation
 
+function TTestSvnClasses.GetStatusFileName: string;
+begin
+  Result := ExtractFilePath(ParamStr(0)) + 'status.xml';
+end;
+
 function TTestSvnClasses.GetInfoFileName: string;
 begin
   Result := ExtractFilePath(ParamStr(0)) + 'info.xml';
@@ -294,6 +301,31 @@ begin
   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
 
   RegisterTest(TTestSvnClasses);