From 565168093009a3403e9dd2d42edbbe6ca15a125e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 14 Nov 2021 12:05:44 +0100
Subject: [PATCH] * Add test for threadvar

---
 packages/fcl-passrc/tests/tcvarparser.pas | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/tests/tcvarparser.pas b/packages/fcl-passrc/tests/tcvarparser.pas
index 53a7d7da4a..d39bb549da 100644
--- a/packages/fcl-passrc/tests/tcvarparser.pas
+++ b/packages/fcl-passrc/tests/tcvarparser.pas
@@ -14,18 +14,21 @@ Type
   TTestVarParser = Class(TTestParser)
   private
     FHint: string;
+    FIsThreadVar: Boolean;
     FVar: TPasVariable;
   Protected
     Function ParseVar(ASource : String; Const AHint : String = '') : TPasVariable; virtual; overload;
     Procedure AssertVariableType(Const ATypeName : String);
     Procedure AssertVariableType(Const AClass : TClass);
     Procedure AssertParseVarError(ASource : String);
+    Property IsThreadVar : Boolean Read FIsThreadVar Write FIsThreadVar;
     Property TheVar : TPasVariable Read FVar;
     Property Hint : string Read FHint Write FHint;
     procedure SetUp; override;
     Procedure TearDown; override;
   Published
     Procedure TestSimpleVar;
+    Procedure TestSimpleThreadVar;
     Procedure TestSimpleVarAbsoluteName;
     Procedure TestSimpleVarHelperName;
     procedure TestSimpleVarHelperType;
@@ -75,7 +78,10 @@ Var
   D : String;
 begin
   Hint:=AHint;
-  Add('Var');
+  if not IsThreadVar then
+    Add('Var')
+  else
+    Add('Threadvar');
   D:='A : '+ASource;
   If Hint<>'' then
     D:=D+' '+Hint;
@@ -133,6 +139,13 @@ begin
   AssertVariableType('b');
 end;
 
+procedure TTestVarParser.TestSimpleThreadVar;
+begin
+  IsThreadVar:=True;
+  ParseVar('b','');
+  AssertVariableType('b');
+end;
+
 procedure TTestVarParser.TestSimpleVarAbsoluteName;
 Var
   R : TPasVariable;