source: trunk/TestCase/SimpleTestCase/BlittableTest.ab@ 385

Namespace BlittableTest

Sub TestMain()
    Dim a As Byte
    Dim b As SByte
    Dim c As Word
    Dim d As Integer
    Dim e As DWord
    Dim f As Long
    Dim g As QWord
    Dim h As Int64
    Dim i As Single
    Dim j As Double

    UnitTest( "System.Byte",    a.GetType().Name = "Byte" )
    UnitTest( "System.SByte",   b.GetType().Name = "SByte" )
    UnitTest( "System.UInt16",  c.GetType().Name = "UInt16" )
    UnitTest( "System.Int16",   d.GetType().Name = "Int16" )
    UnitTest( "System.UInt32",  e.GetType().Name = "UInt32" )
    UnitTest( "System.Int32",   f.GetType().Name = "Int32" )
    UnitTest( "System.UInt64",  g.GetType().Name = "UInt64" )
    UnitTest( "System.Int64",   h.GetType().Name = "Int64" )
    UnitTest( "System.Single",  i.GetType().Name = "Single" )
    UnitTest( "System.Double",  j.GetType().Name = "Double" )

End Sub

End Namespace

BlittableTest.TestMain()