Changeset 384 for trunk/unittests/TestAssert.pas

Timestamp:

Apr 30, 2016, 7:38:20 PM (9 years ago)

Author:

RBRi

Message:

move the unit test to a more central place

File:

• trunk/unittests/TestAssert.pas (modified) (2 diffs)

trunk/unittests/TestAssert.pas

@@ -15 +15 @@
 
   PROCEDURE assertEqualsString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
+  PROCEDURE assertEqualsIgnoreCaseString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
   PROCEDURE assertEqualsAnsiString(aTestDescription : String; anExpectedValue : AnsiString; aRealValue : AnsiString);
   PROCEDURE assertEqualsInt(aTestDescription : String; anExpectedValue : INTEGER; aRealValue : INTEGER);
@@ -38 +39 @@
       tmpMessage := tmpMessage + '''  but it was: ''' + tmpLineBreak;
       tmpMessage := tmpMessage + aRealValue;
+      tmpMessage := tmpMessage + '''';
+      raise EAssertFailed.Create(tmpMessage);
+    end;
+  END;
+
+
+  PROCEDURE assertEqualsIgnoreCaseString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
+  VAR
+    tmpMessage : AnsiString;
+    tmpLineBreak : String;
+    tmpRealValueUC : String;
+    tmpExpectedValueUC : String;
+  BEGIN
+    tmpRealValueUC := UpperCase(aRealValue);
+    tmpExpectedValueUC := UpperCase(anExpectedValue);
+    if (tmpRealValueUC <> tmpExpectedValueUC) then
+    begin
+      tmpLineBreak := '';
+      if Length(tmpExpectedValueUC) > 13 then tmpLineBreak := chr(13) + chr(10) + '  ';
+
+      tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''' + tmpLineBreak;
+      tmpMessage := tmpMessage + tmpExpectedValueUC;
+      tmpMessage := tmpMessage + '''  but it was: ''' + tmpLineBreak;
+      tmpMessage := tmpMessage + tmpRealValueUC;
       tmpMessage := tmpMessage + '''';
       raise EAssertFailed.Create(tmpMessage);