[r386]: / trunk / Library / POUs / FB_TestSuite / SetTestFinished / svnobj  Maximize  Restore  History

Download this file

13 lines (12 with data), 2.3 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
(* 
	Marks the test as finished in this testsuite.
IF NumberOfTests > 0 THEN
    FOR IteratorCounter := 1 TO NumberOfTests BY 1 DO
        IF Tests[IteratorCounter].GetName() = TestName THEN
            Tests[IteratorCounter].SetFinished();
			SetTestFinished := TRUE;
			RETURN;
        END_IF
    SetTestFinished := FALSE;
    END_FOR
END_IF