Changeset 24 for trunk/Backends/Subversion/Subversion.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/Backends/Subversion/Subversion.pas (modified) (4 diffs)

trunk/Backends/Subversion/Subversion.pas

@@ -25 +25 @@
     procedure Update; override;
     procedure CleanUp; override;
-    procedure Commit(Message: TStrings); override;
+    procedure Commit(Message: string); override;
     procedure Move(Source, Dest: string); override;
     procedure Merge; override;
     procedure Add(FileName: string); override;
     procedure Remove(FileName: string); override;
-    procedure GetLog(FileName: string; Log: TLogList); override;
-    procedure GetStatus(FileName: string; Status: TFileStatusList); override;
+    procedure GetLog(FileName: string; Log: TLogItems); override;
+    procedure GetStatus(FileName: string; Status: TFileStatuses); override;
   end;
 
@@ -116 +116 @@
 end;
 
-procedure TSubversion.Commit(Message: TStrings);
-begin
-  Execute(['commit', '-m "' + Message.Text + '"']);
+procedure TSubversion.Commit(Message: string);
+begin
+  Execute(['commit', '-m "' + Message + '"']);
 end;
 
@@ -141 +141 @@
 end;
 
-procedure TSubversion.GetLog(FileName: string; Log: TLogList);
+procedure TSubversion.GetLog(FileName: string; Log: TLogItems);
 var
   NewItem: TLogItem;
@@ -184 +184 @@
 end;
 
-procedure TSubversion.GetStatus(FileName: string; Status: TFileStatusList);
+procedure TSubversion.GetStatus(FileName: string; Status: TFileStatuses);
 var
   Doc: TXMLDocument;
   S: TStringStream;
   Node: TDOMNode;
-  Node2: TDOMNode;
   RootNode: TDOMNode;
   TargetNode: TDOMNode;