Lines Matching refs:aData
555 Dim aData As New TestDataElements' test against this data
559 assign( DirectCast(aData, TestElement), _
567 bRet = check( aData.Any.Value Is xI, "### unexpected any!" ) And bRet
569 aData.Sequence = New TestElement(1){}
570 aData.Sequence(0) = New TestElement( _
571 aData.Bool, aData.Char, aData.Byte, aData.Short, _
572 aData.UShort, aData.Long, aData.ULong, _
573 aData.Hyper, aData.UHyper, aData.Float, _
574 aData.Double, aData.Enum, aData.String, _
575 aData.Interface, aData.Any)
576 aData.Sequence(1) = New TestElement 'is empty
584 aData.Bool, aData.Char, aData.Byte, aData.Short, aData.UShort, _
585 aData.Long, aData.ULong, aData.Hyper, aData.UHyper, aData.Float, _
586 aData.Double, aData.Enum, aData.String, xI, aAnySet)
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") _
700 bRet = check( performAnyTest( xLBT , aData ) , "any test" ) And bRet
710 bRet = (compareData( aData, aRet ) And compareData( aData, aRet2 )) _