Quellcode durchsuchen

[SCT] Added a new test for overriding a method in an extended type

Ronny Otto vor 8 Jahren
Ursprung
Commit
3807e905db
1 geänderte Dateien mit 22 neuen und 0 gelöschten Zeilen
  1. 22 0
      tests/framework/language/inheritance_03.extend.overridereturn.bmx

+ 22 - 0
tests/framework/language/inheritance_03.extend.overridereturn.bmx

@@ -0,0 +1,22 @@
+SuperStrict
+Framework Brl.StandardIO
+
+Type TBase
+	Field child:TBase
+
+	Method MyChildren:TBase[](param:Int, param2:String)
+		Return [child]
+	End Method
+End Type
+	
+
+Type TExtend Extends TBase
+	Method MyChildren:TExtend[](param:Int, param2:String)
+		Local children:TBase[] = Super.MyChildren(param, param2)
+		Local result:TExtend[]
+		For Local e:TExtend = EachIn children
+			result :+ [e]
+		Next
+		Return result
+	End Method
+End Type