Changeset 397 for trunk/TestCase/SimpleTestCase/InterfaceTest.ab

Timestamp:

Jan 2, 2008, 1:25:56 AM (17 years ago)

Author:

dai

Message:

Foreachステートメントの区切り文字として、カンマを廃止し、Inを採用した。
ジェネリクスインターフェイス実装時のオーバーロード解決ロジックを改良。（型パラメータを戻り値またはパラメータに持つメソッドのオーバーロードをミスしてしまうバグを修正）

File:

• trunk/TestCase/SimpleTestCase/InterfaceTest.ab (modified) (4 diffs)

trunk/TestCase/SimpleTestCase/InterfaceTest.ab

@@ -9 +9 @@
     Function Proc5() As String
     Function Proc6( value As String ) As Boolean
+End Interface
+
+Interface IGenericTest<T>
+    Function GenericProc1() As T
+    Function GenericProc2( value As T ) As Boolean
 End Interface
 
@@ -31 +36 @@
 
 Class Test2
-    Implements ITest1, ITest2
+    Implements ITest1, ITest2, IGenericTest<String>
 
     a As Long
@@ -54 +59 @@
     Override Function Proc6( value As String ) As Boolean
         Return ( value = ( "Proc6 calling" + a.ToString() ) )
+    End Function
+
+    Function GenericProc1() As String
+        Return "GenericProc1 is ok"
+    End Function
+
+    Function GenericProc2( value As String ) As Boolean
+        Return ( value = "GenericProc2 calling" )
     End Function
 End Class
@@ -96 +109 @@
     GlobalProc2( test2, test2, 1 )
     GlobalProc2( Nothing, itest2, 2 )
+
+    Dim iGenericTest As IGenericTest<String>
+    iGenericTest = test2 As IGenericTest<String>
+    UnitTest( "Interface ... calling class2 interface 3", iGenericTest.GenericProc1() = "GenericProc1 is ok" )
+
+    UnitTest( "Interface ... calling class2 interface 4", iGenericTest.GenericProc2( "GenericProc2 calling" ) )
 End Sub