[r922]: / branches / develop / mqttsparkplug / mqttsparkplug-unittest / Device / Plc Logic / application / PRG_RUNTEST / svnobj  Maximize  Restore  History

Download this file

14 lines (13 with data), 4.6 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
PROGRAM PRG_RUNTEST
VAR
    // Testsuites under test via coUnit.RUN_IN_SEQUENCE();
    FB_WSTRINGBuilder_TestSuite : FB_WSTRINGBuilder_TestSuite;
    FB_Functions_TestSuite : FB_Functions_TestSuite;
    // Testresults in local program
IF xStart THEN
    coUnit.RUN_IN_SEQUENCE();
    TestSuiteResults := TestResultsProvider.GetTestSuiteResults();
    MaxTestSuites := TestSuiteResults.NumberOfTestSuites;
    xError := ( TestSuiteResults.NumberOfFailedTestCases >= 1 );
    szMessage := Concat('Test Finished, the report available at: ',Filepath);
END_IF;