2
0
Эх сурвалжийг харах

Added some simple mx2cc tests.

Mark Sibly 9 жил өмнө
parent
commit
6def1c4df5

+ 32 - 0
src/mx2cc/tests/arrays.monkey2

@@ -0,0 +1,32 @@
+
+Function Main()
+
+	Local arr:=New Int[10]
+	For Local i:=0 Until 10
+		arr[i]=i
+	Next
+	
+	Print ""
+	For Local i:=Eachin arr
+		Print arr[i]			'0...9
+	Next
+
+	arr=arr.Resize( 20 )
+	Print ""
+	For Local i:=Eachin arr
+		Print arr[i]			'0...9, 0,0,0...
+	Next
+	
+	arr.CopyTo( arr,0,10,10 )
+	Print ""
+	For Local i:=Eachin arr
+		Print arr[i]			'0...9, 0...9
+	Next
+
+	arr=arr.Resize( 5 )
+	Print ""
+	For Local i:=Eachin arr
+		Print arr[i]			'0...4
+	Next
+	
+End

+ 54 - 0
src/mx2cc/tests/genfuncs.monkey2

@@ -0,0 +1,54 @@
+
+Namespace test
+
+Function F1<T>() Where T Implements INumeric
+	Print "F1<T>() INumeric"
+End
+
+Function F1<T>() Where T=String
+	Print "F1<T>() String"
+End
+
+Function F1<T>( t:T )
+	Print "F1<T>(T)"
+End
+
+Function F1( t:Int )
+	Print "F1(Int)"
+End
+
+Function F1<T>( p:T() )
+	Print "F1<T>(T())"
+End
+
+Function F1( p:Void() )
+	Print "F1(Void())"
+End
+
+Function F1( p:Int(Int) )
+	Print "F1(Int(Int))"
+End
+
+Function P()
+End
+
+Function P2:Int()
+	Return Null
+End
+
+Function P3:Int( i:Int )
+	Return Null
+End
+
+Function Main()
+
+	F1<Int>()		'F1<T>() INumeric
+	F1<String>()	'F1<T>() String
+	F1( "yes" )		'F1<T>(T)
+	F1( 100 )		'F1(Int)
+	F1( P )			'F1(Void())
+	F1( P2 )		'F1<T>(T())
+	F1( P3 )		'F1(Int(Int))
+	
+End
+