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

- remove debug output -.-

Browse Source 
git-svn-id: trunk@37073 -
This commit is contained in:
svenbarth 2017-08-27 13:30:06 +00:00
parent 36451e271c
commit 25d9c85a87
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -248,25 +248,15 @@ var
value: TValue; value: TValue;
begin begin
TValue.Make(Nil, Nil, value); TValue.Make(Nil, Nil, value);
Writeln('Kind');
CheckTrue(value.Kind = tkUnknown); CheckTrue(value.Kind = tkUnknown);
Writeln('IsEmpty');
CheckTrue(value.IsEmpty); CheckTrue(value.IsEmpty);
Writeln('IsObject');
CheckTrue(value.IsObject); CheckTrue(value.IsObject);
Writeln('IsClass');
CheckTrue(value.IsClass); CheckTrue(value.IsClass);
Writeln('IsOrdinal');
CheckTrue(value.IsOrdinal); CheckTrue(value.IsOrdinal);
Writeln('IsArray');
CheckFalse(value.IsArray); CheckFalse(value.IsArray);
Writeln('AsObject');
CheckTrue(value.AsObject = Nil); CheckTrue(value.AsObject = Nil);
Writeln('AsClass');
CheckTrue(value.AsClass = Nil); CheckTrue(value.AsClass = Nil);
Writeln('AsInterface');
CheckTrue(value.AsInterface = Nil); CheckTrue(value.AsInterface = Nil);
Writeln('AsOrdinal');
CheckEquals(0, value.AsOrdinal); CheckEquals(0, value.AsOrdinal);
TValue.Make(Nil, TypeInfo(TObject), value); TValue.Make(Nil, TypeInfo(TObject), value);