From 36451e271ce373dfabf94df116a9d588228aeb5e Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 27 Aug 2017 13:29:14 +0000
Subject: [PATCH] * test for unassigned TypeInfo

git-svn-id: trunk@37072 -
---
 packages/rtl-objpas/tests/tests.rtti.pas | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/packages/rtl-objpas/tests/tests.rtti.pas b/packages/rtl-objpas/tests/tests.rtti.pas
index 5956859d5c..5b65c51723 100644
--- a/packages/rtl-objpas/tests/tests.rtti.pas
+++ b/packages/rtl-objpas/tests/tests.rtti.pas
@@ -247,6 +247,28 @@ procedure TTestCase1.TestMakeNil;
 var
   value: TValue;
 begin
+  TValue.Make(Nil, Nil, value);
+  Writeln('Kind');
+  CheckTrue(value.Kind = tkUnknown);
+  Writeln('IsEmpty');
+  CheckTrue(value.IsEmpty);
+  Writeln('IsObject');
+  CheckTrue(value.IsObject);
+  Writeln('IsClass');
+  CheckTrue(value.IsClass);
+  Writeln('IsOrdinal');
+  CheckTrue(value.IsOrdinal);
+  Writeln('IsArray');
+  CheckFalse(value.IsArray);
+  Writeln('AsObject');
+  CheckTrue(value.AsObject = Nil);
+  Writeln('AsClass');
+  CheckTrue(value.AsClass = Nil);
+  Writeln('AsInterface');
+  CheckTrue(value.AsInterface = Nil);
+  Writeln('AsOrdinal');
+  CheckEquals(0, value.AsOrdinal);
+
   TValue.Make(Nil, TypeInfo(TObject), value);
   CheckTrue(value.IsEmpty);
   CheckTrue(value.IsObject);