Initial commit - Delphi MES client project

2026-05-07 20:25:34 +08:00
commit 819b4824f6
466 changed files with 1176403 additions and 0 deletions
@@ -0,0 +1,28 @@
+program TestRunner;
+
+uses
+  System.SysUtils, TestFramework, GUITestRunner, TextTestRunner, uUnitTests;
+
+{$R *.RES}
+
+begin
+  Application.Title := '测试运行器';
+  
+  // 运行所有测试
+  if ParamCount > 0 then
+  begin
+    if SameText(ParamStr(1), '-console') then
+    begin
+      TextTestRunner.RunRegisteredTests;
+    end
+    else
+    begin
+      GUITestRunner.RunRegisteredTests;
+    end;
+  end
+  else
+  begin
+    // 默认使用GUI测试运行器
+    GUITestRunner.RunRegisteredTests;
+  end;
+end.