FB_AdjustAssertFailureMessageToMax253CharLengthTest Function Block

Extends TcUnit.FB_TestSuite

This testsuite tests the function block FB_AdjustAssertFailureMessageToMax255CharLength_Test The total printed message can not be more than 253 characters long.

Methods

TestInstancePath221CharsExpectShortenedTestInstancePath

Implementation

TEST('TestInstancePath221CharsExpectShortenedTestInstancePath');

AdjustAssertFailureMessageToMax253CharLength(TestInstancePath := TestInstancePathNameWith221Chars,
                                             TestMessage := TooLongTestMessage60Chars,
                                             TestInstancePathProcessed => TestInstancePathResult,
                                             TestMessageProcessed => TestMessageResult);


AssertEquals_STRING(Expected := TestInstancePathNameWith221Chars, // Same test instance path should be expected as the one going in
                    Actual := TestInstancePathResult,
                    'Test instance path not correct');

AssertEquals_STRING(Expected := TestMessageResultExpected,
                    Actual := TestMessageResult,
                    'Test message not correct');

TEST_FINISHED();

TestInstancePath253CharsExpectTooLongTestInstancePath PRIVATE

Implementation

TEST('TestInstancePath253CharsExpectTooLongTestInstancePath');

AdjustAssertFailureMessageToMax253CharLength(TestInstancePath := TestInstancePathNameWith253Chars,
                                             TestMessage := ShortTestMessage,
                                             TestInstancePathProcessed => TestInstancePathNameWith253CharsResult,
                                             TestMessageProcessed => ShortTestMessageResult);

AssertEquals_STRING(Expected := TestInstancePathNameWith253CharsExpectedResult,
                    Actual := TestInstancePathNameWith253CharsResult,
                    'Test instance path not correct');

AssertEquals_STRING(Expected := ShortTestMessageExpectedResult,
                    Actual := ShortTestMessageResult,
                    'Test message not correct');

TEST_FINISHED();

TestInstancePath255CharsExpectTooLongTestInstancePath PRIVATE

Implementation

TEST('TestInstancePath255CharsExpectTooLongTestInstancePath');

AdjustAssertFailureMessageToMax253CharLength(TestInstancePath := TestInstancePathNameWith255Chars,
                                             TestMessage := ShortTestMessage,
                                             TestInstancePathProcessed => TestInstancePathNameWith253CharsResult,
                                             TestMessageProcessed => ShortTestMessageResult);

AssertEquals_STRING(Expected := TestInstancePathNameWith253CharsExpectedResult,
                    Actual := TestInstancePathNameWith253CharsResult,
                    'Test instance path not correct');

AssertEquals_STRING(Expected := ShortTestMessageExpectedResult,
                    Actual := ShortTestMessageResult,
                    'Test message not correct');

TEST_FINISHED();

Used by

PRG_TEST

Declaration source

(* This testsuite tests the function block FB_AdjustAssertFailureMessageToMax255CharLength_Test
   The total printed message can not be more than 253 characters long.
*)
FUNCTION_BLOCK FB_AdjustAssertFailureMessageToMax253CharLengthTest EXTENDS TcUnit.FB_TestSuite