Added more components

PLC/POUs/Unittests/ValveTests/FB_ValveTestTriggerTimoutOpen.TcPOU

@@ -0,0 +1,79 @@
+<?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>