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

Timestamp:

Feb 6, 2007, 9:00:43 PM (19 years ago)

Author:

RBRi

Message:

+ LongWordToStr

File:

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

trunk/NewView/unittests/testassert.pas

@@ -10 +10 @@
   PROCEDURE assertEqualsString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
   PROCEDURE assertEqualsInt(aTestDescription : String; anExpectedValue : INTEGER; aRealValue : INTEGER);
+  PROCEDURE assertEqualsLongWord(aTestDescription : String; anExpectedValue : LongWord; aRealValue : LongWord);
   PROCEDURE assertTrue(aTestDescription : String; aRealValue : Boolean);
   PROCEDURE assertFalse(aTestDescription : String; aRealValue : Boolean);
@@ -33 +34 @@
 
   PROCEDURE assertEqualsInt(aTestDescription : String; anExpectedValue : INTEGER; aRealValue : INTEGER);
+  VAR
+    tmpMessage : String;
+    tmpIntString : String;
+  BEGIN
+    if (aRealValue <> anExpectedValue) then
+    begin
+      tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
+      Str(anExpectedValue, tmpIntString);
+      tmpMessage := tmpMessage + tmpIntString;
+      tmpMessage := tmpMessage + ''' but it was: ''';
+      Str(aRealValue, tmpIntString);
+      tmpMessage := tmpMessage + tmpIntString;
+      tmpMessage := tmpMessage + '''';
+      raise EAssertFailed.Create(tmpMessage);
+    end;
+  END;
+
+
+  PROCEDURE assertEqualsLongWord(aTestDescription : String; anExpectedValue : LongWord; aRealValue : LongWord);
   VAR
     tmpMessage : String;