Added test for calling overloaded functions from within generic types

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/peterjan@25948 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 43 insertions, 0 deletions

diff --git a/generics/partialspecialization/tests/test/tgeneric98.pp b/generics/partialspecialization/tests/test/tgeneric98.pp
new file mode 100644
index 0000000000..2a9191e421
--- /dev/null
+++ b/generics/partialspecialization/tests/test/tgeneric98.pp
@@ -0,0 +1,43 @@
+program tgeneric98;
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+{$ENDIF}
+
+type
+  TCondition<TElement: class> = class(TObject)
+  end;
+
+  TContainer<TElement: class> = class(TObject)
+  public
+    function  Contains(Element: TElement): Boolean; overload;
+    function  Contains(Condition: TCondition<TElement>): Boolean; overload;
+    procedure Test();
+  end;
+
+{ TContainer<TElement> }
+  
+procedure TContainer<TElement>.Test();
+var
+  Element: TElement;
+begin
+  Element := nil;
+  Contains(Element); // Contains(TElement) should be called here as there is no ambiguity
+end;
+  
+function TContainer<TElement>.Contains(Element: TElement): Boolean;
+begin
+end;
+
+function TContainer<TElement>.Contains(Condition: TCondition<TElement>): Boolean;
+begin
+end;
+
+var
+  Container: TContainer<TObject>;
+begin
+  Container := TContainer<TObject>.Create();
+  Container.Contains(TObject.Create());
+  Container.Contains(TCondition<TObject>.Create());
+  Container.Free();
+end.