operatorstests.vb

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

    <Test()> _
    Sub TestOperatorsNot8()
        Dim o1, o2 As Object
        o1 = "1.1"
        o2 = Operators.NotObject(o1)
        If (TypeOf o2 Is Long) Then
            Assert.AreEqual(o2, -2L)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsNot9()
        Dim o1, o2 As Object
        o1 = 1.1
        o2 = Operators.NotObject(o1)
        If (TypeOf o2 Is Long) Then
            Assert.AreEqual(o2, -2L)
        Else
            Assert.Fail()
        End If
    End Sub

    <Test()> _
    Sub TestOperatorsNot10()
        Dim o1, o2 As Object
        o1 = New OperatorsImplementer()
        o2 = Operators.NotObject(o1)
        Assert.AreEqual(o2, "!ok")
    End Sub

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

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

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

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

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

    <Test()> _
    Sub TestOperatorsRightShiftObject6()
        Dim o1, o2, o3 As Object
        o1 = DBNull.Value
        o2 = 1
        Try
            o3 = Operators.RightShiftObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsRightShiftObject7()
        Dim o1, o2, o3 As Object
        o1 = 1
        o2 = DBNull.Value
        Try
            o3 = Operators.RightShiftObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

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

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

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

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

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

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

    <Test()> _
    Sub TestOperatorsRightShiftObject14()
        Dim o1, o2, o3 As Object
        o1 = "4"
        o2 = 1
        o3 = Operators.RightShiftObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Integer), (4 >> 1))
        Else
            Assert.Fail()
        End If
    End Sub

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

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

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

    <Test()> _
    Sub TestOperatorsRightShiftObject18()
        Dim o1, o2, o3 As Object
        o1 = 4.4D
        o2 = 1
        o3 = Operators.RightShiftObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (4L >> 1))
        Else
            Assert.Fail()
        End If
    End Sub

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

    <Test()> _
    Sub TestOperatorsRightShiftObject20()
        Dim o1, o2, o3 As Object
        o1 = 4
        o2 = Int32.MinValue + 1
        o3 = Operators.RightShiftObject(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 TestOperatorsRightShiftObject21()
        Dim o1, o3 As Object
        o1 = New OperatorsImplementer()
        o3 = Operators.RightShiftObject(o1, 1)
        Assert.AreEqual(o3, "ok>>")
    End Sub

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

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

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

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

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

    <Test()> _
    Sub TestOperatorsLeftShiftObject6()
        Dim o1, o2, o3 As Object
        o1 = DBNull.Value
        o2 = 1
        Try
            o3 = Operators.LeftShiftObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

    <Test()> _
    Sub TestOperatorsLeftShiftObject7()
        Dim o1, o2, o3 As Object
        o1 = 1
        o2 = DBNull.Value
        Try
            o3 = Operators.LeftShiftObject(o1, o2)
        Catch ex As InvalidCastException
            Return
        End Try
        Assert.Fail()
    End Sub

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

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

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

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

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

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

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

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

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

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

    <Test()> _
    Sub TestOperatorsLeftShiftObject18()
        Dim o1, o2, o3 As Object
        o1 = 4.4D
        o2 = 1
        o3 = Operators.LeftShiftObject(o1, o2)
        If (TypeOf o3 Is Long) Then
            Assert.AreEqual(CType(o3, Long), (4L << 1))
        Else
            Assert.Fail()
        End If
    End Sub

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