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

* also check for invalid attribute data in tests

Browse Source 
git-svn-id: trunk@42364 -
This commit is contained in:
svenbarth 2019-07-12 22:05:25 +00:00
parent ba413bcdfc
commit 38fad4b5cf
4 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/tcustomattr1.pp
View File

@ -32,12 +32,14 @@ end;
begin
ad := GetAttributeData(TMyObject.ClassInfo);
if ad^.AttributeCount<>1 then
if not assigned(ad) then
halt(1);
if ad^.AttributeCount<>1 then
halt(2);
AClassAttribute := GetAttribute(ad,0);
if AClassAttribute = nil then
halt(2);
halt(3);
writeln('ok');
end.

6
tests/test/tcustomattr10.pp
View File

@ -23,12 +23,14 @@ var
begin
ad := GetAttributeData(TMyObject.ClassInfo);
if not Assigned(ad) then
Halt(1);
if ad^.AttributeCount<>1 then
halt(1);
halt(2);
AClassAttribute := GetAttribute(ad,0);
if AClassAttribute = nil then
halt(2);
halt(3);
writeln('ok');
end.

12
tests/test/tcustomattr4.pp
View File

@ -36,20 +36,22 @@ end;
begin
rtd := GetAttributeData(TMyObject.ClassInfo);
if rtd^.AttributeCount<>2 then
if not Assigned(rtd) then
halt(1);
if rtd^.AttributeCount<>2 then
halt(2);
AClassAttribute := GetAttribute(rtd,1) as tmyt;
if AClassAttribute = nil then
halt(2);
if AClassAttribute.FID<>1425 then
halt(3);
if AClassAttribute.FID<>1425 then
halt(4);
AClassAttribute := GetAttribute(rtd,0) as tmyt;
if AClassAttribute = nil then
halt(2);
halt(5);
if AClassAttribute.FID<>924 then
halt(3);
halt(6);
writeln('ok');
end.

6
tests/test/tcustomattr9.pp
View File

@ -22,12 +22,14 @@ var
begin
ad := GetAttributeData(TMyObject.ClassInfo);
if ad^.AttributeCount<>1 then
if not Assigned(ad) then
halt(1);
if ad^.AttributeCount<>1 then
halt(2);
AClassAttribute := GetAttribute(ad,0);
if AClassAttribute = nil then
halt(2);
halt(3);
writeln('ok');
end.