Changeset 24 for trunk/Core.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/Core.pas (modified) (8 diffs)

trunk/Core.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, XMLConf, LazFileUtils, ActnList, Controls, VCS, Project,
-  LastOpenedList, Forms, Dialogs, Menus, Generics.Collections, Backend, FormMain;
+  LastOpenedList, Forms, Dialogs, Menus, Backend,
+  FormMain;
 
 type
@@ -65 +66 @@
     function DetectBackend(Directory: string): TBackend;
   public
-    Backends: TList<TBackend>;
+    Backends: TBackends;
     Project: TProject;
     ProjectGroup: TProjectGroup;
@@ -88 +89 @@
 
 uses
-  FormBrowse, FormSettings, FormCommit, FormCheckout,
-  Subversion, Bazaar, CVS, Git, FormTest, FormProjectGroup;
+  FormBrowse, FormSettings, FormCommit, FormCheckout, FormTests,
+  Subversion, Bazaar, CVS, Git, FormProjectGroup, Test;
 
 { TCore }
@@ -140 +141 @@
 
 procedure TCore.AViewTestExecute(Sender: TObject);
-var
-  FormTest: TFormTest;
-begin
-  FormTest := TFormTest.Create(nil);
-  try
-    FormTest.Show;
-  finally
-    FormTest.Free;
-  end;
+begin
+  with TFormTests.Create(nil) do
+    try
+      TestCases := InitTestCases;
+      try
+        ShowModal;
+      finally
+        TestCases.Free;
+      end;
+    finally
+      Free;
+    end;
 end;
 
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
-  Backends := TList<TBackend>.Create;
+  Backends := TBackends.Create;
   Project := nil;
 
@@ -203 +207 @@
 begin
   I := 0;
-  while (I < Backends.Count) and (not TBackend(Backends[I]).IsWorkingCopy(Directory)) do Inc(I);
-  if I < Backends.Count then Result := TBackend(Backends[I])
+  while (I < Backends.Count) and (not Backends[I].IsWorkingCopy(Directory)) do Inc(I);
+  if I < Backends.Count then Result := Backends[I]
     else Result := nil;
 end;
@@ -233 +237 @@
   RegisterBackends;
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
-  ForceDirectoriesUTF8(ExtractFileDir(XMLConfig1.Filename));
+  ForceDirectories(ExtractFileDir(XMLConfig1.Filename));
   LoadConfig;
-  if (LastOpenedListProject.Items.Count > 0) and DirectoryExistsUTF8(LastOpenedListProject.Items[0]) then
+  if (LastOpenedListProject.Items.Count > 0) and DirectoryExists(LastOpenedListProject.Items[0]) then
     ProjectOpen(LastOpenedListProject.Items[0]);
 end;
@@ -327 +331 @@
 procedure TCore.AProjectGroupSaveExecute(Sender: TObject);
 begin
-  if FileExistsUTF8(ProjectGroup.FileName) then ProjectGroup.SaveToFile(ProjectGroup.FileName)
+  if FileExists(ProjectGroup.FileName) then ProjectGroup.SaveToFile(ProjectGroup.FileName)
     else AProjectGroupSaveAs.Execute;
 end;
@@ -378 +382 @@
   try
     if FormCommit.ShowModal = mrOk then begin
-      Project.WorkingCopy.Commit(FormCommit.MemoMessage.Lines);
+      Project.WorkingCopy.Commit(FormCommit.MemoMessage.Lines.Text);
     end;
   finally