[r186]: / trunk / Library / POUs / FB_TestSuite / AllTestsFinished / svnobj  Maximize  Restore  History

Download this file

24 lines (24 with data), 2.5 kB

Gx_lÓ	!0…jüo’{¸ãÍ*5Ð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
4AllTestsFinished := FALSE;2IF NumberOfTests > 0 THEN:    AllTestsFinished := TRUE;d    FOR Counter := 1 TO GetNumberOfTests() BY 1 DOš        AllTestsFinished := AllTestsFinished AND Tests[Counter].IsFinished();    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.dwIECCycleCount;hIF NumberOfTests = 0 AND CurrentCycleCount >= 1 THENInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}JMETHOD PUBLIC AllTestsFinished : BOOLVAR&    Counter : UINT;6	CurrentCycleCount : DWORD; END_VARÐÐÐEÐÐ	
­ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­!ÚÐ-ÐÐ	
­#ÚÐ-ÐÐ	
­$ÚÐ-ÐÐ	
­%ÚÐ-ÐÐ	
­)ÚÐ-ÐÐ	
­&ÚÐ-ÐÐ	
­'ÚÐ-ÐÐ	
­ ÚÐ-ÐÐEÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­*ÚÐ-ÐÐ	
­ÚÐ-