瀏覽代碼

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

Sven/Sarah Barth 9 月之前
父節點
當前提交
024d2bfd73
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      tests/test/texrtti17.pp

+ 2 - 2
tests/test/texrtti17.pp

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