Changeset 8 for trunk/UTestCases.pas

Timestamp:

Aug 20, 2022, 8:22:00 AM (2 years ago)

Author:

chronos

Message:

• Added: Update multiple test.
• Modified: Simplified tests structure.

File:

• trunk/UTestCases.pas (modified) (10 diffs)

trunk/UTestCases.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, FileUtil, UTest;
+  Classes, SysUtils, FileUtil, UTest, USubversion;
 
 type
+  { TTestCaseSvn }
+
+  TTestCaseSvn = class(TTestCase)
+  private
+    Subversion: TExecute;
+    SubversionAdmin: TSubversionAdmin;
+    function CheckError(Text: string): Boolean;
+  protected
+    LastDir: string;
+    RepoDir: string;
+    WorkDir: string;
+    TestDir: string;
+    procedure Svn(Parameters: array of string);
+    procedure SvnAdmin(Parameters: array of string);
+  public
+    procedure Initialize; override;
+    procedure Run; override;
+    procedure Finalize; override;
+    constructor Create; override;
+    destructor Destroy; override;
+  end;
+
+  { TTestCaseAdd }
+
   TTestCaseAdd = class(TTestCaseSvn)
     procedure Run; override;
   end;
 
+  { TTestCaseModify }
+
   TTestCaseModify = class(TTestCaseSvn)
     procedure Run; override;
   end;
 
+  { TTestCaseUpdate }
+
   TTestCaseUpdate = class(TTestCaseSvn)
     procedure Run; override;
   end;
 
+  { TTestCaseDelete }
+
   TTestCaseDelete = class(TTestCaseSvn)
     procedure Run; override;
@@ -29 +59 @@
   end;
 
+  { TTestCaseUpdateMultiple }
+
+  TTestCaseUpdateMultiple = class(TTestCaseSvn)
+    procedure Run; override;
+  end;
 
 implementation
 
-{ TTestCaseMerge }
-
-procedure TTestCaseMerge.Run;
-var
-  TestFile: string;
-begin
-  TestFile := 'TestFile.txt';
+uses
+  USvnZero;
+
+{ TTestCaseSvn }
+
+procedure TTestCaseSvn.Svn(Parameters: array of string);
+begin
+  Subversion.ExecuteOutput(Parameters);
+  if CheckError(Subversion.ErrorOutput) then
+    TestResult := trFailed;
+end;
+
+procedure TTestCaseSvn.SvnAdmin(Parameters: array of string);
+begin
+  SubversionAdmin.ExecuteOutput(Parameters);
+  if CheckError(SubversionAdmin.ErrorOutput) then
+    TestResult := trFailed;
+end;
+
+procedure TTestCaseSvn.Initialize;
+begin
+  inherited;
+  LastDir := GetCurrentDir;
+  ChDir(TestDir);
   SvnAdmin(['create', RepoDir]);
   Svn(['checkout', 'file:///' + RepoDir, WorkDir]);
   ChDir(WorkDir);
+end;
+
+function TTestCaseSvn.CheckError(Text: string): Boolean;
+begin
+  Result := Pos('svn: E', Text) > 0;
+end;
+
+procedure TTestCaseSvn.Run;
+begin
+end;
+
+procedure TTestCaseSvn.Finalize;
+begin
+  ChDir(LastDir);
+  DeleteDirectory(WorkDir, False);
+  DeleteDirectory(RepoDir, False);
+  inherited;
+end;
+
+constructor TTestCaseSvn.Create;
+begin
+  TestDir := GetTempDir(False) + 'SVNZero';
+  ForceDirectories(TestDir);
+  RepoDir := TestDir + DirectorySeparator + 'Repo';
+  WorkDir := TestDir + DirectorySeparator + 'Work';
+  //Subversion := TSubversion.Create;
+  Subversion := TSvnZero.Create;
+  SubversionAdmin := TSubversionAdmin.Create;
+end;
+
+destructor TTestCaseSvn.Destroy;
+begin
+  FreeAndNil(SubversionAdmin);
+  FreeAndNil(Subversion);
+  inherited;
+end;
+
+{ TTestCaseMerge }
+
+procedure TTestCaseMerge.Run;
+var
+  TestFile: string;
+begin
+  TestFile := 'TestFile.txt';
   SaveStringToFile('First line' + LineEnding + 'Second line' + LineEnding + 'Third line', TestFile);
   Svn(['add', TestFile]);
