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

Download this file

13 lines (12 with data), 9.0 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
(* If test should be disabled, make sure to remove the "disabled_"-part of it from the test name *)
    TrimmedTestName := DELETE( STR := TrimmedTestName, LEN := LEN( STR := 'disabled_' ), POS := 1);
END_IF
(* 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;
        (* Check if a test with this name has already been called in this PLC cycle *)
            (* A test with this name already exists for this test suite and has already been called in this cycle.
            TestDuplicateNameTrigger[IteratorCounter](CLK := TRUE);
                TestInstancePath := F_RemoveInstancePathAndProjectNameFromTestInstancePath(TestInstancePath :=
                ErrorMessage := 'Test with name $'%s$' already exists in test suite $'';
                ErrorMessage := CONCAT(STR1 := ErrorMessage, STR2 := '$'');