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

* enable tests of TTestMethod, TTestEnum and TTestSet now that they're public and Delphi doesn't complain anymore about them not having any runtime information...

Browse Source 
git-svn-id: trunk@37070 -
This commit is contained in:
svenbarth 2017-08-27 12:42:45 +00:00
parent 60217d87a4
commit 4de7b43a5c
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1032,17 +1032,17 @@ begin
proc := Nil;
TValue.Make(@proc, TypeInfo(TTestProc), value);
CheckEquals(SizeOf(TTestProc), value.DataSize, 'Size of TTestProc differs');
{method := Nil;
method := Nil;
TValue.Make(@method, TypeInfo(TTestMethod), value);
CheckEquals(SizeOf(TTestMethod), value.DataSize, 'Size of TTestMethod differs');}
CheckEquals(SizeOf(TTestMethod), value.DataSize, 'Size of TTestMethod differs');
TValue.Make(@_as, TypeInfo(TArrayOfLongintStatic), value);
CheckEquals(SizeOf(TArrayOfLongintStatic), value.DataSize, 'Size of TArrayOfLongintStatic differs');
TValue.Make(@ad, TypeInfo(TArrayOfLongintDyn), value);
CheckEquals(SizeOf(TArrayOfLongintDyn), value.DataSize, 'Size of TArrayOfLongintDyn differs');
{TValue.Make(@e, TypeInfo(TTestEnum), value);
TValue.Make(@e, TypeInfo(TTestEnum), value);
CheckEquals(SizeOf(TTestEnum), value.DataSize, 'Size of TTestEnum differs');
TValue.Make(@s, TypeInfo(TTestSet), value);
CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs');}
CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs');
p := Nil;
TValue.Make(@p, TypeInfo(Pointer), value);
CheckEquals(SizeOf(Pointer), value.DataSize, 'Size of Pointer differs');
@ -1118,16 +1118,16 @@ begin
CheckEquals(SizeOf(TTestRecord), value.DataSize, 'Size of TTestRecord differs');
TValue.Make(Nil, TypeInfo(TTestProc), value);
CheckEquals(SizeOf(TTestProc), value.DataSize, 'Size of TTestProc differs');
{TValue.Make(Nil, TypeInfo(TTestMethod), value);
CheckEquals(SizeOf(TTestMethod), value.DataSize, 'Size of TTestMethod differs');}
TValue.Make(Nil, TypeInfo(TTestMethod), value);
CheckEquals(SizeOf(TTestMethod), value.DataSize, 'Size of TTestMethod differs');
TValue.Make(Nil, TypeInfo(TArrayOfLongintStatic), value);
CheckEquals(SizeOf(TArrayOfLongintStatic), value.DataSize, 'Size of TArrayOfLongintStatic differs');
TValue.Make(Nil, TypeInfo(TArrayOfLongintDyn), value);
CheckEquals(SizeOf(TArrayOfLongintDyn), value.DataSize, 'Size of TArrayOfLongintDyn differs');
{TValue.Make(Nil, TypeInfo(TTestEnum), value);
TValue.Make(Nil, TypeInfo(TTestEnum), value);
CheckEquals(SizeOf(TTestEnum), value.DataSize, 'Size of TTestEnum differs');
TValue.Make(Nil, TypeInfo(TTestSet), value);
CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs');}
CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs');
TValue.Make(Nil, TypeInfo(Pointer), value);
CheckEquals(SizeOf(Pointer), value.DataSize, 'Size of Pointer differs');
end;