Changeset 65 for trunk/NewView/unittests/StringUtilsUnitTests.pas
- Timestamp:
- Jan 25, 2007, 9:08:08 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NewView/unittests/StringUtilsUnitTests.pas
r41 r65 216 216 tmpResult.add(''); 217 217 tmpResult.add('abc\&'); 218 tmpResult.add('\config.sys'); 219 218 220 tmpResult.add(''); 219 221 … … 222 224 tmpResult.readValuesFromSerializedString(tmpSerialized); 223 225 224 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_2', 5, tmpResult.getCount);226 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_2', 6, tmpResult.getCount); 225 227 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '&test&', tmpResult.get(0)); 226 228 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '"test"', tmpResult.get(1)); 227 229 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(2)); 228 230 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', 'abc\&', tmpResult.get(3)); 229 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(4)); 231 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '\config.sys', tmpResult.get(4)); 232 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(5)); 230 233 231 234 tmpResult.Destroy; … … 634 637 END; 635 638 639 640 PROCEDURE testBoolToStr_true; 641 VAR 642 tmpResult : String; 643 BEGIN 644 tmpResult := BoolToStr(true); 645 646 assertEqualsString('testBoolToStr_true', 'True', tmpResult); 647 END; 648 649 650 PROCEDURE testBoolToStr_false; 651 VAR 652 tmpResult : String; 653 BEGIN 654 tmpResult := BoolToStr(false); 655 656 assertEqualsString('testBoolToStr_false', 'False', tmpResult); 657 END; 636 658 637 659 // ---------------------------------------------------------- … … 698 720 result.add(@testStrEndsWithIgnoringCase_StringMatchCaseInSensitive); 699 721 722 result.add(@testBoolToStr_true); 723 result.add(@testBoolToStr_false); 700 724 END; 701 725
Note:
See TracChangeset
for help on using the changeset viewer.