paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* with statement tests

Browse Source 
git-svn-id: trunk@22031 -
This commit is contained in:
michael 2012-08-07 21:16:19 +00:00
parent 874a1f4304
commit 8ed3408527
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
packages/fcl-passrc/tests/tcstatements.pas
View File

@ -57,6 +57,8 @@ Type
Procedure TestForBlock;
procedure TestDowntoBlock;
Procedure TestForNested;
Procedure TestWith;
Procedure TestWithMultiple;
end;
implementation
@ -602,6 +604,39 @@ begin
AssertEquals('Empty block',0,TPasImplBeginBlock(F.Body).ELements.Count);
end;
procedure TTestStatementParser.TestWith;
Var
W : TpasImplWithDo;
begin
DeclareVar('record X,Y : Integer; end');
TestStatement(['With a do','begin','end']);
W:=AssertStatement('For statement',TpasImplWithDo) as TpasImplWithDo;
AssertEquals('1 expression',1,W.Expressions.Count);
AssertExpression('With identifier',TPasExpr(W.Expressions[0]),pekIdent,'a');
AssertNotNull('Have with body',W.Body);
AssertEquals('begin end block',TPasImplBeginBlock,W.Body.ClassType);
AssertEquals('Empty block',0,TPasImplBeginBlock(W.Body).ELements.Count);
end;
procedure TTestStatementParser.TestWithMultiple;
Var
W : TpasImplWithDo;
begin
DeclareVar('record X,Y : Integer; end');
DeclareVar('record W,Z : Integer; end','b');
TestStatement(['With a,b do','begin','end']);
W:=AssertStatement('For statement',TpasImplWithDo) as TpasImplWithDo;
AssertEquals('2 expressions',2,W.Expressions.Count);
AssertExpression('With identifier 1',TPasExpr(W.Expressions[0]),pekIdent,'a');
AssertExpression('With identifier 2',TPasExpr(W.Expressions[1]),pekIdent,'b');
AssertNotNull('Have with body',W.Body);
AssertEquals('begin end block',TPasImplBeginBlock,W.Body.ClassType);
AssertEquals('Empty block',0,TPasImplBeginBlock(W.Body).ELements.Count);
end;
initialization
RegisterTests([TTestStatementParser]);