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

Download this file

5 lines (5 with data), 5.4 kB

Gx_l"!0…jьo‘ЩёЕ	i<МYЎ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
longTagTextђ// Not entirely satisfied with this placement (maybe rewrite it to a FB)n// added this line of code which needs to run cyclicly XGVL_System._CurTaskInfo := GetCurTaskInfo();InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}®(* This function block is responsible for holding the internal state of the test suite.ґ   Every test suite can have one or more tests, and every test can do one or more asserts.*):{attribute 'call_after_init'}0{attribute 'reflection'}dFUNCTION_BLOCK FB_TestSuite IMPLEMENTS I_TestSuiteVAR>    {attribute 'instance-path'}0    {attribute 'noinit'}>    InstancePath : T_MaxString;      (* This is a interface-pointer to the child object that inherits this object!¶       in order for us to have a reference to calling the actual execution of the tests *) "Z    _RunnableTestSuite : I_RunnableTestSuite;#ј    (* We need to have access to specific information of the current task that this test suite$ё       is executed in. This is for instance necessary when we need to know whether a test is%ј       defined already. The definition of a test that is defined already is that we call on it&h       with the same name twice in the same cycle *)'T    GetCurrentTaskIndex : GetCurTaskInfo; (<    NumberOfTests : UINT := 0;)     Tests : ARRAY[1..GVL_Constants.MaxAmountOfTestsForEachTestSuite] OF FB_Test;*д    (* Rising trigger of whether we have already notified the user of that the test name pointed to by the current+B       position is a duplicate *),Д    TestDuplicateNameTrigger : ARRAY[1..GVL_Constants.MaxAmountOfTestsForEachTestSuite] OF R_TRIG;-ж    (* Last cycle count index for a specific test. Used to detect whether this test has already been defined in the.8       current test suite *)/ё    TestCycleCountIndex : ARRAY[1..GVL_Constants.MaxAmountOfTestsForEachTestSuite] OF UDINT;0END_VAR1"UniqueIdGenerator2363POULevel4L{8e575c5b-1d37-49c6-941b-5c0ec7874787}5Standard6 ChildObjectGuids78System.Collections.ArrayList8,AddAttributeSubsequent9boolРР-РР	E
РР
­$ЪР-РР
­#ЪР-РР
­ЪР-РР	E
РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­ЪР-РР
­	ЪР-РР
­
ЪР-РР
­ЪР-РР
­ЪР-РР
­
ЪР-РР
­ЪР-РР
­ЪР- РР
­ЪР-!РР
­ЪР-"РР
­ЪР-РР
­ЪР-#РР
­ЪР-$РР
­ЪР-%РР
­ЪР-&РР
­ЪР-'РР
­ЪР-РР
­ЪР-(РР
­ЪР-)РР
­ЪР-*РР
­ЪР-+РР
­ЪР-,РР
­ЪР--РР
­ЪР-.РР
­ ЪР-/РР
­ЪР-0Р1-2Р34-567Р89­