From bb947ed6399c28531d434bc330515638c433c7e7 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Mon, 14 Aug 2017 19:07:10 +0000
Subject: [PATCH] * 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 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/rtl-objpas/tests/tests.rtti.pas b/packages/rtl-objpas/tests/tests.rtti.pas
index 422af67b60..b1be6e81c7 100644
--- a/packages/rtl-objpas/tests/tests.rtti.pas
+++ b/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');