* test for method aliases (function)

git-svn-id: trunk@45419 -

packages/fcl-passrc/tests/tcclasstype.pas

@@ -102,6 +102,7 @@ type
     Procedure TestMethodSimpleComment;
     Procedure TestMethodWithDotFails;
     Procedure TestMethodWithDotOK;
+    Procedure TestMethodFunctionWithDotOK;
     Procedure TestClassMethodSimple;
     Procedure TestClassMethodSimpleComment;
     Procedure TestConstructor;
@@ -922,6 +923,16 @@ begin
   AssertNotNull('1 method resolution procedure',TPasMethodResolution(members[0]).ImplementationProc);
 end;
 
+procedure TTestClassType.TestMethodFunctionWithDotOK;
+begin
+  AddMember('Function DoSomething.Stupid=me');
+  ParseClass;
+  AssertEquals('1 members',1,TheClass.members.Count);
+  AssertEquals('1 method resolution procedure',TPasMethodResolution,members[0].ClassType);
+  AssertEquals('Default visibility',visDefault,Members[0].Visibility);
+  AssertNotNull('1 method resolution procedure',TPasMethodResolution(members[0]).ImplementationProc);
+end;
+
 procedure TTestClassType.TestClassMethodSimple;
 
 begin