Changeset 244 for trunk/unittests/TestAssert.pas

Timestamp:

Sep 16, 2007, 4:54:04 PM (18 years ago)

Author:

RBRi

Message:

more readable output

File:

• trunk/unittests/TestAssert.pas (modified) (1 diff)

trunk/unittests/TestAssert.pas

@@ -27 +27 @@
   VAR
     tmpMessage : AnsiString;
+    tmpLineBreak : String;
   BEGIN
     if (aRealValue <> anExpectedValue) then
     begin
-      tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
+      tmpLineBreak := '';
+      if Length(anExpectedValue) > 13 then tmpLineBreak := chr(13) + chr(10) + '  ';
+
+      tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''' + tmpLineBreak;
       tmpMessage := tmpMessage + anExpectedValue;
-      tmpMessage := tmpMessage + ''' but it was: ''';
+      tmpMessage := tmpMessage + '''  but it was: ''' + tmpLineBreak;
       tmpMessage := tmpMessage + aRealValue;
       tmpMessage := tmpMessage + '''';