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

* extended RTTI now includes static properties, so adjust the test to reflect this

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-29 20:07:29 +01:00
parent 4aed151833
commit 024d2bfd73
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/texrtti17.pp
View File

@ -2,7 +2,7 @@ program texrtti17;
{$mode objfpc}
{ Test that class properties are not returned in RTTI }
{ Test that class properties are returned in RTTI }
uses typinfo, uexrttiutil;
@ -31,6 +31,6 @@ var
begin
aCount:=GetPropListEx(T1,P);
AssertEquals('class property not in RTTI properties',0,aCount);
AssertEquals('class property not in RTTI properties',1,aCount);
end.