Changeset 110 for trunk/NewView/unittests/testassert.pas

Timestamp:

Apr 25, 2007, 10:26:44 AM (18 years ago)

Author:

RBRi

Message:

AnsiString functins added

File:

• trunk/NewView/unittests/testassert.pas (modified) (2 diffs)

trunk/NewView/unittests/testassert.pas

@@ -9 +9 @@
 
   PROCEDURE assertEqualsString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
+  PROCEDURE assertEqualsAnsiString(aTestDescription : String; anExpectedValue : AnsiString; aRealValue : AnsiString);
   PROCEDURE assertEqualsInt(aTestDescription : String; anExpectedValue : INTEGER; aRealValue : INTEGER);
   PROCEDURE assertEqualsLongWord(aTestDescription : String; anExpectedValue : LongWord; aRealValue : LongWord);
@@ -19 +20 @@
   PROCEDURE assertEqualsString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
   VAR
-    tmpMessage : String;
+    tmpMessage : AnsiString;
+  BEGIN
+    if (aRealValue <> anExpectedValue) then
+    begin
+      tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
+      tmpMessage := tmpMessage + anExpectedValue;
+      tmpMessage := tmpMessage + ''' but it was: ''';
+      tmpMessage := tmpMessage + aRealValue;
+      tmpMessage := tmpMessage + '''';
+      raise EAssertFailed.Create(tmpMessage);
+    end;
+  END;
+
+
+  PROCEDURE assertEqualsAnsiString(aTestDescription : String; anExpectedValue : AnsiString; aRealValue : AnsiString);
+  VAR
+    tmpMessage : AnsiString;
   BEGIN
     if (aRealValue <> anExpectedValue) then