operatorstests.vb

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

        o3 = Operators.AddObject(o1, o2)
        If (TypeOf o3 Is Byte) Then
            Assert.AreEqual(CType(o3, Byte), Byte.MaxValue)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAdd21()
        Dim o1, o2 As Double
        Dim o3 As Object
        o1 = Double.MaxValue
        o2 = Double.MaxValue
        o3 = Operators.AddObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), Double.MaxValue * 2)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAdd22()
        Dim o1, o2 As UShort
        Dim o3 As Object
        o1 = UShort.MaxValue
        o2 = UShort.MaxValue
        o3 = Operators.AddObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(CType(o3, Integer), UShort.MaxValue * 2)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAdd23()
        Dim o1 As Double
        Dim o2 As Decimal
        Dim o3 As Object
        o1 = 1
        o2 = 1
        o3 = Operators.AddObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), 2)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAdd24()
        Dim o1 As Boolean
        Dim o2 As String
        Dim o3 As Object
        o1 = False
        o2 = "1"
        o3 = Operators.AddObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), 1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAdd25()
        Dim o1 As Boolean
        Dim o2 As Integer
        Dim o3 As Object
        o1 = False
        o2 = 1
        o3 = Operators.AddObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(CType(o3, Integer), 1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAdd26()
        Dim o1 As ULong
        Dim o2 As SByte
        Dim o3 As Object
        o1 = UInteger.MaxValue
        o2 = -1
        o3 = Operators.AddObject(o1, o2)
        If (TypeOf o3 Is Decimal) Then
            Assert.AreEqual(CType(o3, Decimal), UInteger.MaxValue - 1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAdd27()
        Dim o1 As Char
        Dim o2 As Integer
        Dim o3 As Object
        o1 = "1"c
        o2 = -1
        Try
            o3 = Operators.AddObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsAdd28()
        Dim o1, o2, o3 As Object
        o1 = New OperatorsImplementer()
        o2 = "abc"
        o3 = Operators.AddObject(o1, o2)
        Assert.AreEqual(o3, "ok+")
    End Sub

    <Test()> _
    Sub TestOperatorsAdd29()
        Dim o1, o2, o3 As Object
        o1 = "abc"
        o2 = New OperatorsImplementer()
        Try
            o3 = Operators.AddObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsOr1()
        Dim o1, o2, o3 As Object
        o1 = "1.1"
        o2 = "1"
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (1L Or 1L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr2()
        Dim o1, o2, o3 As Object
        o1 = "d"
        o2 = 1
        Try
            o3 = Operators.OrObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsOr3()
        Dim o1, o2, o3 As Object
        o1 = "1.1"
        o2 = 1
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (1L Or 1L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr4()
        Dim o1, o2, o3 As Object
        o1 = 52
        o2 = 14
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(CType(o3, Integer), (52 Or 14))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr5()
        Dim o1, o2, o3 As Object
        o1 = 14134.3124
        o2 = 14.59
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (14134L Or 15L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr6()
        Dim o1, o2, o3 As Object
        o1 = DateTime.Now
        o2 = DateTime.Now
        Try
            o3 = Operators.OrObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsOr7()
        Dim o1, o2, o3 As Object
        o1 = "1"c
        o2 = "2"c
        Try
            o3 = Operators.OrObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsOr9()
        Dim o1, o2, o3 As Object
        o1 = Nothing
        o2 = 134S
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is Short) Then
            Assert.AreEqual(CType(o3, Short), (134S))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr10()
        Dim o1, o2, o3 As Object
        o1 = Nothing
        o2 = Nothing
        o3 = Operators.OrObject(o1, o2)
        Assert.AreEqual(o3, 0)
    End Sub

    <Test()> _
    Sub TestOperatorsOr14()
        Dim o3 As Object
        Dim o1, o2 As UShort
        o1 = 643US
        o2 = 24US
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is UShort) Then
            Assert.AreEqual(CType(o3, UShort), (24US Or 643US))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr15()
        Dim o3 As Object
        Dim o1 As Short
        Dim o2 As Long
        o1 = -2
        o2 = 1
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), -1L)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr17()
        Dim o1, o2 As Object
        Dim o3 As Object
        o1 = True
        o2 = False
        o3 = Operators.OrObject(o1, o2)
        If (TypeOf o3 Is Boolean) Then
            Assert.AreEqual(CType(o3, Boolean), True)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsOr18()
        Dim o3 As Object
        Try
            o3 = Operators.OrObject(DBNull.Value, DBNull.Value)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsOr28()
        Dim o1, o2, o3 As Object
        o1 = New OperatorsImplementer()
        o2 = 1
        o3 = Operators.OrObject(o1, o2)
        Assert.AreEqual(o3, "ok||")
    End Sub

    <Test()> _
    Sub TestOperatorsXor1()
        Dim o1, o2, o3 As Object
        o1 = "1.1"
        o2 = "1"
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (1L Xor 1L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor2()
        Dim o1, o2, o3 As Object
        o1 = "d"
        o2 = 1
        Try
            o3 = Operators.XorObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsXor3()
        Dim o1, o2, o3 As Object
        o1 = "1.1"
        o2 = 1
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (1L Xor 1L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor4()
        Dim o1, o2, o3 As Object
        o1 = 52
        o2 = 14
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(CType(o3, Integer), (52 Xor 14))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor5()
        Dim o1, o2, o3 As Object
        o1 = 14134.3124
        o2 = 14.59
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (14134L Xor 15L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor6()
        Dim o1, o2, o3 As Object
        o1 = DateTime.Now
        o2 = DateTime.Now
        Try
            o3 = Operators.XorObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsXor7()
        Dim o1, o2, o3 As Object
        o1 = "1"c
        o2 = "2"c
        Try
            o3 = Operators.XorObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsXor9()
        Dim o1, o2, o3 As Object
        o1 = Nothing
        o2 = 134S
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is Short) Then
            Assert.AreEqual(CType(o3, Short), (134S))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor10()
        Dim o1, o2, o3 As Object
        o1 = Nothing
        o2 = Nothing
        o3 = Operators.XorObject(o1, o2)
        Assert.AreEqual(o3, 0)
    End Sub

    <Test()> _
    Sub TestOperatorsXor14()
        Dim o3 As Object
        Dim o1, o2 As UShort
        o1 = 643US
        o2 = 24US
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is UShort) Then
            Assert.AreEqual(CType(o3, UShort), (24US Xor 643US))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor15()
        Dim o3 As Object
        Dim o1 As Short
        Dim o2 As Long
        o1 = -2
        o2 = 1
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), -1L)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor17()
        Dim o1, o2 As Object
        Dim o3 As Object
        o1 = True
        o2 = False
        o3 = Operators.XorObject(o1, o2)
        If (TypeOf o3 Is Boolean) Then
            Assert.AreEqual(CType(o3, Boolean), True)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsXor18()
        Dim o3 As Object
        Try
            o3 = Operators.XorObject(DBNull.Value, DBNull.Value)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsXor28()
        Dim o1, o2, o3 As Object
        o1 = New OperatorsImplementer()
        o2 = 1
        o3 = Operators.XorObject(o1, o2)
        Assert.AreEqual(o3, "okXor")
    End Sub

    <Test()> _
    Sub TestOperatorsAnd1()
        Dim o1, o2, o3 As Object
        o1 = "1.1"
        o2 = "1"
        o3 = Operators.AndObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (1L And 1L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAnd2()
        Dim o1, o2, o3 As Object
        o1 = "d"
        o2 = 1
        Try
            o3 = Operators.AndObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsAnd3()
        Dim o1, o2, o3 As Object
        o1 = "1.1"
        o2 = 1
        o3 = Operators.AndObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (1L And 1L))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAnd4()
        Dim o1, o2, o3 As Object
        o1 = 52
        o2 = 14
        o3 = Operators.AndObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(CType(o3, Integer), (52 And 14))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsAnd5()
        Dim o1, o2, o3 As Object
        o1 = 14134.3124
        o2 = 14.59
        o3 = Operators.AndObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (14134L And 15L))
        Else
            Assert.Fail()