paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed test

Browse Source 
git-svn-id: trunk@43297 -
This commit is contained in:
Mattias Gaertner 2019-10-21 18:33:38 +00:00
parent fae04744d0
commit 03d003d0ba
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/pastojs/tests/tcmodules.pas
View File

@ -2443,8 +2443,9 @@ begin
StartProgram(false);
Add('{$modeswitch cblocks-}');
Add('begin');
SetExpectedScannerError('Invalid mode switch: "cblocks-"',nErrInvalidModeSwitch);
ConvertProgram;
CheckHint(mtWarning,nErrInvalidModeSwitch,'Warning: test1.pp(3,23) : Invalid mode switch: "cblocks"');
CheckResolverUnexpectedHints();
end;
procedure TTestModule.TestUnit_UseSystem;