FB_PrimitiveTypes Function Block

Extends TcUnit.FB_TestSuite

This testsuite tests the different assert-functions for all the different data types in TwinCAT. For every data type at least two different tests have been defined: 1. One test that succeeds (Expected and actual are equal) 2. One test that fails (Expected and actual are false).

Methods

Test_ANY_Differ_DataType PRIVATE

Implementation

TEST('Test_ANY_Differ_DataType');

AssertEquals(Expected := a,
             Actual := b,
             Message := 'Values differ');

TEST_FINISHED();

Test_ANY_Equals PRIVATE

Implementation

TEST('Test_ANY_Equals');

AssertEquals(Expected := a,
             Actual := b,
             Message := 'Values differ');

TEST_FINISHED();

Test_BOOL_Differ PRIVATE

Implementation

TEST('Test_BOOL_Differ');

TCUNIT_ADSLOGSTR(msgCtrlMask := ADSLOG_MSGTYPE_ERROR,
                 msgFmtStr := 'This is just a string %s',
                 strArg := '2');

AssertEquals_BOOL(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_BOOL_Equals PRIVATE

Implementation

TEST('Test_BOOL_Equals');

TCUNIT_ADSLOGSTR(msgCtrlMask := ADSLOG_MSGTYPE_ERROR,
                 msgFmtStr := 'This is just a string %s',
                 strArg := '1');

AssertEquals_BOOL(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_BYTE_Differ PRIVATE

Implementation

TEST('Test_BYTE_Differ');

AssertEquals_BYTE(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_BYTE_Equals PRIVATE

Implementation

TEST('Test_BYTE_Equals');

AssertEquals_BYTE(Expected := a,
                  Actual := b,
                  Message := 'Values differ');
TEST_FINISHED();

Test_DATE_AND_TIME_Differ PRIVATE

Implementation

TEST('Test_DATE_AND_TIME_Differ');

AssertEquals_DATE_AND_TIME(Expected := a,
                           Actual := b,
                           Message := 'Values differ');

TEST_FINISHED();

Test_DATE_AND_TIME_Equals PRIVATE

Implementation

TEST('Test_DATE_AND_TIME_Equals');

AssertEquals_DATE_AND_TIME(Expected := a,
                           Actual := b,
                           Message := 'Values differ');

TEST_FINISHED();

Test_DATE_Differ PRIVATE

Implementation

TEST('Test_DATE_Differ');

AssertEquals_DATE(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_DATE_Equals PRIVATE

Implementation

TEST('Test_DATE_Equals');

AssertEquals_DATE(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_DINT_Differ PRIVATE

Implementation

TEST('Test_DINT_Differ');

AssertEquals_DINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_DINT_Equals PRIVATE

Implementation

TEST('Test_DINT_Equals');

AssertEquals_DINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_DWORD_Differ PRIVATE

Implementation

TEST('Test_DWORD_Differ');

TCUNIT_ADSLOGSTR(msgCtrlMask := ADSLOG_MSGTYPE_HINT,
                 msgFmtStr := 'This is just a string %s',
                 strArg := '4');

AssertEquals_DWORD(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_DWORD_Equals PRIVATE

Implementation

TEST('Test_DWORD_Equals');

TCUNIT_ADSLOGSTR(msgCtrlMask := ADSLOG_MSGTYPE_HINT,
                 msgFmtStr := 'This is just a string %s',
                 strArg := '3');

AssertEquals_DWORD(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_INT_Differ PRIVATE

Implementation

TEST('Test_INT_Differ');

AssertEquals_INT(Expected := a,
                 Actual := b,
                 Message := 'Values differ');

TEST_FINISHED();

Test_INT_Equals PRIVATE

Implementation

TEST('Test_INT_Equals');

AssertEquals_INT(Expected := a,
                 Actual := b,
                 Message := 'Values differ');

TEST_FINISHED();

Test_LINT_Differ PRIVATE

Implementation

TEST('Test_LINT_Differ');

AssertEquals_LINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_LINT_Equals PRIVATE

Implementation

TEST('Test_LINT_Equals');

AssertEquals_LINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_LREAL_Differ PRIVATE

Implementation

TEST('Test_LREAL_Differ');

AssertEquals_LREAL(Expected := a,
                   Actual := b,
                   Delta := 0.1,
                   Message := 'Values differ');

TEST_FINISHED();

Test_LREAL_Equals PRIVATE

Implementation

TEST('Test_LREAL_Equals');

AssertEquals_LREAL(Expected := a,
                   Actual := b,
                   Delta := 0.2,
                   Message := 'Values differ');

TEST_FINISHED();

Test_LTIME_Differ PRIVATE

Implementation

TEST('Test_LTIME_Differ');

AssertEquals_LTIME(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_LTIME_Equals PRIVATE

Implementation

TEST('Test_LTIME_Equals');

AssertEquals_LTIME(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_LWORD_Differ PRIVATE

Implementation

TEST('Test_LWORD_Differ');

AssertEquals_LWORD(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_LWORD_Equals PRIVATE

Implementation

TEST('Test_LWORD_Equals');

AssertEquals_LWORD(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_REAL_Differ PRIVATE

Implementation

TEST('Test_REAL_Differ');

TCUNIT_ADSLOGSTR(msgCtrlMask := ADSLOG_MSGTYPE_WARN,
                 msgFmtStr := 'This is just a string %s',
                 strArg := '6');

AssertEquals_REAL(Expected := a,
                  Actual := b,
                  Delta := 0.05,
                  Message := 'Values differ');

TEST_FINISHED();

Test_REAL_Equals PRIVATE

Implementation

TEST('Test_REAL_Equals');

TCUNIT_ADSLOGSTR(msgCtrlMask := ADSLOG_MSGTYPE_WARN,
                 msgFmtStr := 'This is just a string %s',
                 strArg := '5');

AssertEquals_REAL(Expected := a,
                  Actual := b,
                  Delta := 0.1,
                  Message := 'Values differ');

TEST_FINISHED();

Test_SINT_Differ PRIVATE

Implementation

TEST('Test_SINT_Differ');

AssertEquals_SINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_SINT_Equals PRIVATE

Implementation

TEST('Test_SINT_Equals');

AssertEquals_SINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_STRING_Differ PRIVATE

Implementation

TEST('Test_STRING_Differ');

AssertEquals_STRING(Expected := a,
                    Actual := b,
                    Message := 'Values differ');

TEST_FINISHED();

Test_STRING_Differ2 PRIVATE

Implementation

TEST('Test_STRING_Differ2');

AssertEquals_STRING(Expected := a,
                    Actual := b,
                    Message := 'Values differ');

TEST_FINISHED();

Test_STRING_Differ3 PRIVATE

Implementation

TEST('Test_STRING_Differ3');

AssertEquals_STRING(Expected := a,
                    Actual := b,
                    Message := 'Values differ');

TEST_FINISHED();

Test_STRING_Equals PRIVATE

Implementation

TEST('Test_STRING_Equals');

AssertEquals_STRING(Expected := a,
                    Actual := b,
                    Message := 'Values differ');

TEST_FINISHED();

Test_TIME_Differ PRIVATE

Implementation

TEST('Test_TIME_Differ');

AssertEquals_TIME(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_TIME_Equals PRIVATE

Implementation

TEST('Test_TIME_Equals');

AssertEquals_TIME(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_TIME_OF_DAY_Differ PRIVATE

Implementation

TEST('Test_TIME_OF_DAY_Differ');

AssertEquals_TIME_OF_DAY(Expected := a,
                         Actual := b,
                         Message := 'Values differ');

TEST_FINISHED();

Test_TIME_OF_DAY_Equals PRIVATE

Implementation

TEST('Test_TIME_OF_DAY_Equals');

AssertEquals_TIME_OF_DAY(Expected := a,
                         Actual := b,
                         Message := 'Values differ');

TEST_FINISHED();

Test_UDINT_Differ PRIVATE

Implementation

TEST('Test_UDINT_Differ');

AssertEquals_UDINT(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_UDINT_Equals PRIVATE

Implementation

TEST('Test_UDINT_Equals');

AssertEquals_UDINT(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_UINT_Differ PRIVATE

Implementation

TEST('Test_UINT_Differ');

AssertEquals_UINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_UINT_Equals PRIVATE

Implementation

TEST('Test_UINT_Equals');

AssertEquals_UINT(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_ULINT_Differ PRIVATE

Implementation

TEST('Test_ULINT_Differ');

AssertEquals_ULINT(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_ULINT_Equals PRIVATE

Implementation

TEST('Test_ULINT_Equals');

AssertEquals_ULINT(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_USINT_Differ PRIVATE

Implementation

TEST('Test_USINT_Differ');

AssertEquals_USINT(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_USINT_Equals PRIVATE

Implementation

TEST('Test_USINT_Equals');

AssertEquals_USINT(Expected := a,
                   Actual := b,
                   Message := 'Values differ');

TEST_FINISHED();

Test_WORD_Differ PRIVATE

Implementation

TEST('Test_WORD_Differ');

AssertEquals_WORD(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_WORD_Equals PRIVATE

Implementation

TEST('Test_WORD_Equals');

AssertEquals_WORD(Expected := a,
                  Actual := b,
                  Message := 'Values differ');

TEST_FINISHED();

Test_WSTRING_Differ PRIVATE

Implementation

TEST('Test_WSTRING_Differ');

AssertEquals_WSTRING(Expected := a,
                     Actual := b,
                     Message := 'Values differ');

TEST_FINISHED();

Test_WSTRING_Equals PRIVATE

Implementation

TEST('Test_WSTRING_Equals');

AssertEquals_WSTRING(Expected := a,
                     Actual := b,
                     Message := 'Values differ');

TEST_FINISHED();

Used by

PRG_TEST

Declaration source

(*
    This testsuite tests the different assert-functions for all the different data types in TwinCAT.
    For every data type at least two different tests have been defined:
        1. One test that succeeds (Expected and actual are equal)
        2. One test that fails (Expected and actual are false).
*)
FUNCTION_BLOCK FB_PrimitiveTypes EXTENDS TcUnit.FB_TestSuite