Changeset 549


Ignore:
Timestamp:
Jul 15, 2008, 10:58:06 PM (13 years ago)
Author:
dai
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/TestCase/SimpleTestCase/DelegateTest.ab

    r491 r549  
    2323    proc6Flag As Boolean
    2424    proc8Flag As Boolean
     25    proc9Flag As Boolean
    2526
    2627    Static staticProc1Flag = False As Boolean
    2728
    2829Public
     30
     31    x As DWord
     32
    2933    Sub TestClass()
    3034        ClearFlags()
     35        x = 0
    3136    End Sub
    3237
     
    3944        proc6Flag = False
    4045        proc8Flag = True
     46        proc9Flag = False
    4147    End Sub
    4248    Function CheckFlags() As Boolean
     
    7581        proc8Flag = False
    7682    End Sub
     83
     84    Sub Proc9()
     85        proc9Flag = ( x = &H12345678 )
     86    End Sub
     87
     88    Sub Ticket177()
     89        Dim dg = New Callback1( AddressOf( This.Proc9 ) )
     90        dg()
     91    End Sub
    7792End Class
    7893
     
    93108    dg4( New StringEx( "Proc4 calling" ) )  ' 反変引数サポートのテスト
    94109
     110    testObj.x = &H12345678
     111    testObj.Ticket177()
     112
    95113    UnitTest( "Delegate1", testObj.CheckFlags() )
    96114
Note: See TracChangeset for help on using the changeset viewer.