From 14d4b0808bad1b1025b0820532ff35c0cc0dfc2d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 26 Mar 2024 14:52:46 +0100
Subject: [PATCH] * Patch from Thierry Gayet to fix compilation of tests

---
 packages/webidl/tests/tcwebidl2wasmjob.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/webidl/tests/tcwebidl2wasmjob.pas b/packages/webidl/tests/tcwebidl2wasmjob.pas
index 0306e74cb2..1f4397ab72 100644
--- a/packages/webidl/tests/tcwebidl2wasmjob.pas
+++ b/packages/webidl/tests/tcwebidl2wasmjob.pas
@@ -24,7 +24,7 @@ type
     procedure TestWebIDL(const WebIDLSrc, ExpectedPascalSrc: array of string); virtual;
     procedure CheckDiff(Msg, Expected, Actual: string); virtual;
     property WebIDLToPas: TWebIDLToPasWasmJob read FWebIDLToPas;
-    property HeaderSrc: String read FHeaderSrc write FHeaderSrc;
+    property HeaderSrc: TIDLString read FHeaderSrc write FHeaderSrc;
   end;
 
   { TTestWebIDL2WasmJob }
@@ -48,7 +48,7 @@ type
     procedure TestWJ_IntfFunction_ArgAny;
   end;
 
-function LinesToStr(Args: array of const): string;
+function LinesToStr(Args: array of const): TIDLString;
 function CheckSrcDiff(Expected, Actual: string; out Msg: string): boolean;
 
 implementation