From 25d9c85a871e0292dd7219a3a01ff93f16a8169d Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sun, 27 Aug 2017 13:30:06 +0000 Subject: [PATCH] - remove debug output -.- git-svn-id: trunk@37073 - --- packages/rtl-objpas/tests/tests.rtti.pas | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/packages/rtl-objpas/tests/tests.rtti.pas b/packages/rtl-objpas/tests/tests.rtti.pas index 5b65c51723..80ba17369f 100644 --- a/packages/rtl-objpas/tests/tests.rtti.pas +++ b/packages/rtl-objpas/tests/tests.rtti.pas @@ -248,25 +248,15 @@ 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);