Changeset 24 for trunk/Backends

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/Backends

Files:

• Bazaar/Bazaar.pas (modified) (2 diffs)
• CVS/CVS.pas (modified) (3 diffs)
• Git/Git.pas (modified) (3 diffs)
• Subversion/Subversion.pas (modified) (4 diffs)

trunk/Backends/Bazaar/Bazaar.pas

@@ -24 +24 @@
     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;
@@ -77 +77 @@
 end;
 
-procedure TBazaar.Commit(Message: TStrings);
+procedure TBazaar.Commit(Message: string);
 begin
-  Execute(['commit', '-m "' + Message.Text + '"']);
+  Execute(['commit', '-m "' + Message + '"']);
 end;
 

trunk/Backends/CVS/CVS.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 GetStatus(FileName: string; Status: TFileStatusList); override;
+    procedure GetStatus(FileName: string; Status: TFileStatuses); override;
   end;
 
@@ -95 +95 @@
 end;
 
-procedure TCVS.Commit(Message: TStrings);
+procedure TCVS.Commit(Message: string);
 begin
-  Execute(['commit', '-m "' + Message.Text + '"']);
+  Execute(['commit', '-m "' + Message + '"']);
 end;
 
@@ -124 +124 @@
 end;
 
-procedure TCVS.GetStatus(FileName: string; Status: TFileStatusList);
+procedure TCVS.GetStatus(FileName: string; Status: TFileStatuses);
 begin
   Status.Clear;

trunk/Backends/Git/Git.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 GetLog(FileName: string; Log: TLogList); override;
+    procedure GetLog(FileName: string; Log: TLogItems); override;
   end;
 
@@ -93 +93 @@
 end;
 
-procedure TGit.Commit(Message: TStrings);
+procedure TGit.Commit(Message: string);
 begin
   Execute(['config', 'user.name "' + UserName + '"']);
   Execute(['config', 'user.email "' + Email + '"']);
-  Execute(['commit', '-m "' + Message.Text + '"']);
+  Execute(['commit', '-m "' + Message + '"']);
 end;
 
@@ -115 +115 @@
 end;
 
-procedure TGit.GetLog(FileName: string; Log: TLogList);
+procedure TGit.GetLog(FileName: string; Log: TLogItems);
 begin
 end;

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;