[r384]: / trunk / Library / POUs / FB_TestSuite / AreAllTestsFinished / svnobj  Maximize  Restore  History

Download this file

26 lines (26 with data), 3.2 kB

Gx_lY!0…jüoŠ		^gāaÓ¼%System.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
:AreAllTestsFinished := FALSE;2IF NumberOfTests > 0 THEN@    AreAllTestsFinished := TRUE;ō    (* A test is considered finished if it is finished running (i.e. set by TEST_FINISHED) or if it is skipped/disabled *)d    FOR Counter := 1 TO GetNumberOfTests() BY 1 DOę        AreAllTestsFinished := AreAllTestsFinished AND (Tests[Counter].IsFinished() OR Tests[Counter].IsSkipped());    END_FOREND_IFŽ(* If we have been running at least one cycle and no tests are registered it means that this testsuite is emptyŠ   and doesn't contain any test cases. In that case, add a warning message and ignore this testsuite. *),GetCurrentTaskIndex();„CurrentCycleCount := GetCurrentTaskIndex.CurTaskInfo.dwCycleCount;hIF NumberOfTests = 0 AND CurrentCycleCount >= 1 THENInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}ģ(* A test is considered finished if it is finished running (i.e. set by TEST_FINISHED) or if it is skipped/disabled *)PMETHOD PUBLIC AreAllTestsFinished : BOOLVAR &    Counter : UINT;!6	CurrentCycleCount : DWORD;"END_VARŠŠŠEŠŠ	
­-ŚŠ-
ŠŠ	
­.ŚŠ-ŠŠ	
­/ŚŠ-ŠŠ	
­0ŚŠ-ŠŠ	
­1ŚŠ-ŠŠ	
­2ŚŠ-ŠŠ	
­3ŚŠ-ŠŠ	
­4ŚŠ-ŠŠ	
­5ŚŠ-ŠŠ	
­!ŚŠ-ŠŠ	
­#ŚŠ-ŠŠ	
­$ŚŠ-ŠŠ	
­7ŚŠ-ŠŠ	
­8ŚŠ-ŠŠ	
­DŚŠ-ŠŠ	
­9ŚŠ-ŠŠ	
­:ŚŠ-ŠŠ	
­EŚŠ-ŠŠEŠŠ	
­>ŚŠ-ŠŠ	
­ŚŠ-ŠŠ	
­;ŚŠ-ŠŠ	
­<ŚŠ- ŠŠ	
­=ŚŠ-!ŠŠ	
­ŚŠ-"