Changeset 24 for trunk/Units/VCS.pas

Timestamp:

Apr 5, 2025, 9:45:07 PM (12 days ago)

Author:

chronos

Message:

• Fixed: Test cases executed with FormTests form from Common package.

File:

• trunk/Units/VCS.pas (modified) (11 diffs)

trunk/Units/VCS.pas

@@ -21 +21 @@
   end;
 
-  TLogList = class(TObjectList<TLogItem>)
+  TLogItems = class(TObjectList<TLogItem>)
   end;
 
@@ -37 +37 @@
   end;
 
-  { TFileStatusList }
-
-  TFileStatusList = class(TObjectList<TFileStatus>)
+  { TFileStatuses }
+
+  TFileStatuses = class(TObjectList<TFileStatus>)
     function SearchByName(Name: string): TFileStatus;
   end;
@@ -64 +64 @@
     procedure Update; virtual;
     procedure CleanUp; virtual;
-    procedure Commit(Message: TStrings); virtual;
+    procedure Commit(Message: string); virtual;
     procedure Move(Source, Dest: string); virtual;
     procedure Merge; virtual;
@@ -70 +70 @@
     procedure Add(FileName: string); virtual;
     procedure Remove(FileName: string); virtual;
-    procedure GetLog(FileName: string; Log: TLogList); virtual;
-    procedure GetStatus(FileName: string; Status: TFileStatusList); virtual;
+    procedure GetLog(FileName: string; Log: TLogItems); virtual;
+    procedure GetStatus(FileName: string; Status: TFileStatuses); virtual;
     constructor Create;
     destructor Destroy; override;
@@ -86 +86 @@
     ExecutionOutput: TStringList;
     Path: string;
+    SilentExecution: Boolean;
     procedure Init; virtual;
     constructor Create;
@@ -106 +107 @@
 begin
   Result := DirName;
-  if Relative then Result := GetCurrentDirUTF8 + DirectorySeparator + Result;
+  if Relative then Result := GetCurrentDir + DirectorySeparator + Result;
   Result := 'file:///' + StringReplace(Result, DirectorySeparator, '/', [rfReplaceAll]);
 end;
@@ -121 +122 @@
 end;
 
-{ TFileStatusList }
-
-function TFileStatusList.SearchByName(Name: string): TFileStatus;
+{ TFileStatuses }
+
+function TFileStatuses.SearchByName(Name: string): TFileStatus;
 var
   I: Integer;
@@ -145 +146 @@
     FormConsole.Parameters.Clear;
     FormConsole.Parameters.AddStrings(Parameters);
-    if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
+    if DirectoryExists(Path) then FormConsole.WorkingDir := Path
       else FormConsole.WorkingDir := '';
-    FormConsole.ShowModal;
+    if SilentExecution then FormConsole.Perform
+      else FormConsole.ShowModal;
     ExecutionOutput.Assign(FormConsole.Log);
   finally
@@ -156 +158 @@
 procedure TRepository.Init;
 begin
-
 end;
 
@@ -211 +212 @@
     FormConsole.Parameters.Clear;
     FormConsole.Parameters.AddStrings(Parameters);
-    if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
+    if DirectoryExists(Path) then FormConsole.WorkingDir := Path
       else FormConsole.WorkingDir := '';
     if SilentExecution then FormConsole.Perform
@@ -234 +235 @@
 procedure TWorkingCopy.Checkout;
 begin
-
 end;
 
 procedure TWorkingCopy.Update;
 begin
-
 end;
 
 procedure TWorkingCopy.CleanUp;
 begin
-
-end;
-
-procedure TWorkingCopy.Commit(Message: TStrings);
-begin
-
+end;
+
+procedure TWorkingCopy.Commit(Message: string);
+begin
 end;
 
 procedure TWorkingCopy.Move(Source, Dest: string);
 begin
-
 end;
 
 procedure TWorkingCopy.Merge;
 begin
-
 end;
 
 procedure TWorkingCopy.Refresh;
 begin
-
 end;
 
 procedure TWorkingCopy.Add(FileName: string);
 begin
-
 end;
 
 procedure TWorkingCopy.Remove(FileName: string);
 begin
-
-end;
-
-procedure TWorkingCopy.GetLog(FileName: string; Log: TLogList);
+end;
+
+procedure TWorkingCopy.GetLog(FileName: string; Log: TLogItems);
 begin
   Log.Clear;
 end;
 
-procedure TWorkingCopy.GetStatus(FileName: string; Status: TFileStatusList);
+procedure TWorkingCopy.GetStatus(FileName: string; Status: TFileStatuses);
 begin
   Status.Clear;