bridgetest/cli/cli_vb_bridgetest.vb

124 	Private Shared Function compareData(val1 As Object, val2 As Object) As Boolean
153 			ret = a1.Type.Equals( a2.Type ) And compareData( a1.Value, a2.Value )
179 			If (compareData(ar1.GetValue(i), ar2.GetValue(i)) = False)
202 			If Not compareData(fieldVal1, fieldVal2)
268         bRet = check( compareData(seqSeqRet, arLong3(0)), "sequence test") _
271         bRet = check( compareData(seqSeqRet2, arLong3), "sequence test") _
274         bRet = check( compareData(seqAnyRet, arAny), "sequence test") And bRet
276         bRet = check( compareData(seqBoolRet, arBool), "sequence test") _
279         bRet = check( compareData(seqByteRet, arByte), "sequence test") _
282         bRet = check( compareData(seqCharRet, arChar), "sequence test") _
285         bRet = check( compareData(seqShortRet, arShort), "sequence test") _
288         bRet = check( compareData(seqLongRet, arLong), "sequence test") _
291         bRet = check( compareData(seqHyperRet,arHyper), "sequence test") _
294         bRet = check( compareData(seqFloatRet, arFloat), "sequence test") _
297         bRet = check( compareData(seqDoubleRet, arDouble), "sequence test") _
300         bRet = check( compareData(seqEnumRet, arEnum), "sequence test") _
303         bRet = check( compareData(seqUShortRet, arUShort), "sequence test") _
306         bRet = check( compareData(seqULongRet, arULong), "sequence test") _
309         bRet = check( compareData(seqUHyperRet, arUHyper), "sequence test") _
312         bRet = check( compareData(seqObjectRet, arObject), "sequence test") _
315         bRet = check( compareData(seqStringRet, arString), "sequence test") _
318         bRet = check( compareData(seqStructRet, arStruct), "sequence test") _
353             compareData(arBoolTemp, arBool) And _
354             compareData(arCharTemp , arChar) And _
355             compareData(arByteTemp , arByte) And _
356             compareData(arShortTemp , arShort) And _
357             compareData(arUShortTemp , arUShort) And _
358             compareData(arLongTemp , arLong) And _
359             compareData(arULongTemp , arULong) And _
360             compareData(arHyperTemp , arHyper) And _
361             compareData(arUHyperTemp , arUHyper) And _
362             compareData(arFloatTemp , arFloat) And _
363             compareData(arDoubleTemp , arDouble) And _
364             compareData(arEnumTemp , arEnum) And _
365             compareData(arStringTemp , arString) And _
366             compareData(arObjectTemp , arObject) And _
367             compareData(arAnyTemp , arAny) And _
368             compareData(arLong2Temp , arLong3(0)) And _
369             compareData(arLong3Temp , arLong3), "sequence test") And bRet
396             compareData(arBoolOut, arBool) And _
397             compareData(arCharOut, arChar) And _
398             compareData(arByteOut, arByte) And _
399             compareData(arShortOut, arShort) And _
400             compareData(arUShortOut, arUShort) And _
401             compareData(arLongOut, arLong) And _
402             compareData(arULongOut, arULong) And _
403             compareData(arHyperOut, arHyper) And _
404             compareData(arUHyperOut, arUHyper) And _
405             compareData(arFloatOut, arFloat) And _
406             compareData(arDoubleOut, arDouble) And _
407             compareData(arEnumOut, arEnum) And _
408             compareData(arStringOut, arString) And _
409             compareData(arObjectOut, arObject) And _
410             compareData(arAnyOut, arAny) And _
411             compareData(arLong2Out, arLong3(0)) And _
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
484 	    Dim ret As Boolean = compareData(any, any2)
513 	    bReturn = compareData(a2, a1) And bReturn
517 	    bReturn = compareData(a4, a3) And bReturn
616 		bRet = check( compareData( aData, aRet ) And _
617                       compareData( aData, aRet2 ) , "getValues test") And bRet
635             compareData( aData, aSV2ret ) And compareData( aData, aRet2 ), _
649 		bRet = check( compareData( aData, aRet ) And _
650                       compareData( aData, aRet2 ) And _
651                       compareData( aData, aGVret ), "getValues test" ) And bRet
693 		bRet = check( compareData( aData, aRet ) And _
694                       compareData( aData, aRet2 ) , "struct comparison test") _
710 		bRet = (compareData( aData, aRet ) And compareData( aData, aRet2 )) _