1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | METHOD PRIVATE GetDetectionCount : UINT VAR_INPUT ExpectedSize : UDINT; ExpectedTypeClass : IBaseLibrary.TypeClass; ExpectedValue : POINTER TO BYTE; ActualSize : UDINT; ActualTypeClass : IBaseLibrary.TypeClass; ActualValue : POINTER TO BYTE; Message : T_MaxString; TestInstancePath : T_MaxString; END_VAR VAR IF F_IsAnyEqualToUnionValue(uExpectedOrActual := AssertResultInstances[IteratorCounter].AssertResult.Expected, ExpectedOrActualTypeClass := ExpectedTypeClass, F_IsAnyEqualToUnionValue(uExpectedOrActual := AssertResultInstances[IteratorCounter].AssertResult.Actual, ExpectedOrActualTypeClass := ActualTypeClass, AssertResultInstances[IteratorCounter].AssertResult.Message = Message AND GetDetectionCount := AssertResultInstances[IteratorCounter].DetectionCount; END_IF END_FOR |