paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 02:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test

Browse Source 
git-svn-id: trunk@42372 -
This commit is contained in:
svenbarth 2019-07-12 22:05:58 +00:00
parent e060a43d70
commit 5532ac3355
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test/tcustomattr6.pp
View File

@ -35,15 +35,16 @@ end;
var
pi: PPropInfo;
AClassAttribute: TCustomAttribute;
begin
pi := GetPropInfo(TMyObject.ClassInfo,'PublicInt');
if pi^.AttributeCount<>1 then
halt(1);
if not Assigned(pi^.AttributeTable) then
Halt(1);
if pi^.AttributeTable^.AttributeCount <> 1 then
Halt(2);
AClassAttribute := GetPropAttribute(pi,0) as TCustomAttribute;
if AClassAttribute = nil then
halt(2);
halt(3);
writeln('ok');