Lines Matching refs:bRet
212 Dim bRet As Boolean = True
268 bRet = check( compareData(seqSeqRet, arLong3(0)), "sequence test") _
269 And bRet
271 bRet = check( compareData(seqSeqRet2, arLong3), "sequence test") _
272 And bRet
274 bRet = check( compareData(seqAnyRet, arAny), "sequence test") And bRet
276 bRet = check( compareData(seqBoolRet, arBool), "sequence test") _
277 And bRet
279 bRet = check( compareData(seqByteRet, arByte), "sequence test") _
280 And bRet
282 bRet = check( compareData(seqCharRet, arChar), "sequence test") _
283 And bRet
285 bRet = check( compareData(seqShortRet, arShort), "sequence test") _
286 And bRet
288 bRet = check( compareData(seqLongRet, arLong), "sequence test") _
289 And bRet
291 bRet = check( compareData(seqHyperRet,arHyper), "sequence test") _
292 And bRet
294 bRet = check( compareData(seqFloatRet, arFloat), "sequence test") _
295 And bRet
297 bRet = check( compareData(seqDoubleRet, arDouble), "sequence test") _
298 And bRet
300 bRet = check( compareData(seqEnumRet, arEnum), "sequence test") _
301 And bRet
303 bRet = check( compareData(seqUShortRet, arUShort), "sequence test") _
304 And bRet
306 bRet = check( compareData(seqULongRet, arULong), "sequence test") _
307 And bRet
309 bRet = check( compareData(seqUHyperRet, arUHyper), "sequence test") _
310 And bRet
312 bRet = check( compareData(seqObjectRet, arObject), "sequence test") _
313 And bRet
315 bRet = check( compareData(seqStringRet, arString), "sequence test") _
316 And bRet
318 bRet = check( compareData(seqStructRet, arStruct), "sequence test") _
319 And bRet
352 bRet = check( _
369 compareData(arLong3Temp , arLong3), "sequence test") And bRet
395 bRet = check( _
412 compareData(arLong3Out, arLong3), "sequence test") And bRet
418 bRet = check( compareData(seqSeqRet, _arLong2), "sequence test") And bRet
421 bRet = check( compareData(seqSeqRet2, _arLong3), "sequence test") And bRet
424 bRet = check( compareData(seqAnyRet, _arAny), "sequence test") And bRet
427 bRet = check( compareData(seqBoolRet, _arBool), "sequence test") And bRet
430 bRet = check( compareData(seqByteRet, _arByte), "sequence test") And bRet
433 bRet = check( compareData(seqCharRet, _arChar), "sequence test") And bRet
436 bRet = check( compareData(seqShortRet, _arShort), "sequence test") And bRet
439 bRet = check( compareData(seqLongRet, _arLong), "sequence test") And bRet
442 bRet = check( compareData(seqHyperRet, _arHyper), "sequence test") And bRet
445 bRet = check( compareData(seqFloatRet, _arFloat), "sequence test") And bRet
448 bRet = check( compareData(seqDoubleRet, _arDouble), "sequence test") And bRet
451 bRet = check( compareData(seqEnumRet, _arEnum), "sequence test") And bRet
454 bRet = check( compareData(seqUShortRet, _arUShort), "sequence test") And bRet
457 bRet = check( compareData(seqULongRet, _arULong), "sequence test") And bRet
460 bRet = check( compareData(seqUHyperRet, _arUHyper), "sequence test") And bRet
463 bRet = check( compareData(seqObjectRet, _arObject), "sequence test") And bRet
466 bRet = check( compareData(seqStringRet, _arString), "sequence test") And bRet
469 bRet = check( compareData(seqStructRet, _arStruct), "sequence test") And bRet
470 Return bRet
550 Dim bRet As Boolean = True
567 bRet = check( aData.Any.Value Is xI, "### unexpected any!" ) And bRet
616 bRet = check( compareData( aData, aRet ) And _
617 compareData( aData, aRet2 ) , "getValues test") And bRet
634 bRet = check( _
636 "getValues2 test") And bRet
649 bRet = check( compareData( aData, aRet ) And _
651 compareData( aData, aGVret ), "getValues test" ) And bRet
693 bRet = check( compareData( aData, aRet ) And _
695 And bRet
697 bRet = check(performSequenceTest(xLBT), "sequence test") And bRet
700 bRet = check( performAnyTest( xLBT , aData ) , "any test" ) And bRet
703 bRet = check( performSequenceOfCallTest( xLBT ) , _
704 "sequence of call test" ) And bRet
707 bRet = check( performRecursiveCallTest( xLBT ) , "recursive test" ) _
708 And bRet
710 bRet = (compareData( aData, aRet ) And compareData( aData, aRet2 )) _
711 And bRet
716 bRet = (aRet.Interface Is Nothing) And bRet
718 Return bRet
799 Dim bRet As Boolean = False
804 bRet = True
807 Return bRet
812 Dim bRet As Boolean = True
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" ) _
816 And bRet
817 bRet = check( testObjectMethodsImplemention(xLBT), _
818 "object methods test") And bRet
819 bRet = performQueryForUnknownType( xLBT ) And bRet
820 If Not bRet