@@ -51 +147 @@
   Svn(['update', TestFile]);
   Svn(['commit', '-m', '"Commit message 3"']);
-  DeleteDirectory(WorkDir, False);
-  DeleteDirectory(RepoDir, False);
   Evaluate(True);
 end;
@@ -61 +155 @@
 begin
   TestFile := 'TestFile.txt';
-  SvnAdmin(['create', RepoDir]);
-  Svn(['checkout', 'file:///' + RepoDir, WorkDir]);
-  ChDir(WorkDir);
-  SaveStringToFile('Some text', TestFile);
-  Svn(['add', TestFile]);
-  Svn(['commit', '-m', '"Commit message"']);
-  DeleteDirectory(WorkDir, False);
-  DeleteDirectory(RepoDir, False);
+  SaveStringToFile('Some text', TestFile);
+  Svn(['add', TestFile]);
+  Svn(['commit', '-m', '"Commit message"']);
   Evaluate(True);
 end;
@@ -77 +166 @@
 begin
   TestFile := 'TestFile.txt';
-  SvnAdmin(['create', RepoDir]);
-  Svn(['checkout', 'file:///' + RepoDir, WorkDir]);
-  ChDir(WorkDir);
   SaveStringToFile('Some text', TestFile);
   Svn(['add', TestFile]);
@@ -85 +171 @@
   SaveStringToFile('Different text', TestFile);
   Svn(['commit', '-m', '"Commit message 2"']);
-  DeleteDirectory(WorkDir, False);
-  DeleteDirectory(RepoDir, False);
   Evaluate(True);
 end;
@@ -95 +179 @@
 begin
   TestFile := 'TestFile.txt';
-  SvnAdmin(['create', RepoDir]);
-  Svn(['checkout', 'file:///' + RepoDir, WorkDir]);
-  ChDir(WorkDir);
   SaveStringToFile('Some text', TestFile);
   Svn(['add', TestFile]);
@@ -104 +185 @@
   Svn(['commit', '-m', '"Commit message 2"']);
   Svn(['update', '-r', '1', TestFile]);
+  Svn(['update', '-r', '2', TestFile]);
   Svn(['update']);
-  DeleteDirectory(WorkDir, False);
-  DeleteDirectory(RepoDir, False);
   Evaluate(True);
 end;
@@ -115 +195 @@
 begin
   TestFile := 'TestFile.txt';
-  SvnAdmin(['create', RepoDir]);
-  Svn(['checkout', 'file:///' + RepoDir, WorkDir]);
-  ChDir(WorkDir);
   SaveStringToFile('Some text', TestFile);
   Svn(['add', TestFile]);
@@ -123 +200 @@
   Svn(['delete', TestFile]);
   Svn(['commit', '-m', '"Commit message 2"']);
-  DeleteDirectory(WorkDir, False);
-  DeleteDirectory(RepoDir, False);
-  Evaluate(True);
-end;
-
+  Evaluate(True);
+end;
+
+procedure TTestCaseUpdateMultiple.Run;
+var
+  I: Integer;
+const
+  Count = 20;
+begin
+  for I := 0 to Count - 1 do begin
+    SaveStringToFile('Some text', 'TestFile' + IntToStr(I) + '.txt');
+    Svn(['add', 'TestFile' + IntToStr(I) + '.txt']);
+  end;
+  Svn(['commit', '-m', '"Commit message"']);
+  for I := 0 to Count - 1 do
+    SaveStringToFile('Different text', 'TestFile' + IntToStr(I) + '.txt');
+  Svn(['commit', '-m', '"Commit message 2"']);
+  Svn(['update', '-r', '1']);
+  Svn(['update', '-r', '2']);
+  Svn(['update']);
+  Evaluate(True);
+end;
 
 end.