* Add test for threadvar

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;