generated.vb

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

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