[r303]: / trunk / Library / POUs / FB_TestResults / svnobj  Maximize  Restore  History

Download this file

4 lines (4 with data), 11.9 kB

Gx_la.!0…jüo('r>¹ÎpSystem.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
longTagTextx(* The body of the function block stores the test results *)ÞIF StoringTestSuiteResultNumber <= GVL_CfUnit.NumberOfInitializedTestSuites AND NOT StoredTestSuiteResults THENî    StoringTestSuiteTrigger(CLK := GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.AreAllTestsFinished());J    IF StoringTestSuiteTrigger.Q THENž        (* Remove everything except the program name + "." + test suite name *)è        TestSuiteName := F_RemoveInstancePathAndProjectNameFromTestInstancePath(TestInstancePath := GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.GetInstancePath());T        (* Store test suite name and ID *)š        TestSuiteResults[StoringTestSuiteResultNumber].Name := TestSuiteName;È        TestSuiteResults[StoringTestSuiteResultNumber].Identity := StoringTestSuiteResultNumber - 1;b        (* Store number of tests in test suite *)°        TestSuiteResults[StoringTestSuiteResultNumber].NumberOfTests := GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.GetNumberOfTests();p        (* Store number of failed tests in test suite *)È        TestSuiteResults[StoringTestSuiteResultNumber].NumberOfFailedTests := GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.GetNumberOfFailedTests();n        (* Iterate and print all tests in test suite *)†        FOR TestsInTestSuiteCounter := 1 TO GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.GetNumberOfTests() BY 1 DO Œ            TestToBeStored := GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.GetTestByPosition(TestsInTestSuiteCounter);!B            (* Store test name *)"’            TestSuiteResults[StoringTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestName := TestToBeStored.GetName();#N            (* Store test class name *)$ø            TestSuiteResults[StoringTestSuiteResultNumber].TestCaseResults[TestsInTestSuiteCounter].TestClassName := F_RemoveInstancePathAndProjectNameFromTestInstancePath(GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.GetInstancePath());%		END_FOR&®        IF StoringTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites THEN'V            StoredTestSuiteResults := TRUE;(        ELSE)š            StoringTestSuiteResultNumber := StoringTestSuiteResultNumber + 1;*        END_IF+~        StoringTestSuiteTrigger(CLK := FALSE); // Reset trigger,    END_IF-END_IF.œ(* If all test suites have finished running, store the general test results *)/ŽIF StoringTestSuiteResultNumber = GVL_CfUnit.NumberOfInitializedTestSuites AND GVL_CfUnit.TestSuiteAddresses[StoringTestSuiteResultNumber]^.AreAllTestsFinished() AND NOT StoredGeneralTestResults THEN0†    NumberOfTestSuites := GVL_CfUnit.NumberOfInitializedTestSuites;1È    FOR GeneralTestResultsTestSuitesCounter := 1 TO GVL_CfUnit.NumberOfInitializedTestSuites BY 1 DO2ê        NumberOfTestCases := NumberOfTestCases + TestSuiteResults[GeneralTestResultsTestSuitesCounter].NumberOfTests;3®        NumberOfSuccessfulTestCases := NumberOfSuccessfulTestCases + (TestSuiteResults[GeneralTestResultsTestSuitesCounter].NumberOfTests - TestSuiteResults[GeneralTestResultsTestSuitesCounter].NumberOfFailedTests);4Ž        NumberOfFailedTestCases := NumberOfFailedTestCases + TestSuiteResults[GeneralTestResultsTestSuitesCounter].NumberOfFailedTests;5	END_FOR6J    StoredGeneralTestResults := TRUE;7Interface8L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}9Ä(* This function block holds results of the complete test run, i.e. results for all test suites *)::FUNCTION_BLOCK FB_TestResults;VAR<<    (* General test results *)=‚    NumberOfTestSuites : UINT; // The total number of test suites>ª    NumberOfTestCases : UINT; // The total number of test cases (for all test suites)?Ò    NumberOfSuccessfulTestCases : UINT; // The total number of test cases that had all ASSERTS successful@Ò    NumberOfFailedTestCases : UINT; // The total number of test cases that had at least one ASSERT failedA    Bl    (* Test results for each individiual test suite *)C¼    TestSuiteResults : ARRAY[1..GVL_Param_CfUnit.MaxNumberOfTestSuites] OF ST_TestSuiteResult;D0    (* Misc variables *)E¦    StoringTestSuiteResultNumber : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestSuites);FJ    StoringTestSuiteTrigger : R_TRIG;GD    StoredTestSuiteResults : BOOL;HH    StoredGeneralTestResults : BOOL;IEND_VARJVAR_TEMPK@    TestSuiteName : T_MaxString;L6    TestName : T_MaxString;M²    TestsInTestSuiteCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestsForEachTestSuite);N:    TestToBeStored : FB_Test;O´    GeneralTestResultsTestSuitesCounter : UINT(1..GVL_Param_CfUnit.MaxNumberOfTestSuites);P"UniqueIdGeneratorQ207RPOULevelSL{8e575c5b-1d37-49c6-941b-5c0ec7874787}TStandardU ChildObjectGuidsV8System.Collections.ArrayListW,AddAttributeSubsequentXboolÐÐ-ÐÐ	E
.ÐÐ
­	ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­bÚÐ-ÐÐ
­aÚÐ-ÐÐ
­XÚÐ-ÐÐ
­\ÚÐ-ÐÐ
­(ÚÐ-ÐÐ
­dÚÐ-ÐÐ
­eÚÐ-ÐÐ
­fÚÐ-ÐÐ
­gÚÐ-ÐÐ
­cÚÐ-ÐÐ
­=ÚÐ-ÐÐ
­>ÚÐ-ÐÐ
­?ÚÐ-ÐÐ
­@ÚÐ- ÐÐ
­AÚÐ-!ÐÐ
­iÚÐ-"ÐÐ
­jÚÐ-ÐÐ
­EÚÐ-#ÐÐ
­kÚÐ-$ÐÐ
­JÚÐ-%ÐÐ
­–ÚÐ-ÐÐ
­²ÚÐ-&ÐÐ
­´ÚÐ-'ÐÐ
­µÚÐ-(ÐÐ
­LÚÐ-)ÐÐ
­±ÚÐ-*ÐÐ
­MÚÐ-+ÐÐ
­NÚÐ-,ÐÐ
­ÚÐ--ÐÐ
­qÚÐ-ÐÐ
­pÚÐ-.ÐÐ
­rÚÐ-/ÐÐ
­xÚÐ-0ÐÐ
­sÚÐ-1ÐÐ
­vÚÐ-2ÐÐ
­yÚÐ-3ÐÐ
­zÚÐ-4ÐÐ
­wÚÐ-5ÐÐ
­|ÚÐ-6ÐÐ
­tÚÐ--Ð78Ð	E
ÐÐ
­¶ÚÐ-9ÐÐ
­·ÚÐ-:ÐÐ
­¸ÚÐ-;ÐÐ
­¹ÚÐ-<ÐÐ
­ºÚÐ-=ÐÐ
­»ÚÐ->ÐÐ
­¼ÚÐ-?ÐÐ
­½ÚÐ-@ÐÐ
­¾ÚÐ-AÐÐ
­¿ÚÐ-BÐÐ
­ÀÚÐ-CÐÐ
­ÁÚÐ-AÐÐ
­ÂÚÐ-DÐÐ
­ÃÚÐ-EÐÐ
­ÄÚÐ-FÐÐ
­ÅÚÐ-GÐÐ
­ÆÚÐ-HÐÐ
­ÇÚÐ-IÐÐ
­ÈÚÐ-JÐÐ
­ÉÚÐ-KÐÐ
­ÊÚÐ-LÐÐ
­ËÚÐ-AÐÐ
­ÌÚÐ-MÐÐ
­ÍÚÐ-AÐÐ
­ÎÚÐ-NÐÐ
­ÏÚÐ-OÐÐ
­ÚÐ-IÐP-QÐRS-TUVÐWX­