operatorstests.vb

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

    <Test()> _
    Sub TestOperatorsLeftShiftObject20()
        Dim o1, o2, o3 As Object
        o1 = 4
        o2 = Int32.MinValue + 1
        o3 = Operators.LeftShiftObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(CType(o3, Integer), (4 << (Int32.MinValue + 1)))
        Else
            Assert.Fail()
        End If
    End Sub

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

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

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

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

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

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

    <Test()> _
    Sub TestOperatorsSubtract6()
        Dim o1, o2, o3 As Object
        o1 = DateTime.Now
        o2 = DateTime.Now
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is TimeSpan) Then
            Assert.AreEqual(CType(o3, TimeSpan).Ticks, (CType(o1, DateTime).Ticks - CType(o2, DateTime).Ticks))
        Else
            Assert.Fail()
        End If
    End Sub

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

    <Test()> _
    Sub TestOperatorsSubtract8()
        Dim o1, o2, o3 As Object
        o1 = 1
        o2 = Nothing
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(o3, 1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsSubtract9()
        Dim o1, o2, o3 As Object
        o1 = Nothing
        o2 = 1
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is Integer) Then
            Assert.AreEqual(o3, -1)
        Else
            Assert.Fail()
        End If
    End Sub

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

    <Test()> _
    Sub TestOperatorsSubtract11()
        Dim o3 As Object
        Dim o1, o2 As Integer
        o1 = Integer.MaxValue
        o2 = Integer.MinValue
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(o3, CType(Integer.MaxValue, Long) - CType(Integer.MinValue, Long))
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsSubtract12()
        Dim o3 As Object
        Dim o1, o2 As Short
        o1 = 1
        o2 = 1
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is Short) Then
            Assert.AreEqual(CType(o3, Short), 0)
        Else
            Assert.Fail()
        End If
    End Sub

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

    <Test()> _
    Sub TestOperatorsSubtract14()
        Dim o3 As Object
        Dim o1, o2 As UShort
        o1 = 1
        o2 = 1
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is UShort) Then
            Assert.AreEqual(CType(o3, UShort), 0)
        Else
            Assert.Fail()
        End If
    End Sub

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

    <Test()> _
    Sub TestOperatorsSubtract16()
        Dim o1, o2 As Long
        Dim o3 As Object
        o1 = 1L
        o2 = 1L
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), 0L)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsSubtract19()
        Dim o1, o2 As Byte
        Dim o3 As Object
        o1 = 0
        o2 = 1
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is Short) Then
            Assert.AreEqual(CType(o3, Short), -1)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsSubtract20()
        Dim o1, o2 As Byte
        Dim o3 As Object
        o1 = Byte.MaxValue
        o2 = 0
        o3 = Operators.SubtractObject(o1, o2)
        If (TypeOf o3 Is Byte) Then
            Assert.AreEqual(CType(o3, Byte), Byte.MaxValue)
        Else
            Assert.Fail()
        End If
    End Sub

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

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

    <Test()> _
    Sub TestOperatorsAdd1()
        Dim o1, o2, o3 As Object
        o1 = "a"
        o2 = "b"
        o3 = Operators.AddObject(o1, o2)
        Assert.AreEqual(o3, "ab")
    End Sub

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

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

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

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

    <Test()> _
    Sub TestOperatorsAdd6()
        Dim o1, o2, o3 As Object
        o1 = DateTime.Now
        o2 = DateTime.Now
        o3 = Operators.AddObject(o1, o2)
        Assert.AreEqual(o3, String.Concat(o1.ToString(), o2.ToString()))
    End Sub

    <Test()> _
    Sub TestOperatorsAdd7()
        Dim o1, o2, o3 As Object
        o1 = "a"c
        o2 = "b"c
        o3 = Operators.AddObject(o1, o2)
        Assert.AreEqual(o3, "ab")
    End Sub

    <Test()> _
    Sub TestOperatorsAdd8()
        Dim o1, o2, o3, o4, o5, o6 As Object
        o1 = "b"c
        o2 = Nothing
        o3 = Operators.AddObject(o1, o2)
        o4 = "b"c
        o5 = DBNull.Value
        o6 = Operators.AddObject(o1, o2)
        Assert.AreEqual(o3, o6)
    End Sub

    <Test()> _
    Sub TestOperatorsAdd9()
        Dim o1, o2, o3 As Object
        o1 = Nothing
        o2 = 1
        o3 = Operators.AddObject(o1, o2)
        Assert.AreEqual(o3, 1)
    End Sub

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

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

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

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

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

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

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

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

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

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

    <Test()> _
    Sub TestOperatorsAdd20()
        Dim o1, o2 As Byte
        Dim o3 As Object
        o1 = Byte.MaxValue
        o2 = 0