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

Download this file

25 lines (22 with data), 4.8 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
IF xStart THEN
    coUnit.RUN_IN_SEQUENCE();
    TestSuiteResults := TestResultsProvider.GetTestSuiteResults();
    MaxTestSuites := TestSuiteResults.NumberOfTestSuites;
    xError := ( TestSuiteResults.NumberOfFailedTestCases >= 1 );
    Filepath := Concat('',gvl_param_counit.xUnitFilePath);
    TestResultsProvider : I_TestResults := GVL_coUnit.coUnitRunner.TestResults;
    TestSuiteResults : ST_TestSuiteResults;
    // Forge
    xReady : BOOL;
    xError : BOOL;
    szMessage : STRING;
    
    // Visu Vars
    xStart : BOOL := FALSE;
    xBusy : BOOL := FALSE;
   
    // Show tests results
    TestSuiteShown : INT := 1;
    TestShown : INT := 1;
    MaxTestSuites : INT := 1;
    MaxTests : INT := 1;
    Filepath : STRING;
END_VAR