Changeset 656 for trunk/ab5.0/ablib/TestCase/SimpleTestCase/DelegateTest.ab

Timestamp:

Nov 9, 2008, 2:36:29 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

文字列比較のテストを3引数版UnitTestの呼出に変更

File:

• trunk/ab5.0/ablib/TestCase/SimpleTestCase/DelegateTest.ab (modified) (2 diffs)

trunk/ab5.0/ablib/TestCase/SimpleTestCase/DelegateTest.ab

@@ -5 +5 @@
 Public
     Sub StringEx( str As String )
-        String( str )
+        String( StrPtr(str), str.Length )
     End Sub
 End Class
@@ -119 +119 @@
 
     Dim dg7 = New Callback7( AddressOf(TestClass.Proc7) )   ' 共変戻り値サポートのテスト
-    UnitTest( "Delegate2", dg7( "test value" ) = "Proc7 result[test value]" )
+    UnitTest( "Delegate2", dg7( "test value" ), "Proc7 result[test value]" )
 
     Dim dg184 = New CallbackTicket184( AddressOf( testObj.Ticket184 ) )