fcl-passrc: test for skip $error

git-svn-id: trunk@36192 -

packages/fcl-passrc/tests/tcscanner.pas

@@ -239,6 +239,7 @@ type
     procedure TestIFLesserThan;
     procedure TestIFLesserEqualThan;
     procedure TestIFDefinedElseIf;
+    procedure TestIfError;
     Procedure TestModeSwitch;
   end;
 
@@ -1690,6 +1691,17 @@ begin
     +'begin end.',True,False);
 end;
 
+procedure TTestScanner.TestIfError;
+begin
+  FScanner.SkipWhiteSpace:=True;
+  FScanner.SkipComments:=True;
+  TestTokens([tkprogram,tkIdentifier,tkSemicolon,tkbegin,tkend,tkDot],
+    'program Project1;'+LineEnding
+    +'begin'+LineEnding
+    +'{$if sizeof(integer) <> 4} {$error wrong sizeof(integer)} {$endif}'+LineEnding
+    +'end.',True,False);
+end;
+
 procedure TTestScanner.TestModeSwitch;
 
 Const