79 lines
2.3 KiB
XML
79 lines
2.3 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<TcPlcObject Version="1.1.0.1">
|
|
<POU Name="FB_ValveTestTriggerTimoutOpen" Id="{3357d110-5f1d-4d49-b94c-6c4cc8f6b306}" SpecialFunc="None">
|
|
<Declaration><![CDATA[FUNCTION_BLOCK FB_ValveTestTriggerTimoutOpen EXTENDS TcUnit.FB_TestSuite
|
|
VAR
|
|
// valve feedback
|
|
_xOpenFeedback : BOOL := FALSE;
|
|
_xCloseFeedback : BOOL := FALSE;
|
|
|
|
// valve instance
|
|
_fbValveTimeout : FB_Valve('');
|
|
|
|
// valve hmi data
|
|
_stHMIValve : ST_HMI_VALVE_DATA;
|
|
|
|
// test timings
|
|
_fbTimeoutOpenTestTimer : TON := (PT := T#100MS);
|
|
_fbDelayFeedbackSignalTimer : TON := (PT := T#200MS);
|
|
|
|
// test finished
|
|
_xTestTimeoutFinished : BOOL;
|
|
|
|
// current test state
|
|
_iState : INT;
|
|
|
|
// valve config
|
|
_stValveConfig : ST_ValveConfig := (timTimeoutOpen := t#100MS, timTimeoutClose := T#0MS, xHasOpenFeedback := TRUE);
|
|
END_VAR
|
|
]]></Declaration>
|
|
<Implementation>
|
|
<ST><![CDATA[TestTriggerTimeoutOpen();]]></ST>
|
|
</Implementation>
|
|
<Method Name="TestTriggerTimeoutOpen" Id="{2b990579-8e3f-4c9d-9f7f-cb96af520f83}">
|
|
<Declaration><![CDATA[METHOD TestTriggerTimeoutOpen
|
|
VAR_INPUT
|
|
END_VAR
|
|
]]></Declaration>
|
|
<Implementation>
|
|
<ST><![CDATA[TEST('TestTriggerTimeoutOpen');
|
|
|
|
CASE _iState OF
|
|
0:
|
|
// request automatic open and start timers
|
|
_fbValveTimeout(xAutomaticOpen := TRUE, stHMIInterface := _stHMIValve);
|
|
_fbTimeoutOpenTestTimer.IN := TRUE;
|
|
_fbDelayFeedbackSignalTimer.IN := TRUE;
|
|
_fbValveTimeout.xInUnitTestMode := TRUE;
|
|
_iState := 10;
|
|
|
|
10:
|
|
// both feedback false and call valve block
|
|
_xOpenFeedback := FALSE;
|
|
_xCloseFeedback := FALSE;
|
|
_fbValveTimeout(xOpenFeedback := _xOpenFeedback, xCloseFeedback := _xCloseFeedback, xInUnitTestMode := TRUE, stHMIInterface := _stHMIValve, stValveConfig := _stValveConfig);
|
|
|
|
// test timeout after 200ms
|
|
IF _fbTimeoutOpenTestTimer.Q THEN
|
|
_iState := 20;
|
|
_fbDelayFeedbackSignalTimer.IN := FALSE;
|
|
_fbTimeoutOpenTestTimer.IN := FALSE;
|
|
END_IF
|
|
|
|
20:
|
|
// assert error
|
|
_xTestTimeoutFinished := TRUE;
|
|
AssertTrue(Condition := _fbValveTimeout.xError, Message := 'Valve did not throw an open timeout error');
|
|
END_CASE
|
|
|
|
// call timer
|
|
_fbTimeoutOpenTestTimer();
|
|
_fbDelayFeedbackSignalTimer();
|
|
|
|
IF _xTestTimeoutFinished THEN
|
|
TEST_FINISHED();
|
|
END_IF]]></ST>
|
|
</Implementation>
|
|
</Method>
|
|
</POU>
|
|
</TcPlcObject> |