Changeset 549

Timestamp:

Jul 15, 2008, 10:58:06 PM (16 years ago)

Author:

dai

Message:

#177の不具合が生じていないことを証明するためのテストケースを追加した。

File:

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

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

@@ -23 +23 @@
     proc6Flag As Boolean
     proc8Flag As Boolean
+    proc9Flag As Boolean
 
     Static staticProc1Flag = False As Boolean
 
 Public
+
+    x As DWord
+
     Sub TestClass()
         ClearFlags()
+        x = 0
     End Sub
 
@@ -39 +44 @@
         proc6Flag = False
         proc8Flag = True
+        proc9Flag = False
     End Sub
     Function CheckFlags() As Boolean
@@ -75 +81 @@
         proc8Flag = False
     End Sub
+
+    Sub Proc9()
+        proc9Flag = ( x = &H12345678 )
+    End Sub
+
+    Sub Ticket177()
+        Dim dg = New Callback1( AddressOf( This.Proc9 ) )
+        dg()
+    End Sub
 End Class
 
@@ -93 +108 @@
     dg4( New StringEx( "Proc4 calling" ) )  ' 反変引数サポートのテスト
 
+    testObj.x = &H12345678
+    testObj.Ticket177()
+
     UnitTest( "Delegate1", testObj.CheckFlags() )