소스 검색

* fix test

git-svn-id: trunk@42372 -
svenbarth 6 년 전
부모
커밋
5532ac3355
1개의 변경된 파일5개의 추가작업 그리고 4개의 파일을 삭제
  1. 5 4
      tests/test/tcustomattr6.pp

+ 5 - 4
tests/test/tcustomattr6.pp

@@ -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');