Changeset 24 for trunk/Units

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Units

Files:

• Backend.pas (modified) (2 diffs)
• Project.pas (modified) (2 diffs)
• VCS.pas (modified) (11 diffs)

trunk/Units/Backend.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, VCS;
+  Classes, SysUtils, VCS, Generics.Collections;
 
 type
@@ -19 +19 @@
     function IsRepository(Directory: string): Boolean; virtual;
     function IsWorkingCopy(Directory: string): Boolean; virtual;
+  end;
+
+  TBackends = class(TList<TBackend>)
   end;
 

trunk/Units/Project.pas

@@ -80 +80 @@
     NewNode := Node.OwnerDocument.CreateElement('Project');
     Node.AppendChild(NewNode);
-    TProject(Items[I]).SaveXMLNode(NewNode);
+    Items[I].SaveXMLNode(NewNode);
   end;
 end;
@@ -136 +136 @@
       Projects.SaveXMLNode(NewNode);
     end;
-    ForceDirectoriesUTF8(ExtractFileDir(FileName));
-    WriteXMLFile(Doc, UTF8Decode(FileName));
+    ForceDirectories(ExtractFileDir(FileName));
+    WriteXMLFile(Doc, FileName);
   finally
     Doc.Free;

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;