[r381]: / trunk / Library / POUs / FB_TestSuite / AssertEquals_WSTRING / svnobj  Maximize  Restore  History

Download this file

12 lines (11 with data), 5.0 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
(*
    Message : T_MaxString; // The identifying message for the assertion error
END_VAR
VAR
    TestInstancePath : T_MaxString;
TestInstancePath := AddTestNameToInstancePath(TestInstancePath := FindTestSuiteInstancePath());
AssertResults.ReportResult(ExpectedSize := SIZEOF(Expected),
                           ActualTypeClass := IBaseLibrary.TypeClass.TYPE_WSTRING,
                           ActualValue := ADR(Actual),
                           Message := Message,
IF NOT AlreadyReported AND (WLEN(STR := Expected) <> WLEN(STR := Actual) OR (Expected <> Actual)) THEN