Ignore:
Timestamp:
Jan 25, 2007, 9:08:08 PM (19 years ago)
Author:
RBRi
Message:

more fixes for the link handling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NewView/unittests/StringUtilsUnitTests.pas

    r41 r65  
    216216    tmpResult.add('');
    217217    tmpResult.add('abc\&');
     218    tmpResult.add('\config.sys');
     219
    218220    tmpResult.add('');
    219221
     
    222224    tmpResult.readValuesFromSerializedString(tmpSerialized);
    223225
    224     assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_2', 5, tmpResult.getCount);
     226    assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_2', 6, tmpResult.getCount);
    225227    assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '&test&', tmpResult.get(0));
    226228    assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '"test"', tmpResult.get(1));
    227229    assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(2));
    228230    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));
    230233
    231234    tmpResult.Destroy;
     
    634637  END;
    635638
     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;
    636658
    637659  // ----------------------------------------------------------
     
    698720    result.add(@testStrEndsWithIgnoringCase_StringMatchCaseInSensitive);
    699721
     722    result.add(@testBoolToStr_true);
     723    result.add(@testBoolToStr_false);
    700724  END;
    701725
Note: See TracChangeset for help on using the changeset viewer.