FB_AssertEveryFailedTestTwiceArrayVersion Function Block

Extends TcUnit.FB_TestSuite

In this testsuite we are running the same testcase over two cycles, and thus calling every assert method twice. This is in order to verify that we don't print every FAILED assert twice. With this version we are doing it with arrays.

Variables

Name	Type	Default	Description
`AssertCount`	USINT	`0`

Methods

TwiceAssertCall_Arrays PRIVATE

Implementation

TEST('TwiceAssertCall_Arrays');

AssertArrayEquals_BOOL(Expecteds := aBOOL,
                       Actuals := bBOOL,
                       Message := 'Not equal BOOL');

AssertArrayEquals_BYTE(Expecteds := aBYTE,
                       Actuals := bBYTE,
                       Message := 'Not equal BYTE');

AssertArrayEquals_DINT(Expecteds := aDINT,
                       Actuals := bDINT,
                       Message := 'Not equal DINT');

AssertArrayEquals_DWORD(Expecteds := aDWORD,
                        Actuals := bDWORD,
                        Message := 'Not equal DWORD');

AssertArrayEquals_INT(Expecteds := aINT,
                      Actuals := bINT,
                      Message := 'Not equal INT');

AssertArrayEquals_LINT(Expecteds := aLINT,
                       Actuals := bLINT,
                       Message := 'Not equal LINT');

AssertArrayEquals_LREAL(Expecteds := aLREAL,
                        Actuals := bLREAL,
                        Delta := 0.1,
                        Message := 'Not equal LREAL');

AssertArray2dEquals_LREAL(Expecteds := aLREAL2d,
                          Actuals := bLREAL2d,
                          Delta := 0.1,
                          Message := 'Not equal LREAL2D');

AssertArray3dEquals_LREAL(Expecteds := aLREAL3d,
                          Actuals := bLREAL3d,
                          Delta := 0.1,
                          Message := 'Not equal LREAL3D');

AssertArrayEquals_LWORD(Expecteds := aLWORD,
                        Actuals := bLWORD,
                        Message := 'Not equal LWORD');

AssertArrayEquals_SINT(Expecteds := aSINT,
                       Actuals := bSINT,
                       Message := 'Not equal SINT');

AssertArrayEquals_REAL(Expecteds := aREAL,
                       Actuals := bREAL,
                       Delta := 0.00001,
                       Message := 'Not equal REAL');

AssertArray2dEquals_REAL(Expecteds := aREAL2d,
                         Actuals := bREAL2d,
                         Delta := 0.0001,
                         Message := 'Not equal REAL2D');

AssertArray3dEquals_REAL(Expecteds := aREAL3d,
                         Actuals := bREAL3d,
                         Delta := 0.01,
                         Message := 'Not equal REAL3D');

AssertArrayEquals_UDINT(Expecteds := aUDINT,
                        Actuals := bUDINT,
                        Message := 'Not equal UDINT');

AssertArrayEquals_UINT(Expecteds := aUINT,
                       Actuals := bUINT,
                       Message := 'Not equal UINT');

AssertArrayEquals_ULINT(Expecteds := aULINT,
                        Actuals := bULINT,
                        Message := 'Not equal ULINT');

AssertArrayEquals_USINT(Expecteds := aUSINT,
                        Actuals := bUSINT,
                        Message := 'Not equal USINT');

AssertArrayEquals_WORD(Expecteds := aWORD,
                       Actuals := bWORD,
                       Message := 'Not equal WORD');

AssertCount := AssertCount + 1;
IF AssertCount = 2 THEN
    TEST_FINISHED();
END_IF

Used by

PRG_TEST

Declaration source

(*
    In this testsuite we are running the same testcase over two cycles, and thus calling
    every assert method twice. This is in order to verify that we don't print every FAILED assert twice.
    With this version we are doing it with arrays.
*)
FUNCTION_BLOCK FB_AssertEveryFailedTestTwiceArrayVersion EXTENDS TcUnit.FB_TestSuite
VAR
    AssertCount : USINT := 0;
END_VAR