From b06766ee429d5ba9882f129255d250d6645c2ff8 Mon Sep 17 00:00:00 2001
From: Ubuntu2404LTS <brianschmitt001@yahoo.com>
Date: Sat, 15 Aug 2026 05:37:05 -0700
Subject: [PATCH] (TestRunner.pas) Updated TestRunner.pas to work with FPC and
 Blaise compiler

---
 src/main/pascal/PasBuild.Command.Init.pas | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/src/main/pascal/PasBuild.Command.Init.pas b/src/main/pascal/PasBuild.Command.Init.pas
index 2a4ce6a..f0a9eb6 100644
--- a/src/main/pascal/PasBuild.Command.Init.pas
+++ b/src/main/pascal/PasBuild.Command.Init.pas
@@ -160,10 +160,15 @@ function TInitCommand.GenerateTestRunnerPas(const AProjectName: string): string;
 begin
   Result := 'program TestRunner;' + LineEnding +
             '' + LineEnding +
+            '{$IFDEF FPC}' + LineEnding +
             '{$mode objfpc}{$H+}' + LineEnding +
-            '' + LineEnding +
             'uses' + LineEnding +
             '  Classes, SysUtils, fpcunit, testregistry, consoletestrunner;' + LineEnding +
+            '{$ENDIF}' + LineEnding +
+            '' + LineEnding +
+            '{$IFDEF BLAISE}' + LineEnding +
+            'uses blaise.testing, blaise.testing.runner.text;' + LineEnding +
+            '{$ENDIF}' + LineEnding +
             '' + LineEnding +
             'type' + LineEnding +
             '  { Sample test case - replace with your actual tests }' + LineEnding +
@@ -177,6 +182,7 @@             '  TSampleTest = class(TTestCase)' + LineEnding +
             '  AssertEquals(''Sample test'', 2, 1 + 1);' + LineEnding +
             'end;' + LineEnding +
             '' + LineEnding +
+            '{$IFDEF FPC}' + LineEnding +
             'var' + LineEnding +
             '  Application: TTestRunner;' + LineEnding +
             '' + LineEnding +
@@ -189,7 +195,16 @@             '  TSampleTest = class(TTestCase)' + LineEnding +
             '  finally' + LineEnding +
             '    Application.Free;' + LineEnding +
             '  end;' + LineEnding +
-            'end.' + LineEnding;
+            'end.' + LineEnding +
+            '{$ENDIF}' + LineEnding +
+            '' + LineEnding +
+            '{$IFDEF BLAISE}' + LineEnding +
+            'begin' + LineEnding +
+            '  RegisterTest(TSampleTest);  ' + LineEnding +
+            '  Halt(RunAll());' + LineEnding +
+            'end.' + LineEnding +
+            '{$ENDIF}' + LineEnding +
+            '' + LineEnding;
 end;
 
 function TInitCommand.GenerateLicenseFile(const ALicense: string): string;