FB_WriteProtectedFunctions  Function Block

TEST('Test_WRITE_PROTECTED_BOOL');

WRITE_PROTECTED_BOOL(ADR(ProtectedVariables.InputBOOL), TRUE);
AssertEquals_BOOL(TRUE, ProtectedVariables.InputBOOL, 'Overwriting protected InputBOOL');

WRITE_PROTECTED_BOOL(ADR(ProtectedVariables.VarBOOL), TRUE);
AssertEquals_BOOL(TRUE, ProtectedVariables.VarBOOL, 'Overwriting protected VarBOOL');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_BYTE');

WRITE_PROTECTED_BYTE(ADR(ProtectedVariables.InputBYTE), 1);
AssertEquals_BYTE(1, ProtectedVariables.InputBYTE, 'Overwriting protected InputBYTE');

WRITE_PROTECTED_BYTE(ADR(ProtectedVariables.VarBYTE), 1);
AssertEquals_BYTE(1, ProtectedVariables.VarBYTE, 'Overwriting protected VarBYTE');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_DATE');

WRITE_PROTECTED_DATE(ADR(ProtectedVariables.InputDATE), D#2000-01-01);
AssertEquals_DATE(D#2000-01-01, ProtectedVariables.InputDATE, 'Overwriting protected InputDATE');

WRITE_PROTECTED_DATE(ADR(ProtectedVariables.VarDATE), D#2000-01-01);
AssertEquals_DATE(D#2000-01-01, ProtectedVariables.VarDATE, 'Overwriting protected VarDATE');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_DATE_AND_TIME');

WRITE_PROTECTED_DATE_AND_TIME(ADR(ProtectedVariables.InputDATE_AND_TIME), DT#2000-01-01-00:00);
AssertEquals_DATE_AND_TIME(DT#2000-01-01-00:00, ProtectedVariables.InputDATE_AND_TIME, 'Overwriting protected InputDATE_AND_TIME');

WRITE_PROTECTED_DATE_AND_TIME(ADR(ProtectedVariables.VarDATE_AND_TIME), DT#2000-01-01-00:00);
AssertEquals_DATE_AND_TIME(DT#2000-01-01-00:00, ProtectedVariables.VarDATE_AND_TIME, 'Overwriting protected VarDATE_AND_TIME');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_DINT');

WRITE_PROTECTED_DINT(ADR(ProtectedVariables.InputDINT), 1);
AssertEquals_DINT(1, ProtectedVariables.InputDINT, 'Overwriting protected InputDINT');

WRITE_PROTECTED_DINT(ADR(ProtectedVariables.VarDINT), 1);
AssertEquals_DINT(1, ProtectedVariables.VarDINT, 'Overwriting protected VarDINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_DWORD');

WRITE_PROTECTED_DWORD(ADR(ProtectedVariables.InputDWORD), 1);
AssertEquals_DWORD(1, ProtectedVariables.InputDWORD, 'Overwriting protected InputDWORD');

WRITE_PROTECTED_DWORD(ADR(ProtectedVariables.VarDWORD), 1);
AssertEquals_DWORD(1, ProtectedVariables.VarDWORD, 'Overwriting protected VarDWORD');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_INT');

WRITE_PROTECTED_INT(ADR(ProtectedVariables.InputINT), 1);
AssertEquals_INT(1, ProtectedVariables.InputINT, 'Overwriting protected InputINT');

WRITE_PROTECTED_INT(ADR(ProtectedVariables.VarINT), 1);
AssertEquals_INT(1, ProtectedVariables.VarINT, 'Overwriting protected VarINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_LINT');

WRITE_PROTECTED_LINT(ADR(ProtectedVariables.InputLINT), 5);
AssertEquals_LINT(5, ProtectedVariables.InputLINT, 'Overwriting protected InputLINT');

WRITE_PROTECTED_LINT(ADR(ProtectedVariables.VarLINT), 5);
AssertEquals_LINT(5, ProtectedVariables.VarLINT, 'Overwriting protected VarLINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_LREAL');

WRITE_PROTECTED_LREAL(ADR(ProtectedVariables.InputLREAL), 1);
AssertEquals_LREAL(1, ProtectedVariables.InputLREAL, 0, 'Overwriting protected InputLREAL');

WRITE_PROTECTED_LREAL(ADR(ProtectedVariables.VarLREAL), 1);
AssertEquals_LREAL(1, ProtectedVariables.VarLREAL, 0, 'Overwriting protected VarLREAL');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_LWORD');

WRITE_PROTECTED_LWORD(ADR(ProtectedVariables.InputLWORD), 4);
AssertEquals_LWORD(4, ProtectedVariables.InputLWORD, 'Overwriting protected InputLWORD');

WRITE_PROTECTED_LWORD(ADR(ProtectedVariables.VarLWORD), 4);
AssertEquals_LWORD(4, ProtectedVariables.VarLWORD, 'Overwriting protected VarLWORD');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_REAL');

WRITE_PROTECTED_REAL(ADR(ProtectedVariables.InputREAL), 1);
AssertEquals_REAL(1, ProtectedVariables.InputREAL, 0, 'Overwriting protected InputREAL');

WRITE_PROTECTED_REAL(ADR(ProtectedVariables.VarREAL), 1);
AssertEquals_REAL(1, ProtectedVariables.VarREAL, 0, 'Overwriting protected VarREAL');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_SINT');

WRITE_PROTECTED_SINT(ADR(ProtectedVariables.InputSINT), 1);
AssertEquals_SINT(1, ProtectedVariables.InputSINT, 'Overwriting protected InputSINT');

WRITE_PROTECTED_SINT(ADR(ProtectedVariables.VarSINT), 1);
AssertEquals_SINT(1, ProtectedVariables.VarSINT, 'Overwriting protected VarSINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_STRING');

WRITE_PROTECTED_STRING(ADR(ProtectedVariables.InputSTRING), 'words');
AssertEquals_STRING('words', ProtectedVariables.InputSTRING, 'Overwriting protected InputSTRING');

WRITE_PROTECTED_STRING(ADR(ProtectedVariables.VarSTRING), 'words');
AssertEquals_STRING('words', ProtectedVariables.VarSTRING, 'Overwriting protected VarSTRING');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_TIME');

WRITE_PROTECTED_TIME(ADR(ProtectedVariables.InputTIME), T#1S);
AssertEquals_TIME(T#1S, ProtectedVariables.InputTIME, 'Overwriting protected InputTIME');

WRITE_PROTECTED_TIME(ADR(ProtectedVariables.VarTIME), T#1S);
AssertEquals_TIME(T#1S, ProtectedVariables.VarTIME, 'Overwriting protected VarTIME');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_TIME_OF_DAY');

WRITE_PROTECTED_TIME_OF_DAY(ADR(ProtectedVariables.InputTIME_OF_DAY), TOD#11:11);
AssertEquals_TIME_OF_DAY(TOD#11:11, ProtectedVariables.InputTIME_OF_DAY, 'Overwriting protected InputTIME_OF_DAY');

WRITE_PROTECTED_TIME_OF_DAY(ADR(ProtectedVariables.VarTIME_OF_DAY), TOD#11:11);
AssertEquals_TIME_OF_DAY(TOD#11:11, ProtectedVariables.VarTIME_OF_DAY, 'Overwriting protected VarTIME_OF_DAY');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_UDINT');

WRITE_PROTECTED_UDINT(ADR(ProtectedVariables.InputUDINT), 1);
AssertEquals_UDINT(1, ProtectedVariables.InputUDINT, 'Overwriting protected InputUDINT');

WRITE_PROTECTED_UDINT(ADR(ProtectedVariables.VarUDINT), 1);
AssertEquals_UDINT(1, ProtectedVariables.VarUDINT, 'Overwriting protected VarUDINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_UINT');

WRITE_PROTECTED_UINT(ADR(ProtectedVariables.InputUINT), 1);
AssertEquals_UINT(1, ProtectedVariables.InputUINT, 'Overwriting protected InputUINT');

WRITE_PROTECTED_UINT(ADR(ProtectedVariables.VarUINT), 1);
AssertEquals_UINT(1, ProtectedVariables.VarUINT, 'Overwriting protected VarUINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_ULINT');

WRITE_PROTECTED_ULINT(ADR(ProtectedVariables.InputULINT), 8);
AssertEquals_ULINT(8, ProtectedVariables.InputULINT, 'Overwriting protected InputULINT');

WRITE_PROTECTED_ULINT(ADR(ProtectedVariables.VarULINT), 8);
AssertEquals_ULINT(8, ProtectedVariables.VarULINT, 'Overwriting protected VarULINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_USINT');

WRITE_PROTECTED_USINT(ADR(ProtectedVariables.InputUSINT), 1);
AssertEquals_USINT(1, ProtectedVariables.InputUSINT, 'Overwriting protected InputUSINT');

WRITE_PROTECTED_USINT(ADR(ProtectedVariables.VarUSINT), 1);
AssertEquals_USINT(1, ProtectedVariables.VarUSINT, 'Overwriting protected VarUSINT');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_WORD');

WRITE_PROTECTED_WORD(ADR(ProtectedVariables.InputWORD), 1);
AssertEquals_WORD(1, ProtectedVariables.InputWORD, 'Overwriting protected InputWORD');

WRITE_PROTECTED_WORD(ADR(ProtectedVariables.VarWORD), 1);
AssertEquals_WORD(1, ProtectedVariables.VarWORD, 'Overwriting protected VarWORD');

TEST_FINISHED();

TEST('Test_WRITE_PROTECTED_WSTRING');

WRITE_PROTECTED_WSTRING(ADR(ProtectedVariables.InputWSTRING), "ŢŶǮ");
AssertEquals_WSTRING("ŢŶǮ", ProtectedVariables.InputWSTRING, 'Overwriting protected InputWSTRING');

WRITE_PROTECTED_WSTRING(ADR(ProtectedVariables.VarWSTRING), "ŢŶǮ");
AssertEquals_WSTRING("ŢŶǮ", ProtectedVariables.VarWSTRING, 'Overwriting protected VarWSTRING');

TEST_FINISHED();