generated.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

'			value = CShort(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUInteger()
'			Dim value As UInteger
'			value = CUInt(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToInteger()
'			Dim value As Integer
'			value = CInt(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToULong()
'			Dim value As ULong
'			value = CULng(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToLong()
'			Dim value As Long
'			value = CLng(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDecimal()
'			Dim value As Decimal
'			value = CDec(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSingle()
'			Dim value As Single
'			value = CSng(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDouble()
'			Dim value As Double
'			value = CDbl(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToObject()
'			Dim value As Object
'			value = CObj(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDate()
'			Dim value As Date
'			value = CDate(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToString()
'			Dim value As String
'			value = CStr(CShort("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'	End Class
'	<TestFixture()> Public Class UIntegerConversion
'		<Test()> Public Sub ToBoolean()
'			Dim value As Boolean
'			value = CBool(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToByte()
'			Dim value As Byte
'			value = CByte(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSByte()
'			Dim value As SByte
'			value = CSByte(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToChar()
'			Dim value As Char
'			value = CChar(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUShort()
'			Dim value As UShort
'			value = CUShort(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToShort()
'			Dim value As Short
'			value = CShort(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUInteger()
'			Dim value As UInteger
'			value = CUInt(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToInteger()
'			Dim value As Integer
'			value = CInt(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToULong()
'			Dim value As ULong
'			value = CULng(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToLong()
'			Dim value As Long
'			value = CLng(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDecimal()
'			Dim value As Decimal
'			value = CDec(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSingle()
'			Dim value As Single
'			value = CSng(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDouble()
'			Dim value As Double
'			value = CDbl(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToObject()
'			Dim value As Object
'			value = CObj(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDate()
'			Dim value As Date
'			value = CDate(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToString()
'			Dim value As String
'			value = CStr(CUInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'	End Class
'	<TestFixture()> Public Class IntegerConversion
'		<Test()> Public Sub ToBoolean()
'			Dim value As Boolean
'			value = CBool(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToByte()
'			Dim value As Byte
'			value = CByte(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSByte()
'			Dim value As SByte
'			value = CSByte(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToChar()
'			Dim value As Char
'			value = CChar(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUShort()
'			Dim value As UShort
'			value = CUShort(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToShort()
'			Dim value As Short
'			value = CShort(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUInteger()
'			Dim value As UInteger
'			value = CUInt(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToInteger()
'			Dim value As Integer
'			value = CInt(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToULong()
'			Dim value As ULong
'			value = CULng(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToLong()
'			Dim value As Long
'			value = CLng(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDecimal()
'			Dim value As Decimal
'			value = CDec(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSingle()
'			Dim value As Single
'			value = CSng(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDouble()
'			Dim value As Double
'			value = CDbl(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToObject()
'			Dim value As Object
'			value = CObj(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDate()
'			Dim value As Date
'			value = CDate(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToString()
'			Dim value As String
'			value = CStr(CInt("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'	End Class
'	<TestFixture()> Public Class ULongConversion
'		<Test()> Public Sub ToBoolean()
'			Dim value As Boolean
'			value = CBool(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToByte()
'			Dim value As Byte
'			value = CByte(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSByte()
'			Dim value As SByte
'			value = CSByte(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToChar()
'			Dim value As Char
'			value = CChar(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUShort()
'			Dim value As UShort
'			value = CUShort(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToShort()
'			Dim value As Short
'			value = CShort(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUInteger()
'			Dim value As UInteger
'			value = CUInt(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToInteger()
'			Dim value As Integer
'			value = CInt(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToULong()
'			Dim value As ULong
'			value = CULng(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToLong()
'			Dim value As Long
'			value = CLng(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDecimal()
'			Dim value As Decimal
'			value = CDec(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSingle()
'			Dim value As Single
'			value = CSng(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDouble()
'			Dim value As Double
'			value = CDbl(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToObject()
'			Dim value As Object
'			value = CObj(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDate()
'			Dim value As Date
'			value = CDate(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToString()
'			Dim value As String
'			value = CStr(CULng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'	End Class
'	<TestFixture()> Public Class LongConversion
'		<Test()> Public Sub ToBoolean()
'			Dim value As Boolean
'			value = CBool(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToByte()
'			Dim value As Byte
'			value = CByte(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSByte()
'			Dim value As SByte
'			value = CSByte(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToChar()
'			Dim value As Char
'			value = CChar(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUShort()
'			Dim value As UShort
'			value = CUShort(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToShort()
'			Dim value As Short
'			value = CShort(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUInteger()
'			Dim value As UInteger
'			value = CUInt(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToInteger()
'			Dim value As Integer
'			value = CInt(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToULong()
'			Dim value As ULong
'			value = CULng(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToLong()
'			Dim value As Long
'			value = CLng(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDecimal()
'			Dim value As Decimal
'			value = CDec(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSingle()
'			Dim value As Single
'			value = CSng(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDouble()
'			Dim value As Double
'			value = CDbl(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToObject()
'			Dim value As Object
'			value = CObj(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDate()
'			Dim value As Date
'			value = CDate(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToString()
'			Dim value As String
'			value = CStr(CLng("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'	End Class
'	<TestFixture()> Public Class DecimalConversion
'		<Test()> Public Sub ToBoolean()
'			Dim value As Boolean
'			value = CBool(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToByte()
'			Dim value As Byte
'			value = CByte(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSByte()
'			Dim value As SByte
'			value = CSByte(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToChar()
'			Dim value As Char
'			value = CChar(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUShort()
'			Dim value As UShort
'			value = CUShort(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToShort()
'			Dim value As Short
'			value = CShort(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToUInteger()
'			Dim value As UInteger
'			value = CUInt(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToInteger()
'			Dim value As Integer
'			value = CInt(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToULong()
'			Dim value As ULong
'			value = CULng(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToLong()
'			Dim value As Long
'			value = CLng(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToDecimal()
'			Dim value As Decimal
'			value = CDec(CDec("20"))
'			Assert.AreEqual(value, 20, "value should be 20")
'		End Sub
'		<Test()> Public Sub ToSingle()