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()