Changeset 8 for trunk/UTest.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/UTest.pas (modified) (7 diffs)

trunk/UTest.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, USubversion, FileUtil, Generics.Collections;
+  Classes, SysUtils, FileUtil, Generics.Collections;
 
 type
@@ -16 +16 @@
     TestResult: TTestResult;
     Log: string;
+    procedure Initialize; virtual;
     procedure Run; virtual;
+    procedure Finalize; virtual;
     procedure Evaluate(Passed: Boolean);
     procedure Pass;
@@ -32 +34 @@
   end;
 
-  { TTestCaseSvn }
-
-  TTestCaseSvn = class(TTestCase)
-  private
-    Subversion: TExecute;
-    SubversionAdmin: TSubversionAdmin;
-    function CheckError(Text: string): Boolean;
-  protected
-    RepoDir: string;
-    WorkDir: string;
-    TestDir: string;
-    procedure Svn(Parameters: array of string);
-    procedure SvnAdmin(Parameters: array of string);
-  public
-    procedure Run; override;
-    constructor Create; override;
-    destructor Destroy; override;
-  end;
 
 resourcestring
@@ -64 +48 @@
 
 implementation
-
-uses
-  USvnZero;
 
 procedure Translate;
@@ -91 +72 @@
 { TTestCase }
 
+procedure TTestCase.Initialize;
+begin
+end;
+
 procedure TTestCase.Run;
+begin
+end;
+
+procedure TTestCase.Finalize;
 begin
 end;
@@ -129 +118 @@
   Passed: Integer;
   Failed: Integer;
-  LastDir: string;
 begin
   for I := 0 to Count - 1 do
   with Items[I] do begin
     WriteLn('== ' + Name + ' ======= ');
-    LastDir := GetCurrentDir;
+    Initialize;
     Run;
-    ChDir(LastDir);
+    Finalize;
   end;
 
@@ -151 +139 @@
 end;
 
-{ 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;
-
-function TTestCaseSvn.CheckError(Text: string): Boolean;
-begin
-  Result := Pos('svn: E', Text) > 0;
-end;
-
-procedure TTestCaseSvn.Run;
-begin
-  ChDir(TestDir);
-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;
-
 end.