generated.vb

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

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