FPC Support and Tests

.github/workflows/test-fpc.yml

@@ -0,0 +1,24 @@
+name: Test FPC
+
+on: [push, pull_request]
+
+jobs:
+  test:
+    runs-on: ubuntu-22.04
+
+    steps:
+      - name: Checkout repository
+        uses: actions/checkout@v4
+        with:
+          fetch-depth: 0
+      - name: Install prerequisites
+        run: |
+          export DEBIAN_FRONTEND=noninteractive
+          sudo apt-get update
+          sudo apt-get install -y fpc-3.2.2
+      - name: Build testsuite
+        run: |
+          cd Tests
+          fpc -B -MDelphi "Underscore.Delphi.Springless.Tests.dpr"
+      - name: Test
+        run: Tests/Underscore.Delphi.Springless.Tests -a --format=plain

Tests/DUnitX.Stub.pas

@@ -0,0 +1,55 @@
+unit DUnitX.Stub;
+
+interface
+
+uses
+  fpcunit;
+
+type
+  Assert = class
+  public
+    class procedure IsTrue(const Value: Boolean);
+    class procedure IsFalse(const Value: Boolean);
+    class procedure AreEqual(const Expected, Value: Integer); overload;
+    class procedure AreEqual(const Expected, Value: string); overload;
+    class procedure Pass;
+    class procedure Fail;
+  end;
+
+implementation
+
+uses
+  testutils,
+  SysUtils;
+
+class procedure Assert.IsTrue(const Value: Boolean);
+begin
+  TAssert.AssertTrue(Value);
+end;
+
+class procedure Assert.IsFalse(const Value: Boolean);
+begin
+  TAssert.AssertFalse(Value);
+end;
+
+class procedure Assert.AreEqual(const Expected, Value: Integer); overload;
+begin
+  TAssert.AssertEquals(Expected, Value);
+end;
+
+class procedure Assert.AreEqual(const Expected, Value: string); overload;
+begin
+  TAssert.AssertEquals(Expected, Value);
+end;
+
+class procedure Assert.Pass;
+begin
+  // do nothing
+end;
+
+class procedure Assert.Fail;
+begin
+  TAssert.Fail('Failed');
+end;
+
+end.