Lines Matching refs:xLBT
474 xLBT As XBridgeTest ) As Boolean
483 Dim any2 As Any = xLBT.transportAny(any)
493 Private Shared Function performAnyTest(xLBT As XBridgeTest, _
496 bReturn = testAny( Nothing, data.Byte ,xLBT ) And bReturn
497 bReturn = testAny( Nothing, data.Short,xLBT ) And bReturn
498 bReturn = testAny( Nothing, data.UShort,xLBT ) And bReturn
499 bReturn = testAny( Nothing, data.Long,xLBT ) And bReturn
500 bReturn = testAny( Nothing, data.ULong,xLBT ) And bReturn
501 bReturn = testAny( Nothing, data.Hyper,xLBT ) And bReturn
502 bReturn = testAny( Nothing,data.UHyper,xLBT ) And bReturn
503 bReturn = testAny( Nothing, data.Float,xLBT ) And bReturn
504 bReturn = testAny( Nothing, data.Double,xLBT ) And bReturn
505 bReturn = testAny( Nothing, data.Enum,xLBT ) And bReturn
506 bReturn = testAny( Nothing, data.String,xLBT ) And bReturn
508 data.Interface,xLBT ) And bReturn
509 bReturn = testAny(Nothing, data, xLBT ) And bReturn
512 Dim a2 As Any = xLBT.transportAny( a1 )
516 Dim a4 As Any = xLBT.transportAny(a3)
522 Private Shared Function performSequenceOfCallTest(xLBT As XBridgeTest) As Boolean
530 xLBT.callOneway(nGlobalIndex, nWaitTimeSpanMUSec)
535 xLBT.call(nGlobalIndex, nWaitTimeSpanMUSec)
538 Return xLBT.sequenceOfCallTestPassed()
541 Private Shared Function performRecursiveCallTest(xLBT As XBridgeTest) As Boolean
542 xLBT.startRecursiveCall(new ORecursiveCall(), 50)
548 Private Shared Function performTest(xLBT As XBridgeTest) As Boolean
549 check( Not xLBT Is Nothing, "### no test interface!" )
551 If xLBT Is Nothing
597 xLBT.setValues( _
608 xLBT.getValues( _
620 Dim aSV2ret As TestDataElements= xLBT.setValues2( _
641 Dim aGVret As TestDataElements= xLBT.getValues( _
654 xLBT.Bool = aRet.Bool
655 xLBT.Char = aRet.Char
656 xLBT.Byte = aRet.Byte
657 xLBT.Short = aRet.Short
658 xLBT.UShort = aRet.UShort
659 xLBT.Long = aRet.Long
660 xLBT.ULong = aRet.ULong
661 xLBT.Hyper = aRet.Hyper
662 xLBT.UHyper = aRet.UHyper
663 xLBT.Float = aRet.Float
664 xLBT.Double = aRet.Double
665 xLBT.Enum = aRet.Enum
666 xLBT.String = aRet.String
667 xLBT.Interface = aRet.Interface
668 xLBT.Any = aRet.Any
669 xLBT.Sequence = aRet.Sequence
670 xLBT.Struct = aRet2
675 aRet.Hyper = xLBT.Hyper
676 aRet.UHyper = xLBT.UHyper
677 aRet.Float = xLBT.Float
678 aRet.Double = xLBT.Double
679 aRet.Byte = xLBT.Byte
680 aRet.Char = xLBT.Char
681 aRet.Bool = xLBT.Bool
682 aRet.Short = xLBT.Short
683 aRet.UShort = xLBT.UShort
684 aRet.Long = xLBT.Long
685 aRet.ULong = xLBT.ULong
686 aRet.Enum = xLBT.Enum
687 aRet.String = xLBT.String
688 aRet.Interface = xLBT.Interface
689 aRet.Any = xLBT.Any
690 aRet.Sequence = xLBT.Sequence
691 aRet2 = xLBT.Struct
697 bRet = check(performSequenceTest(xLBT), "sequence test") And bRet
700 bRet = check( performAnyTest( xLBT , aData ) , "any test" ) And bRet
703 bRet = check( performSequenceOfCallTest( xLBT ) , _
707 bRet = check( performRecursiveCallTest( xLBT ) , "recursive test" ) _
714 xLBT.Interface = Nothing
715 aRet.Interface = xLBT.Interface
721 Private Shared Function raiseException(xLBT As XBridgeTest) As Boolean
728 xLBT.raiseException( _
729 5, CONSTANTS.STRING_TEST_CONSTANT, xLBT.Interface )
732 rExc.Context Is xLBT.Interface
740 xLBT.RuntimeException = 0
743 If rExc.Context Is xLBT.Interface
748 xLBT.RuntimeException = CType(&Hcafebabe, Integer)
751 If rExc.Context Is xLBT.Interface
761 Private Shared Function raiseOnewayException(xLBT As XBridgeTest) As Boolean
767 xLBT.raiseRuntimeExceptionOneway(sCompare, xLBT.Interface )
769 bReturn = xLBT.Interface Is e.Context
776 Private Shared Function testObjectMethodsImplemention(xLBT As XBridgeTest) As Boolean
779 Dim xInt As Object = DirectCast(xLBT, Object)
780 Dim xBase As XBridgeTestBase = DirectCast(xLBT, XBridgeTestBase)
782 ret = DirectCast(xLBT, Object).Equals(obj) = False
783 ret = DirectCast(xLBT, Object).Equals(xLBT) And ret
785 ret = Object.Equals(xLBT, xBase) And ret
788 Dim nHash As Integer = DirectCast(xLBT, Object).GetHashCode()
793 Dim s As String = DirectCast(xLBT, Object).ToString()
798 Private Shared Function performQueryForUnknownType(xLBT As XBridgeTest) As Boolean
802 Dim a As foo.MyInterface = DirectCast(xLBT, foo.MyInterface)
811 Private Shared Sub perform_test( xLBT As XBridgeTest)
813 bRet = check( performTest( xLBT ), "standard test" ) And bRet
814 bRet = check( raiseException( xLBT ) , "exception test" ) And bRet
815 bRet = check( raiseOnewayException( xLBT ), "oneway exception test" ) _
817 bRet = check( testObjectMethodsImplemention(xLBT), _
819 bRet = performQueryForUnknownType( xLBT ) And bRet