[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­