+ add a test for overloaded attribute constructors

git-svn-id: trunk@42380 -

.gitattributes

@@ -13208,6 +13208,7 @@ tests/test/tcstring2.pp svneol=native#text/pascal
 tests/test/tcustomattr1.pp svneol=native#text/pascal
 tests/test/tcustomattr10.pp svneol=native#text/pascal
 tests/test/tcustomattr11.pp svneol=native#text/pascal
+tests/test/tcustomattr12.pp svneol=native#text/pascal
 tests/test/tcustomattr2.pp svneol=native#text/pascal
 tests/test/tcustomattr3.pp svneol=native#text/pascal
 tests/test/tcustomattr4.pp svneol=native#text/pascal

tests/test/tcustomattr12.pp

@@ -0,0 +1,86 @@
+program tcustomattr12;
+
+{$mode delphi}
+
+uses
+  typinfo;
+
+type
+
+  { tmyt }
+
+  tmyt = class(TCustomAttribute)
+  private
+    FID: integer;
+    FStr: String;
+    FB: Boolean;
+  public
+    constructor create(Id: integer; aB: Boolean = False); overload;
+    constructor Create(const aStr: String); overload;
+  end;
+
+type
+  [Tmyt(924)]
+  [Tmyt('Blubb')]
+  [Tmyt(1425, True)]
+  TMyObject = class(TObject)
+  end;
+
+var
+  rtd: PAttributeTable;
+  AClassAttribute: tmyt;
+
+{ tmyt }
+
+constructor tmyt.create(Id: integer; aB: Boolean);
+begin
+  Fid := Id;
+  FB := aB;
+end;
+
+constructor tmyt.create(const aStr: String);
+begin
+  FStr := aStr;
+end;
+
+begin
+  rtd := GetAttributeTable(TMyObject.ClassInfo);
+
+  if not Assigned(rtd) then
+    halt(1);
+  if rtd^.AttributeCount<>3 then
+    halt(2);
+
+  AClassAttribute := GetAttribute(rtd,2) as tmyt;
+  if AClassAttribute = nil then
+    halt(3);
+  if AClassAttribute.FID<>1425 then
+    halt(4);
+  if AClassAttribute.FStr<>'' then
+    Halt(5);
+  if not AClassAttribute.FB then
+    Halt(6);
+
+  AClassAttribute := GetAttribute(rtd,1) as tmyt;
+  if AClassAttribute = nil then
+    halt(7);
+  if AClassAttribute.FID<>0 then
+    halt(8);
+  if AClassAttribute.FStr<>'Blubb' then
+    Halt(9);
+  if AClassAttribute.FB then
+    Halt(10);
+
+  AClassAttribute := GetAttribute(rtd,0) as tmyt;
+  if AClassAttribute = nil then
+    Halt(11);
+  if AClassAttribute.FID<>924 then
+    Halt(12);
+  if AClassAttribute.FStr<>'' then
+    Halt(13);
+  if AClassAttribute.FB then
+    Halt(14);
+
+  writeln('ok');
+end.
+