Namespace InterfaceTest

Interface ITest1
	Function Proc1() As String
	Function Proc2( value As String ) As Boolean
End Interface

Interface ITest2
	Function Proc5() As String
	Function Proc6( value As String ) As Boolean
End Interface

Class Test1
	Implements ITest1

	a As Long

Public
	Sub Test1( initValue As Long )
		a = initValue
	End Sub

	Override Function Proc1() As String
		Return "Proc1 result" + a.ToString()
	End Function

	Override Function Proc2( value As String ) As Boolean
		Return ( value = ( "Proc2 calling" + a.ToString() ) )
	End Function
End Class

Class Test2
	Implements ITest1, ITest2

	a As Long

Public
	Sub Test2( initValue As Long )
		a = initValue
	End Sub

	Override Function Proc1() As String
		Return "Proc1 result" + a.ToString()
	End Function

	Override Function Proc2( value As String ) As Boolean
		Return ( value = ( "Proc2 calling" + a.ToString() ) )
	End Function

	Override Function Proc5() As String
		Return "Proc5 result" + a.ToString()
	End Function

	Override Function Proc6( value As String ) As Boolean
		Return ( value = ( "Proc6 calling" + a.ToString() ) )
	End Function
End Class

Sub GlobalProc1( itest1 As ITest1, n As Long )
	UnitTest( "Interface ... GlobalProc1-1 " + n.ToString(), itest1.Proc1() = "Proc1 result123" )
	UnitTest( "Interface ... GlobalProc1-2 " + n.ToString(), itest1.Proc2( "Proc2 calling123" ) )
End Sub

Sub GlobalProc2( itest1 As ITest1, itest2 As ITest2, n As Long )
	If ObjPtr( itest1 ) <> NULL Then
		UnitTest( "Interface ... GlobalProc2-1 " + n.ToString(), itest1.Proc1() = "Proc1 result123" )
		UnitTest( "Interface ... GlobalProc2-2 " + n.ToString(), itest1.Proc2( "Proc2 calling123" ) )
	End If

	UnitTest( "Interface ... GlobalProc2-3 " + n.ToString(), itest2.Proc5() = "Proc5 result123" )
	UnitTest( "Interface ... GlobalProc2-4 " + n.ToString(), itest2.Proc6( "Proc6 calling123" ) )
End Sub

Sub TestMain()
	Dim test1 = New Test1( 123 )
	UnitTest( "Interface ... calling class1 method 1", test1.Proc1() = "Proc1 result123" )
	UnitTest( "Interface ... calling class1 method 2", test1.Proc2( "Proc2 calling123" ) )

	Dim itest1 = test1 As ITest1
	UnitTest( "Interface ... calling class1 interface 1", itest1.Proc1() = "Proc1 result123" )
	UnitTest( "Interface ... calling class1 interface 2", itest1.Proc2( "Proc2 calling123" ) )

	GlobalProc1( test1, 1 )
	GlobalProc1( itest1, 2 )

	Dim test2 = New Test2( 123 )
	UnitTest( "Interface ... calling class2 method 1", test2.Proc1() = "Proc1 result123" )
	UnitTest( "Interface ... calling class2 method 2", test2.Proc2( "Proc2 calling123" ) )
	UnitTest( "Interface ... calling class2 method 1", test2.Proc5() = "Proc5 result123" )
	UnitTest( "Interface ... calling class2 method 2", test2.Proc6( "Proc6 calling123" ) )

	Dim itest2 = test2 As ITest2
	UnitTest( "Interface ... calling class2 interface 1", itest2.Proc5() = "Proc5 result123" )
	UnitTest( "Interface ... calling class2 interface 2", itest2.Proc6( "Proc6 calling123" ) )

	GlobalProc2( test2, test2, 1 )
	GlobalProc2( Nothing, itest2, 2 )
End Sub

End Namespace

InterfaceTest.TestMain()
