[r90]: / trunk / Library / POUs / FB_TestSuite / AddTest / svnobj  Maximize  Restore  History

Download this file

66 lines (66 with data), 8.1 kB

Gx_le!0…jüo4agîl	ëvåaSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
˜GVL_CfUnit.IgnoreCurrentTest := FALSE; // Reset the ignore current test flagVTrimmedTestName := F_LTrim(in := TestName);dTrimmedTestName := F_RTrim(in := TrimmedTestName);nLowerCasedTestName := F_ToLCase(in := TrimmedTestName);V(* Check if this test should be disabled *)‚IF FIND(STR1 := LowerCasedTestName, STR2 := 'disabled_') = 1 THENR    GVL_CfUnit.IgnoreCurrentTest := TRUE;    RETURN;END_IFÆGetCurrentTaskIndex(); // Gets the task index of where this function block instance is being run inÎ(* Check if the test name already exists. Make sure there are no other tests with the same name already>   added for this test suite *)|CycleCount := GetCurrentTaskIndex.CurTaskInfo.dwIECCycleCount;´(* Iterate all the test names that up to this point have been added for this test suite *)bFOR IteratorCounter := 1 TO NumberOfTests BY 1 DO|    IF Tests[IteratorCounter].GetName() = TrimmedTestName THEN\        TestWithThisNameAlreadyExists := TRUE;¬        (* Check if a test with this name has already been called in this PLC cycle *) ‚        IF TestCycleCountIndex[IteratorCounter] = CycleCount THEN!b            GVL_CfUnit.IgnoreCurrentTest := TRUE;"ä            (* A test with this name already exists for this test suite and has already been called in this cycle.#®               Send a message notification, but only if we have not done so already. *)$†            TestDuplicateNameTrigger[IteratorCounter](CLK := TRUE);%ò            IF TestDuplicateNameTrigger[IteratorCounter].Q THEN // Rising edge detected. We have not reported this before&Ô                TestInstancePath := F_RemoveInstancePathAndProjectNameFromTestInstancePath(TestInstancePath := GVL_CfUnit.CurrentTestSuiteBeingCalled^.GetInstancePath());'°                ErrorMessage := 'Test with name $'%s$' already exists in test suite $'';(®                ErrorMessage := CONCAT(STR1 := ErrorMessage, STR2 := TestInstancePath);)–                ErrorMessage := CONCAT(STR1 := ErrorMessage, STR2 := '$'');*Æ                FunctionCallResult := LOGSTR(msgCtrlMask := GVL_Constants_CfUnit.LOG_MSGTYPE_ERROR,+ª                                                           msgFmtStr := ErrorMessage,,¬                                                           strArg := TrimmedTestName);-$            END_IF.        END_IF/v        TestCycleCountIndex[IteratorCounter] := CycleCount;0    END_IF1END_FOR2RIF NOT TestWithThisNameAlreadyExists THEN3T    (* Test has not been found. Add it. *)4x    Tests[IteratorCounter].SetName(Name := TrimmedTestName);5N    NumberOfTests := NumberOfTests + 1;6j    TestCycleCountIndex[NumberOfTests] := CycleCount;7Interface8L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}9*METHOD PUBLIC AddTest:VAR_INPUT;6    TestName : T_MaxString;<END_VAR=VAR>6    IteratorCounter : UINT;?>    ErrorMessage : T_MaxString;@F    TestInstancePath : T_MaxString;A<    FunctionCallResult : DINT;B.    CycleCount : UDINT;Cd    TestWithThisNameAlreadyExists : BOOL := FALSE;DJ    LowerCasedTestName : T_MaxString;ED    TrimmedTestName : T_MaxString;ÐÐÐE1ÐÐ	
­ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­	ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­IÚÐ-ÐÐ	
­HÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­GÚÐ-ÐÐ	
­AÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ- ÐÐ	
­ÚÐ-!ÐÐ	
­ÚÐ-"ÐÐ	
­ÚÐ-#ÐÐ	
­ÚÐ-$ÐÐ	
­ ÚÐ-%ÐÐ	
­!ÚÐ-&ÐÐ	
­#ÚÐ-'ÐÐ	
­$ÚÐ-(ÐÐ	
­%ÚÐ-)ÐÐ	
­&ÚÐ-*ÐÐ	
­'ÚÐ-+ÐÐ	
­(ÚÐ-,ÐÐ	
­)ÚÐ--ÐÐ	
­*ÚÐ-.ÐÐ	
­+ÚÐ-/ÐÐ	
­,ÚÐ-0ÐÐ	
­-ÚÐ-1ÐÐ	
­.ÚÐ-ÐÐ	
­/ÚÐ-2ÐÐ	
­0ÚÐ-3ÐÐ	
­1ÚÐ-4ÐÐ	
­2ÚÐ-5ÐÐ	
­3ÚÐ-6ÐÐ	
­ÚÐ-Ð78ÐEÐÐ	
­4ÚÐ-9ÐÐ	
­5ÚÐ-:ÐÐ	
­6ÚÐ-;ÐÐ	
­7ÚÐ-<ÐÐ	
­8ÚÐ-=ÐÐ	
­9ÚÐ->ÐÐ	
­:ÚÐ-?ÐÐ	
­;ÚÐ-@ÐÐ	
­<ÚÐ-AÐÐ	
­=ÚÐ-BÐÐ	
­>ÚÐ-CÐÐ	
­?ÚÐ-DÐÐ	
­@ÚÐ-EÐÐ	
­ÚÐ-<