paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 20:30:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for const list

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-02-07 16:30:28 +01:00
parent cb03124cc5
commit c8403ad49e
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-js/tests/tcwriter.pp
View File

@ -101,6 +101,7 @@ type
Procedure TestConstDeclarationStatement;
Procedure TestDebuggerStatement;
Procedure TestVarListDeclarationStatement;
Procedure TestConstListDeclarationStatement;
Procedure TestVarListDeclarationStatement2Vars;
Procedure TestVarListDeclarationStatement3Vars;
Procedure TestReturnStatement;
@ -1058,6 +1059,23 @@ begin
AssertWrite('simple var','var a',S);
end;
procedure TTestStatementWriter.TestConstListDeclarationStatement;
Var
S : TJSVariableStatement;
V : TJSVarDeclaration;
L : TJSVariableDeclarationList;
begin
S:=TJSVariableStatement.Create(0,0);
L:=TJSVariableDeclarationList.Create(0,0);
V:=TJSVarDeclaration.Create(0,0);
S.VarType:=vtConst;
L.A:=V;
S.VarDecl:=L;
V.Name:='a';
AssertWrite('simple const','const a',S);
end;
procedure TTestStatementWriter.TestVarListDeclarationStatement2Vars;
Var
S : TJSVariableStatement;