Added Super:New() test

1999-07-30 08:24:53 +00:00
parent e3e59b0a59
commit bf5ad7fc89
1 changed files with 14 additions and 0 deletions
--- a/harbour/tests/working/classch.prg
+++ b/harbour/tests/working/classch.prg
@@ -36,6 +36,8 @@ ENDCLASS

 METHOD New( One, Two ) CLASS TTest

+   Super:New()
+
   ::One = One
   ::Two = Two

@@ -47,4 +49,16 @@ CLASS TParent

   DATA One

+   METHOD New()
+
 ENDCLASS
+
+//--------------------------------------------------------------------//
+
+METHOD New() CLASS TParent
+
+   ? "TParent:New()"
+
+return Self
+
+//--------------------------------------------------------------------//