Changeset 491 for trunk/TestCase/SimpleTestCase/DelegateTest.ab

Timestamp:

Mar 22, 2008, 2:00:18 AM (16 years ago)

Author:

dai

Message:

・デリゲートの共変戻り値、反変引数に対応した。
・core.libで定義されたデリゲートがアプリケーションプロジェクトで利用できないバグを修正。

File:

• trunk/TestCase/SimpleTestCase/DelegateTest.ab (modified) (3 diffs)

trunk/TestCase/SimpleTestCase/DelegateTest.ab

@@ -1 +1 @@
 Namespace DelegateTest
+
+Class StringEx
+    Inherits String
+Public
+    Sub StringEx( str As String )
+        String( str )
+    End Sub
+End Class
 
 Delegate Sub Callback1()
 Delegate Function Callback2() As Long
 Delegate Sub Callback3( a As Long )
-Delegate Sub Callback4( a As String )
+Delegate Sub Callback4( a As StringEx )
 Delegate Function Callback7( str As String ) As String
-
 
 Class TestClass
@@ -61 +68 @@
     End Sub
 
-    Static Function Proc7( str As String ) As String
-        Return "Proc7 result[" + str + "]"
+    Static Function Proc7( str As String ) As StringEx
+        Return New StringEx( "Proc7 result[" + str + "]" )
     End Function
 
@@ -84 +91 @@
     dg2()
     dg3( 100 )
-    dg4( "Proc4 calling" )
+    dg4( New StringEx( "Proc4 calling" ) )  ' 反変引数サポートのテスト
 
     UnitTest( "Delegate1", testObj.CheckFlags() )
 
-    Dim dg7 = New Callback7( AddressOf(TestClass.Proc7) )
+    Dim dg7 = New Callback7( AddressOf(TestClass.Proc7) )   ' 共変戻り値サポートのテスト
     UnitTest( "Delegate2", dg7( "test value" ) = "Proc7 result[test value]" )