Mehrfachtestbaustein implementieren

Deklarieren Sie eine Instanz des Prüflings im Deklarationsteil des Testbaustein. Das Beispiel testet einen CTU-Standardbaustein.

{attribute 'test':='multitest'}
{attribute 'testcasetimeout':='15000'}
FUNCTION_BLOCK CTU_TestCases EXTENDS TM.BaseMultiTest
VAR_INPUT
END_VAR
VAR_OUTPUT
END_VAR
VAR
	counter : CTU;	// testee instance
	cycleCounter : INT; // independant test control variable
END_VAR

Initialisieren Sie den Prüfling im Implementierungsteil der Methode prvStart. Das Beispiel initialisiert den CTU per Reset und initialisiert gegebenenfalls Variablen, die für den Testablauf benötigt werden. Die prvStart-Methode wird einmalig vor prvCyclicAction aufgerufen.

SUPER^.prvStart();  // mandatory - don't change

// Initialize the testee
counter(CU:=FALSE, RESET:=TRUE);	// reset the counter; note: initialization per test case must be performed in prvCyclicAction

// Initialize test control variable for first test case
cycleCounter := 0;

Rufen Sie den Prüfling auf und prüfen Sie dessen Ergebnisses in der Methode prvCyclicAction. Die Methode prvCyclicAction wird solange aufgerufen, bis xDone auf TRUE gesetzt wurde. Der Prüfling kann somit je Testfall über mehrere SPS-Zyklen aufgerufen werden. Das folgende Beispiel implementiert nur einen Testfall (CASE 0), weitere Testfälle können jedoch nach diesem Schema einfach hinzugefügt werden.

SUPER^.prvCyclicAction();   // mandatory - dont' change
 
CASE diTestCaseIndex OF
    0:	// test case #0; add test cases as new CASEs
        IF xGetTestInfo THEN    // initializate test case
            //  define mandatory test case information
            wsTestCaseName := "Count from 0 to 5";
            wsTestCaseCategories := "CTU";
            diTestCaseTimeout := 500;
             
            xDone := TRUE;  // signal test case initialization done
        ELSE
			IF (cycleCounter = 0) THEN
				// prepare test case
				counter(CU:=FALSE, RESET:=TRUE, PV:=5);	
	
			// stimulate testee as long as we expect: 5 rising edges to count to 5 equals minimum 10 cycles
			ELSIF (cycleCounter < 10) THEN 
				// check: counter limit not reached yet
				TM.Assert_Bool_IsFalse(THIS^, counter.Q, "Counter signaled limit reached prematurely");
				TM.Assert_Word_Less(THIS^, 5, counter.CV, "Counter reached limit unexpectedly");	
			
				counter(CU:= (NOT counter.CU), RESET:=FALSE);	// Trigger counter with rising edges
				
				xDone := FALSE;   // signal test still running
			ELSE
				// check: counter reached limit
				TM.Assert_Bool_IsTrue(THIS^, counter.Q, "Counter did not signal limit reached");
				TM.Assert_Word_Equal(THIS^, 5, counter.CV, "Counter did not reach limit");
				 
				xDone := TRUE;    // mandatory: signal test completed
			END_IF
			
			IF xDone OR xError THEN
				cycleCounter := 0;	// clean up for next test case
			ELSE
				cycleCounter := cycleCounter + 1;	// count cycles	
			END_IF
        END_IF
    ELSE
        IF diTestCaseIndex < 0 THEN  // mandatory, signal number of test cases, if called with (diTestCaseIndex < 0)
            diTestCaseCount := 1;
            xDone := TRUE;
        ELSE    // mandatory, don't remove: fail for invalid test case index
            wsInfo := "Invalid test case index";
            iError := 2;
        END_IF
END_CASE

Eine Deinitialisierung des Tests könnte in der Methode prvResetOutputs stattfinden, wird aber in diesem Beispiel nicht benötigt. Löschen Sie die Methode.

Es muss kein besonderer Code ausgeführt werden, wenn der Test in einen Timeout läuft. Löschen Sie die Methode prvAbort.