[r247]: / trunk / Library / POUs / Functions / TEST / svnobj  Maximize  Restore  History

Download this file

5 lines (5 with data), 3.8 kB

Gx_lŁ!0…jüoŇNTmZ©¤ź·}System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument	L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagTextl(* Mark this test as the current one being executed *)dGVL_CfUnit.CurrentTestNameBeingCalled := TestName;¦(* Check if combination of address for the test suite and test name already exists.Š   For every test suite the name of the test case needs to be unique.    If a test with this name already exists, don't add it to the available tests.\   Otherwise, add it to the available tests *)¨FOR CounterTestSuiteAddress := 1 TO GVL_CfUnit.NumberOfInitializedTestSuites BY 1 DO¦    (* Look for the test suite by comparing to the one that is currently running *)Ö    IF GVL_CfUnit.TestSuiteAddresses[CounterTestSuiteAddress] = GVL_CfUnit.CurrentTestSuiteBeingCalled THENľ        GVL_CfUnit.TestSuiteAddresses[CounterTestSuiteAddress]^.AddTest( TestName := TestName);        RETURN;    END_IFEND_FORInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94} (*!ľ    This function declares a new test (if it has not been already declared in an earlier cycle)"*)#FUNCTION TEST$VAR_INPUT%6    TestName : T_MaxString;&END_VAR'VAR(F    CounterTestSuiteAddress : UINT;)6    CounterTestName : UINT;*"UniqueIdGenerator+34,POULevel-L{8e575c5b-1d37-49c6-941b-5c0ec7874787}.Standard/ ChildObjectGuids08System.Collections.ArrayList1,AddAttributeSubsequent2boolĐĐ-ĐĐ	E
ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­	ÚĐ-ĐĐ
­
ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ÚĐ-ĐĐ
­ ÚĐ-ĐĐ
­ÚĐ-ĐĐ	E
ĐĐ
­!ÚĐ- ĐĐ
­"ÚĐ-!ĐĐ
­ÚĐ-"ĐĐ
­ÚĐ-#ĐĐ
­ÚĐ-$ĐĐ
­ÚĐ-%ĐĐ
­ÚĐ-&ĐĐ
­ÚĐ-'ĐĐ
­ÚĐ-(ĐĐ
­ÚĐ-)ĐĐ
­ÚĐ-&Đ*-+Đ,--./0Đ12­