paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 13:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add test for threadvar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-14 12:05:44 +01:00
parent feb5bde09c
commit 5651680930
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-passrc/tests/tcvarparser.pas
View File

@ -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;