Changeset 342 for trunk/TestCase/SimpleTestCase

Timestamp:

Sep 29, 2007, 12:44:41 PM (17 years ago)

Author:

dai

Message:

静的メソッドのデリゲートに対応

File:

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

trunk/TestCase/SimpleTestCase/DelegateTest.ab

@@ -5 +5 @@
 Delegate Sub Callback3( a As Long )
 Delegate Sub Callback4( a As String )
-Delegate Function Callback7() As Long
+Delegate Function Callback7( str As String ) As String
 
 
@@ -59 +59 @@
     End Sub
 
-    Function Proc7() As String
-        Return "Proc7 result"
+    Static Function Proc7( str As String ) As String
+        Return "Proc7 result[" + str + "]"
     End Function
 End Class
@@ -79 +79 @@
 
     UnitTest( "Delegate1", testObj.CheckFlags() )
-/*
+
     Dim dg7 = New Callback7( AddressOf(TestClass.Proc7) )
-    UnitTest( "Delegate2", dg7() = "Proc7 result" )
-*/
+    UnitTest( "Delegate2", dg7( "test value" ) = "Proc7 result[test value]" )
+
 End Sub