From bf5ad7fc89e075913657ea52cc2ed4711e0567ae Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 30 Jul 1999 08:24:53 +0000 Subject: [PATCH] Added Super:New() test --- harbour/tests/working/classch.prg | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/harbour/tests/working/classch.prg b/harbour/tests/working/classch.prg index 82775383ef..0db746bea3 100644 --- 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 + +//--------------------------------------------------------------------//