[r389]: / trunk / Library / POUs / FB_AssertArrayResultStatic / CreateAssertResultInstance / svnobj  Maximize  Restore  History

Download this file

19 lines (18 with data), 3.9 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
METHOD PRIVATE CreateAssertResultInstance
VAR_INPUT
    ExpectedsSize : UDINT;
    ExpectedsTypeClass : IBaseLibrary.TypeClass;
    ActualsSize : UDINT;
    ActualsTypeClass : IBaseLibrary.TypeClass;
    Message : T_MaxString;
    TestInstancePath : T_MaxString;
END_VAR
VAR
    IF AssertArrayResultInstances[IteratorCounter].DetectionCount = 0 AND
        AssertArrayResultInstances[IteratorCounter].AssertArrayResult.ExpectedsSize := ExpectedsSize;
        AssertArrayResultInstances[IteratorCounter].AssertArrayResult.ActualsSize := ActualsSize;
        AssertArrayResultInstances[IteratorCounter].AssertArrayResult.Message := Message;
        AssertArrayResultInstances[IteratorCounter].DetectionCountThisCycle := 1;
        EXIT;
	END_IF
END_FOR