* fix test compilation in Delphi: TypeInfo() of a file type is not supported

git-svn-id: trunk@36900 -

packages/rtl-objpas/tests/tests.rtti.pas

@@ -785,7 +785,9 @@ begin
   {$endif}
   CheckEquals(false, IsManaged(TypeInfo(TTestProc)), 'IsManaged for tkProcVar');
   CheckEquals(false, IsManaged(TypeInfo(TTestHelper)), 'IsManaged for tkHelper');
+  {$ifdef fpc}
   CheckEquals(false, IsManaged(TypeInfo(file)), 'IsManaged for tkFile');
+  {$endif}
   CheckEquals(false, IsManaged(TypeInfo(TClass)), 'IsManaged for tkClassRef');
   CheckEquals(false, IsManaged(TypeInfo(Pointer)), 'IsManaged for tkPointer');
   CheckEquals(false, IsManaged(nil), 'IsManaged for nil');