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

Timestamp:

Apr 5, 2007, 8:34:33 PM (18 years ago)

Author:

RBRi

Message:

%more stringutils refactoring

File:

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

trunk/NewView/unittests/StringUtilsUnitTests.pas

@@ -410 +410 @@
   END;
 
+  PROCEDURE testStrExtractStrings_DelimiterSameAsEscapeChar;
+  VAR
+    tmpResult : TStringList;
+  BEGIN
+    tmpResult := TStringList.Create;
+    StrExtractStrings(tmpResult, 'a;b;;cd;;;', [';'], ';');
+
+    assertEqualsInt('testStrExtractStrings_EscapedEscapeChar', 3, tmpResult.count);
+    assertEqualsString('testStrExtractStrings_EscapedEscapeChar', 'a', tmpResult[0]);
+    assertEqualsString('testStrExtractStrings_EscapedEscapeChar', 'b;cd;', tmpResult[1]);
+    assertEqualsString('testStrExtractStrings_EscapedEscapeChar', '', tmpResult[2]);
+
+    tmpResult.Destroy;
+  END;
 
   // ------------------------------------------------------
@@ -1267 +1281 @@
 
 
+  // ----------------------------------------------------------
+
+
+  PROCEDURE testStrEqualIgnoringCase_BothEmpty;
+  VAR
+    tmpResult : Boolean;
+  BEGIN
+    tmpResult := StrEqualIgnoringCase('', '');
+
+    assertTrue('testStrEqualIgnoringCase_BothEmpty', tmpResult);
+  END;
+
+
+  PROCEDURE testStrEqualIgnoringCase_FirstEmpty;
+  VAR
+    tmpResult : Boolean;
+  BEGIN
+    tmpResult := StrEqualIgnoringCase('', 'xy');
+
+    assertFalse('testStrEqualIgnoringCase_FirstEmpty', tmpResult);
+  END;
+
+  PROCEDURE testStrEqualIgnoringCase_SecondEmpty;
+  VAR
+    tmpResult : Boolean;
+  BEGIN
+    tmpResult := StrEqualIgnoringCase('xy', '');
+
+    assertFalse('testStrEqualIgnoringCase_SecondEmpty', tmpResult);
+  END;
+
+  PROCEDURE testStrEqualIgnoringCase_DifferentLength;
+  VAR
+    tmpResult : Boolean;
+  BEGIN
+    tmpResult := StrEqualIgnoringCase('xy', 'xyz');
+
+    assertFalse('testStrEqualIgnoringCase_DifferentLength', tmpResult);
+  END;
+
+  PROCEDURE testStrEqualIgnoringCase_DifferentCase;
+  VAR
+    tmpResult : Boolean;
+  BEGIN
+    tmpResult := StrEqualIgnoringCase('xYz', 'xyz');
+
+    assertTrue('testStrEqualIgnoringCase_DifferentCase', tmpResult);
+  END;
+
+  PROCEDURE testStrEqualIgnoringCase;
+  VAR
+    tmpResult : Boolean;
+  BEGIN
+    tmpResult := StrEqualIgnoringCase('XYz', 'XYz');
+
+    assertTrue('testStrEqualIgnoringCase', tmpResult);
+  END;
+
+  // ----------------------------------------------------------
+
+
   PROCEDURE testLongWordToStr_Zero;
   VAR
@@ -1296 +1371 @@
 
 
+  // ----------------------------------------------------------
+
 
   PROCEDURE testBoolToStr_true;
@@ -1315 +1392 @@
     assertEqualsString('testBoolToStr_false', 'False', tmpResult);
   END;
+
 
   // ----------------------------------------------------------
@@ -1375 +1453 @@
     result.add(@testStrExtractStrings_EscapedDelimiter);
     result.add(@testStrExtractStrings_EscapedEscapeChar);
+    result.add(@testStrExtractStrings_DelimiterSameAsEscapeChar);
 
     result.add(@testStrExtractStringsIgnoreEmpty_EmptyReceiver);
@@ -1467 +1546 @@
     result.add(@testStrEndsWithIgnoringCase_StringMatchCaseInSensitive);
 
+    result.add(@testStrEqualIgnoringCase_BothEmpty);
+    result.add(@testStrEqualIgnoringCase_FirstEmpty);
+    result.add(@testStrEqualIgnoringCase_SecondEmpty);
+    result.add(@testStrEqualIgnoringCase_DifferentLength);
+    result.add(@testStrEqualIgnoringCase_DifferentCase);
+    result.add(@testStrEqualIgnoringCase);
+
     result.add(@testLongWordToStr_Zero);
     result.add(@testLongWordToStr_Four);