0.0001 THEN AssertTrue(FALSE, 'Project cycle time not set to 10ms!'); ELSE _fbPT1( lrInput := 0, timT := T#10MS, lrOutput => ); // Project should be set to 10ms cycle time for this test to work AssertEquals_LREAL(Expected := 10.0, Actual := _fbPT1.CycleTime, Delta := 0.01, 'Cycle time is not equal to project cycle time (10ms)'); END_IF TEST_FINISHED();]]> _lrOutput); // set error message according to current step _sMessage := CONCAT(_sMessage, TO_STRING(_iCounterStepPT1_15_2345)); _sMessage := CONCAT(_sMessage, ' did not return expected value.'); // check values of current step AssertEquals_LREAL(Expected := _alrExpectedValuesStepPT1_15_2345[_iCounterStepPT1_15_2345], Actual := _lrOutput, Delta := lrDelta, _sMessage); _iCounterStepPT1_15_2345 := _iCounterStepPT1_15_2345 + 1; // finish test after 20 cycles IF _iCounterStepPT1_15_2345 > 20 THEN TEST_FINISHED(); END_IF]]> _lrOutput); // set error message according to current step _sMessage := CONCAT(_sMessage, TO_STRING(_iCounterStepPT1_168)); _sMessage := CONCAT(_sMessage, ' did not return expected value.'); // check values of current step AssertEquals_LREAL(Expected := _alrExpectedValuesStepPT1_168[_iCounterStepPT1_168], Actual := _lrOutput, Delta := lrDelta, _sMessage); _iCounterStepPT1_168 := _iCounterStepPT1_168 + 1; // finish test after 20 cycles IF _iCounterStepPT1_168 > 20 THEN TEST_FINISHED(); END_IF]]> _lrOutput); // set error message according to current step _sMessage := CONCAT(_sMessage, TO_STRING(_iCounterStepPT1_50)); _sMessage := CONCAT(_sMessage, ' did not return expected value.'); // check values of current step AssertEquals_LREAL(Expected := _alrExpectedValuesStepPT1_50[_iCounterStepPT1_50], Actual := _lrOutput, Delta := lrDelta, _sMessage); _iCounterStepPT1_50 := _iCounterStepPT1_50 + 1; // finish test after 20 cycles IF _iCounterStepPT1_50 > 20 THEN TEST_FINISHED(); END_IF]]>