paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test $IFOpt

Browse Source 
git-svn-id: trunk@59913 -
This commit is contained in:
mattias 2018-12-27 13:48:20 +00:00
parent 5a76f8b388
commit b0eae2930b
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/tests/testpascalparser.pas
View File

@ -50,6 +50,7 @@ type
procedure TestParseExternalConcat; procedure TestParseExternalConcat;
procedure TestParseExternalConst; procedure TestParseExternalConst;
procedure TestParseModeTP; procedure TestParseModeTP;
procedure TestParseIFOpt;
procedure TestParseProcAnoAssign; procedure TestParseProcAnoAssign;
procedure TestParseProcAnoArg; procedure TestParseProcAnoArg;
end; end;
@ -477,6 +478,25 @@ begin
ParseModule; ParseModule;
end; end;
procedure TTestPascalParser.TestParseIFOpt;
begin
Add([
'program test1;',
'{$IFOPT R+}',
'RNothingError',
'{$ENDIF}',
'{$R+}',
'{$IFOPT R-}',
'RMinusError',
'{$ENDIF}',
'{$R-}',
'{$IFOPT R+}',
'RPlusError',
'{$ENDIF}',
'begin']);
ParseModule;
end;
procedure TTestPascalParser.TestParseProcAnoAssign; procedure TTestPascalParser.TestParseProcAnoAssign;
begin begin
Add([ Add([