operatorstests.vb

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

        End If
    End Sub

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

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

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

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

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

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

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

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

    <Test()> _
    Sub TestOperatorsDivide1()
        Dim o1, o2, o3 As Object
        o1 = "a"
        o2 = "b"
        Try
            o3 = Operators.DivideObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

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

    <Test()> _
    Sub TestOperatorsDivide3()
        Dim o1, o2, o3 As Object
        o1 = "1"
        o2 = 1
        o3 = Operators.DivideObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), 1D)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsDivide8()
        Dim o1, o2, o3 As Object
        o1 = 1
        o2 = Nothing
        o3 = Operators.DivideObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), Double.PositiveInfinity)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsDivide13()
        Dim o1, o2, o3 As Object
        o1 = 1.1F
        o2 = 1.1F
        o3 = Operators.DivideObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsDivide14()
        Dim o1, o2, o3 As Object
        o1 = False
        o2 = 1.0F
        o3 = Operators.DivideObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 0)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsDivide15()
        Dim o1, o2, o3 As Object
        o1 = 1.0F
        o2 = "1"
        o3 = Operators.DivideObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), 1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsDivide16()
        Dim o1, o2, o3 As Object
        o1 = 1.0F
        o2 = 1
        o3 = Operators.DivideObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 1)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsMod1()
        Dim o1, o2, o3 As Object
        o1 = "a"
        o2 = "b"
        Try
            o3 = Operators.ModObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

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

    <Test()> _
    Sub TestOperatorsMod3()
        Dim o1, o2, o3 As Object
        o1 = "1"
        o2 = 1
        o3 = Operators.ModObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), 0D)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsMod8()
        Dim o1, o2, o3 As Object
        o1 = 1
        o2 = Nothing
        Try
            o3 = Operators.ModObject(o1, o2)
        Catch ex As DivideByZeroException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsMod11()
        Dim o1, o2, o3 As Object
        o1 = New Decimal(3)
        o2 = 2.0F
        o3 = Operators.ModObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsMod12()
        Dim o1, o2, o3 As Object
        o1 = New Decimal(3)
        o2 = -2.5F
        o3 = Operators.ModObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 0.5F)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsMod13()
        Dim o1, o2, o3 As Object
        o1 = -1.1F
        o2 = 1.1D
        o3 = Operators.ModObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 0)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsMod14()
        Dim o1, o2, o3 As Object
        o1 = False
        o2 = 1.0F
        o3 = Operators.ModObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 0)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsMod16()
        Dim o1, o2, o3 As Object
        o1 = New OperatorsImplementer()
        o2 = "2"
        o3 = Operators.ModObject(o1, o2)
        Assert.AreEqual(o3, "okMod")
    End Sub

    <Test()> _
    Sub TestOperatorsMultiply1()
        Dim o1, o2, o3 As Object
        o1 = "a"
        o2 = "b"
        Try
            o3 = Operators.MultiplyObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

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

    <Test()> _
    Sub TestOperatorsMultiply3()
        Dim o1, o2, o3 As Object
        o1 = "1"
        o2 = 1
        o3 = Operators.MultiplyObject(o1, o2)
        If (TypeOf o3 Is Double) Then
            Assert.AreEqual(CType(o3, Double), 1D)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsMultiply8()
        Dim o1, o2, o3 As Object
        o1 = 1.0F
        o2 = Nothing
        o3 = Operators.MultiplyObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 0.0F)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsMultiply13()
        Dim o1, o2, o3 As Object
        o1 = 1US
        o2 = 1.1F
        o3 = Operators.MultiplyObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 1.1F)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsMultiply14()
        Dim o1, o2, o3 As Object
        o1 = False
        o2 = 1.0F
        o3 = Operators.MultiplyObject(o1, o2)
        If (TypeOf o3 Is Single) Then
            Assert.AreEqual(CType(o3, Single), 0)
        Else
            Assert.Fail()
        End