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

* test for unassigned TypeInfo

Browse Source 
git-svn-id: trunk@37072 -
This commit is contained in:
svenbarth 2017-08-27 13:29:14 +00:00
parent 93a65d3a78
commit 36451e271c
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/rtl-objpas/tests/tests.rtti.pas
View File

@ -247,6 +247,28 @@ procedure TTestCase1.TestMakeNil;
var var
value: TValue; value: TValue;
begin 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); TValue.Make(Nil, TypeInfo(TObject), value);
CheckTrue(value.IsEmpty); CheckTrue(value.IsEmpty);
CheckTrue(value.IsObject); CheckTrue(value.IsObject);