* Attributes for methods test

tests/webtbs/tw41001.pp

@@ -0,0 +1,49 @@
+program test;
+
+{$RTTI EXPLICIT METHODS([vcPublished]) PROPERTIES([vcPublished]) FIELDS([vcPublished])}
+
+{$mode delphi}{$H+}
+{$codepage utf8}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Classes,
+  Rtti
+  { you can add units after this };
+
+type
+
+  TClass = class(TPersistent)
+  published
+    [StoredAttribute('Metadata1')]
+    procedure Run1;
+    [StoredAttribute('Metadata2')]
+    class procedure Run2;
+  end;
+
+{ TClass }
+
+procedure TClass.Run1;
+begin
+end;
+
+class procedure TClass.Run2;
+begin
+end;
+
+var
+  LAttr: StoredAttribute;
+  LContext: TRttiContext;
+  LMethod: TRttiMethod;
+begin
+  LContext := TRttiContext.Create;
+  for LMethod in LContext.GetType(TClass).GetMethods do
+  begin
+    LAttr := StoredAttribute(LMethod.GetAttribute(StoredAttribute));
+    if LAttr <> nil then
+      WriteLn(LMethod.Name, ': ', LAttr.Name);
+  end;
+  LContext.Free;
+end.