FB_AnyToUnionValue Function Block

Tests the free function F_AnyToUnionValue.

Variables

Name	Type	Default	Description
`aBit`	BIT	`1`	Only structures and function blocks can have BIT defined

Methods

Test_BIT PRIVATE

Implementation

TEST('Test_BIT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(aBit), AnyTypeClass := IBaseLibrary.TYPE_BIT, AnyValue := ADR(aBit));

AssertEquals(Expected := aBit,
             Actual := result.bitExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_BOOL PRIVATE

Implementation

TEST('Test_BOOL');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_BOOL, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.boolExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_BYTE PRIVATE

Implementation

TEST('Test_BYTE');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_BYTE, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.byteExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_DATE PRIVATE

Implementation

TEST('Test_DATE');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_DATE, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.dateExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_DATE_AND_TIME PRIVATE

Implementation

TEST('Test_DATE_AND_TIME');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_DATEANDTIME, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.dateandtimeExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_DINT PRIVATE

Implementation

TEST('Test_DINT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_DINT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.dintExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_DWORD PRIVATE

Implementation

TEST('Test_DWORD');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_DWORD, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.dwordExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_INT PRIVATE

Implementation

TEST('Test_INT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_INT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.intExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_LINT PRIVATE

Implementation

TEST('Test_LINT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_LINT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.lintExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_LREAL PRIVATE

Implementation

TEST('Test_LREAL');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_LREAL, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.lrealExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_LTIME PRIVATE

Implementation

TEST('Test_LTIME');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_LTIME, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.ltimeExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_LWORD PRIVATE

Implementation

TEST('Test_LWORD');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_LWORD, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.lwordExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_REAL PRIVATE

Implementation

TEST('Test_REAL');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_REAL, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.realExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_SINT PRIVATE

Implementation

TEST('Test_SINT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_SINT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.sintExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_STRING PRIVATE

Implementation

TEST('Test_STRING');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_STRING, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.stringExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_STRING_2 PRIVATE

Implementation

TEST('Test_STRING_2');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_STRING, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.stringExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_TIME PRIVATE

Implementation

TEST('Test_TIME');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_TIME, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.timeExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_TIME_OF_DAY PRIVATE

Implementation

TEST('Test_TIME_OF_DAY');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_TIMEOFDAY, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.timeofdayExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_UDINT PRIVATE

Implementation

TEST('Test_UDINT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_UDINT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.udintExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_UINT PRIVATE

Implementation

TEST('Test_UINT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_UINT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.uintExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_ULINT PRIVATE

Implementation

TEST('TEST_ULINT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_ULINT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.ulintExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_USINT PRIVATE

Implementation

TEST('Test_USINT');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_USINT, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.usintExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_WORD PRIVATE

Implementation

TEST('Test_WORD');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_WORD, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.wordExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Test_WSTRING PRIVATE

Implementation

TEST('Test_WSTRING');

Result := TcUnit.F_AnyToUnionValue(AnySize := SIZEOF(a), AnyTypeClass := IBaseLibrary.TYPE_WSTRING, AnyValue := ADR(a));

AssertEquals(Expected := a,
             Actual := result.wstringExpectedOrActual,
             Message := 'Values differ');

TEST_FINISHED();

Used by

PRG_TEST

Declaration source

(*
    Tests the free function F_AnyToUnionValue.
*)
FUNCTION_BLOCK FB_AnyToUnionValue EXTENDS TcUnit.FB_TestSuite
VAR
    aBit : BIT := 1; // Only structures and function blocks can have BIT defined
END_VAR