Changeset 24 for trunk/Backends/CVS

Timestamp:

Apr 5, 2025, 9:45:07 PM (2 weeks ago)

Author:

chronos

Message:

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

File:

• trunk/Backends/CVS/CVS.pas (modified) (3 diffs)

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;