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

Timestamp:

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

Author:

RBRi

Message:

+ LongWordToStr

File:

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

trunk/NewView/unittests/StringUtilsUnitTests.pas

@@ -636 +636 @@
     assertTrue('testStrEndsWithIgnoringCase_StringMatchCaseSensitive', tmpResult);
   END;
+
+
+  PROCEDURE testLongWordToStr_Zero;
+  VAR
+    tmpResult : String;
+  BEGIN
+    tmpResult := LongWordToStr(0);
+
+    assertEqualsString('testLongWordToStr_Zero', '0', tmpResult);
+  END;
+
+
+  PROCEDURE testLongWordToStr_Four;
+  VAR
+    tmpResult : String;
+  BEGIN
+    tmpResult := LongWordToStr(4);
+
+    assertEqualsString('testLongWordToStr_Four', '4', tmpResult);
+  END;
+
+  PROCEDURE testLongWordToStr_Max;
+  VAR
+    tmpResult : String;
+  BEGIN
+    tmpResult := LongWordToStr(4294967295);
+
+    assertEqualsString('testLongWordToStr_Max', '4294967295', tmpResult);
+  END;
+
 
 
@@ -720 +750 @@
     result.add(@testStrEndsWithIgnoringCase_StringMatchCaseInSensitive);
 
+    result.add(@testLongWordToStr_Zero);
+    result.add(@testLongWordToStr_Four);
+    result.add(@testLongWordToStr_Max);
+
     result.add(@testBoolToStr_true);
     result.add(@testBoolToStr_false);