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

Download this file

66 lines (66 with data), 8.1 kB

Gx_li!0…jüo8|0E)	ë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ĐĐ	
­ÚĐ-<