source: trunk/NewView/unittests/StringUtilsUnitTests.pas@ 80

Last change on this file since 80 was 68, checked in by RBRi, 19 years ago

+ LongWordToStr
  • Property svn:eol-style set to native
File size: 20.4 KB
Line 
1Unit StringUtilsUnitTests;
2
3Interface
4
5uses
6 Classes,
7 TestAssert,
8 StringUtilsUnit;
9
10 FUNCTION getStringUtilsUnitTests : TList;
11
12
13Implementation
14
15 PROCEDURE testTSerializableStringList_Construction;
16 VAR
17 tmpResult : TSerializableStringList;
18 BEGIN
19 tmpResult := TSerializableStringList.Create;
20
21 assertEqualsInt('testTSerializableStringList_Construction', 0, tmpResult.getCount);
22
23 tmpResult.Destroy;
24 END;
25
26
27 PROCEDURE testTSerializableStringList_Add;
28 VAR
29 tmpResult : TSerializableStringList;
30 BEGIN
31 tmpResult := TSerializableStringList.Create;
32
33 tmpResult.add('Test');
34 assertEqualsInt('testTSerializableStringList_Add', 1, tmpResult.getCount);
35
36 tmpResult.Destroy;
37 END;
38
39
40 PROCEDURE testTSerializableStringList_Get_Empty;
41 VAR
42 tmpResult : TSerializableStringList;
43 BEGIN
44 tmpResult := TSerializableStringList.Create;
45
46 assertEqualsInt('testTSerializableStringList_Get_Empty', 0, tmpResult.getCount);
47
48 try
49 tmpResult.get(0);
50 except
51 on e:EListError do
52 begin
53 assertEqualsString('testTSerializableStringList_Get', 'TList error exception (EListError) occured', e.message);
54 end;
55 end;
56
57 tmpResult.Destroy;
58 END;
59
60
61 PROCEDURE testTSerializableStringList_Get;
62 VAR
63 tmpResult : TSerializableStringList;
64 BEGIN
65 tmpResult := TSerializableStringList.Create;
66
67 tmpResult.add('First');
68 tmpResult.add('Second');
69 assertEqualsInt('testTSerializableStringList_Get', 2, tmpResult.getCount);
70 assertEqualsString('testTSerializableStringList_Get', 'First', tmpResult.get(0));
71
72 tmpResult.Destroy;
73 END;
74
75
76 PROCEDURE testTSerializableStringList_getSerializedString_Empty;
77 VAR
78 tmpResult : TSerializableStringList;
79 BEGIN
80 tmpResult := TSerializableStringList.Create;
81
82 assertEqualsString('testTSerializableStringList_getSerializedString_Empty', '', tmpResult.getSerializedString);
83
84 tmpResult.Destroy;
85 END;
86
87
88 PROCEDURE testTSerializableStringList_getSerializedString;
89 VAR
90 tmpResult : TSerializableStringList;
91 BEGIN
92 tmpResult := TSerializableStringList.Create;
93
94 tmpResult.add('First');
95 tmpResult.add('Second');
96 assertEqualsString('testTSerializableStringList_getSerializedString', 'First&Second', tmpResult.getSerializedString);
97
98 tmpResult.Destroy;
99 END;
100
101
102 PROCEDURE testTSerializableStringList_getSerializedString_WithBlanks;
103 VAR
104 tmpResult : TSerializableStringList;
105 BEGIN
106 tmpResult := TSerializableStringList.Create;
107
108 tmpResult.add('Fi rst');
109 tmpResult.add('Second');
110 assertEqualsString('testTSerializableStringList_getSerializedString_WithBlanks', 'Fi rst&Second', tmpResult.getSerializedString);
111
112 tmpResult.Destroy;
113 END;
114
115
116 PROCEDURE testTSerializableStringList_getSerializedString_Escaping;
117 VAR
118 tmpResult : TSerializableStringList;
119 BEGIN
120 tmpResult := TSerializableStringList.Create;
121
122 tmpResult.add('F&i"r''st');
123 tmpResult.add('Sec&ond');
124 assertEqualsString('testTSerializableStringList_getSerializedString_WithBlanks', 'F\&i"r''st&Sec\&ond', tmpResult.getSerializedString);
125
126 tmpResult.Destroy;
127 END;
128
129
130 PROCEDURE testTSerializableStringList_readValuesFromSerializedString;
131 VAR
132 tmpResult : TSerializableStringList;
133 tmpSerialized : String;
134 BEGIN
135 tmpResult := TSerializableStringList.Create;
136
137 tmpSerialized := 'First&Second';
138
139 tmpResult.readValuesFromSerializedString(tmpSerialized);
140
141 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString', 2, tmpResult.getCount);
142 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString', 'First', tmpResult.get(0));
143 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString', 'Second', tmpResult.get(1));
144
145 tmpResult.Destroy;
146 END;
147
148
149 PROCEDURE testTSerializableStringList_readValuesFromSerializedString_quoted;
150 VAR
151 tmpResult : TSerializableStringList;
152 tmpSerialized : String;
153 BEGIN
154 tmpResult := TSerializableStringList.Create;
155
156 tmpSerialized := 'Fi\\nrst&Se\&cond';
157
158 tmpResult.readValuesFromSerializedString(tmpSerialized);
159
160 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_quoted', 2, tmpResult.getCount);
161 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_quoted', 'Fi\nrst', tmpResult.get(0));
162 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_quoted', 'Se&cond', tmpResult.get(1));
163
164 tmpResult.Destroy;
165 END;
166
167
168 PROCEDURE testTSerializableStringList_readValuesFromSerializedString_empty;
169 VAR
170 tmpResult : TSerializableStringList;
171 tmpSerialized : String;
172 BEGIN
173 tmpResult := TSerializableStringList.Create;
174
175 tmpSerialized := '';
176
177 tmpResult.readValuesFromSerializedString(tmpSerialized);
178
179 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_empty', 0, tmpResult.getCount);
180
181 tmpResult.Destroy;
182 END;
183
184
185 PROCEDURE testTSerializableStringList_readValuesFromSerializedString_firstempty;
186 VAR
187 tmpResult : TSerializableStringList;
188 tmpSerialized : String;
189 BEGIN
190 tmpResult := TSerializableStringList.Create;
191
192 tmpResult.add('');
193 tmpResult.add('test');
194
195 tmpSerialized := tmpResult.getSerializedString;
196
197 tmpResult.readValuesFromSerializedString(tmpSerialized);
198
199 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_firstempty', 2, tmpResult.getCount);
200 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_firstempty', '', tmpResult.get(0));
201 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_firstempty', 'test', tmpResult.get(1));
202
203 tmpResult.Destroy;
204 END;
205
206
207 PROCEDURE testTSerializableStringList_readValuesFromSerializedString_2;
208 VAR
209 tmpResult : TSerializableStringList;
210 tmpSerialized : String;
211 BEGIN
212 tmpResult := TSerializableStringList.Create;
213
214 tmpResult.add('&test&');
215 tmpResult.add('"test"');
216 tmpResult.add('');
217 tmpResult.add('abc\&');
218 tmpResult.add('\config.sys');
219
220 tmpResult.add('');
221
222 tmpSerialized := tmpResult.getSerializedString;
223
224 tmpResult.readValuesFromSerializedString(tmpSerialized);
225
226 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_2', 6, tmpResult.getCount);
227 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '&test&', tmpResult.get(0));
228 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '"test"', tmpResult.get(1));
229 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(2));
230 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', 'abc\&', tmpResult.get(3));
231 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '\config.sys', tmpResult.get(4));
232 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(5));
233
234 tmpResult.Destroy;
235 END;
236
237
238 // ------------------------------------------------------
239
240
241 PROCEDURE testEscapeAllCharsBy_Empty;
242 VAR
243 tmpResult : String;
244 BEGIN
245 tmpResult := StrEscapeAllCharsBy('', ['b'], '\');
246
247 assertEqualsString('testEscapeAllCharsBy_Empty', '', tmpResult);
248 END;
249
250
251 PROCEDURE testEscapeAllCharsBy_EmptyChars;
252 VAR
253 tmpResult : String;
254 BEGIN
255 tmpResult := StrEscapeAllCharsBy('abcd', [], '\');
256
257 assertEqualsString('testEscapeAllCharsBy_EmptyChars', 'abcd', tmpResult);
258 END;
259
260
261 PROCEDURE testEscapeAllCharsBy;
262 VAR
263 tmpResult : String;
264 BEGIN
265 tmpResult := StrEscapeAllCharsBy('abc', ['b'], '\');
266
267 assertEqualsString('testEscapeAllCharsBy', 'a\bc', tmpResult);
268 END;
269
270
271 PROCEDURE testEscapeAllCharsBy_EscapeEscape;
272 VAR
273 tmpResult : String;
274 BEGIN
275 tmpResult := StrEscapeAllCharsBy('a\bc', ['b'], '\');
276
277 assertEqualsString('testEscapeAllCharsBy_EscapeEscape', 'a\\\bc', tmpResult);
278 END;
279
280
281 PROCEDURE testStrExtractStrings_EmptyReceiver;
282 VAR
283 tmpResult : TStringList;
284 BEGIN
285 tmpResult := TStringList.Create;
286 StrExtractStrings(tmpResult, '', ['x'], '\');
287
288 assertEqualsInt('testStrExtractStrings_EmptyReceiver', 0, tmpResult.count);
289 tmpResult.Destroy;
290 END;
291
292
293 PROCEDURE testStrExtractStrings_OnlyOnePart;
294 VAR
295 tmpResult : TStringList;
296 BEGIN
297 tmpResult := TStringList.Create;
298 StrExtractStrings(tmpResult, 'abcd', ['x'], '\');
299
300 assertEqualsInt('testStrExtractStrings_OnlyOnePart', 1, tmpResult.count);
301 assertEqualsString('testStrExtractStrings_OnlyOnePart', 'abcd', tmpResult[0]);
302
303 tmpResult.Destroy;
304 END;
305
306
307 PROCEDURE testStrExtractStrings_ManyParts;
308 VAR
309 tmpResult : TStringList;
310 BEGIN
311 tmpResult := TStringList.Create;
312 StrExtractStrings(tmpResult, 'abxcd', ['x'], '\');
313
314 assertEqualsInt('testStrExtractStrings_ManyParts', 2, tmpResult.count);
315 assertEqualsString('testStrExtractStrings_ManyParts', 'ab', tmpResult[0]);
316 assertEqualsString('testStrExtractStrings_ManyParts', 'cd', tmpResult[1]);
317
318 tmpResult.Destroy;
319 END;
320
321
322 PROCEDURE testStrExtractStrings_StartWithDelimiter;
323 VAR
324 tmpResult : TStringList;
325 BEGIN
326 tmpResult := TStringList.Create;
327 StrExtractStrings(tmpResult, 'xab', ['x'], '\');
328
329 assertEqualsInt('testStrExtractStrings_StartWithDelimiter', 2, tmpResult.count);
330 assertEqualsString('testStrExtractStrings_StartWithDelimiter', '', tmpResult[0]);
331 assertEqualsString('testStrExtractStrings_StartWithDelimiter', 'ab', tmpResult[1]);
332
333 tmpResult.Destroy;
334 END;
335
336
337 PROCEDURE testStrExtractStrings_EndWithDelimiter;
338 VAR
339 tmpResult : TStringList;
340 BEGIN
341 tmpResult := TStringList.Create;
342 StrExtractStrings(tmpResult, 'abx', ['x'], '\');
343
344 assertEqualsInt('testStrExtractStrings_EndWithDelimiter', 2, tmpResult.count);
345 assertEqualsString('testStrExtractStrings_EndWithDelimiter', 'ab', tmpResult[0]);
346 assertEqualsString('testStrExtractStrings_EndWithDelimiter', '', tmpResult[1]);
347
348 tmpResult.Destroy;
349 END;
350
351
352 PROCEDURE testStrExtractStrings_EmptyPartInside;
353 VAR
354 tmpResult : TStringList;
355 BEGIN
356 tmpResult := TStringList.Create;
357 StrExtractStrings(tmpResult, 'axxb', ['x'], '\');
358
359 assertEqualsInt('testStrExtractStrings_EmptyPartInside', 3, tmpResult.count);
360 assertEqualsString('testStrExtractStrings_EmptyPartInside', 'a', tmpResult[0]);
361 assertEqualsString('testStrExtractStrings_EmptyPartInside', '', tmpResult[1]);
362 assertEqualsString('testStrExtractStrings_EmptyPartInside', 'b', tmpResult[2]);
363
364 tmpResult.Destroy;
365 END;
366
367
368 PROCEDURE testStrExtractStrings_NoDelimiter;
369 VAR
370 tmpResult : TStringList;
371 BEGIN
372 tmpResult := TStringList.Create;
373 StrExtractStrings(tmpResult, 'axxb', [], '\');
374
375 assertEqualsInt('testStrExtractStrings_NoDelimiter', 1, tmpResult.count);
376 assertEqualsString('testStrExtractStrings_NoDelimiter', 'axxb', tmpResult[0]);
377
378 tmpResult.Destroy;
379 END;
380
381
382 PROCEDURE testStrExtractStrings_EscapedDelimiter;
383 VAR
384 tmpResult : TStringList;
385 BEGIN
386 tmpResult := TStringList.Create;
387 StrExtractStrings(tmpResult, 'a\xb', ['x'], '\');
388
389 assertEqualsInt('testStrExtractStrings_EscapedDelimiter', 1, tmpResult.count);
390 assertEqualsString('testStrExtractStrings_EscapedDelimiter', 'axb', tmpResult[0]);
391
392 tmpResult.Destroy;
393 END;
394
395 PROCEDURE testStrExtractStrings_EscapedEscapeChar;
396 VAR
397 tmpResult : TStringList;
398 BEGIN
399 tmpResult := TStringList.Create;
400 StrExtractStrings(tmpResult, 'a\\xb', ['x'], '\');
401
402 assertEqualsInt('testStrExtractStrings_EscapedEscapeChar', 2, tmpResult.count);
403 assertEqualsString('testStrExtractStrings_EscapedEscapeChar', 'a\', tmpResult[0]);
404 assertEqualsString('testStrExtractStrings_EscapedEscapeChar', 'b', tmpResult[1]);
405
406 tmpResult.Destroy;
407 END;
408
409
410 PROCEDURE testTrimChars_Empty;
411 VAR
412 tmpResult : String;
413 BEGIN
414 tmpResult := StrTrimChars('', ['b', 'x']);
415
416 assertEqualsString('testTrimChars_Empty', '', tmpResult);
417 END;
418
419
420 PROCEDURE testTrimChars_RemoveAll;
421 VAR
422 tmpResult : String;
423 BEGIN
424 tmpResult := StrTrimChars('bxxxbx', ['b', 'x']);
425
426 assertEqualsString('testTrimChars_RemoveAll', '', tmpResult);
427 END;
428
429
430 PROCEDURE testTrimChars_LeftOnly;
431 VAR
432 tmpResult : String;
433 BEGIN
434 tmpResult := StrTrimChars('bxbxxay', ['b', 'x']);
435
436 assertEqualsString('testTrimChars_LeftOnly', 'ay', tmpResult);
437 END;
438
439
440 PROCEDURE testTrimChars_RightOnly;
441 VAR
442 tmpResult : String;
443 BEGIN
444 tmpResult := StrTrimChars('aybxbxx', ['b', 'x']);
445
446 assertEqualsString('testTrimChars_LeftOnly', 'ay', tmpResult);
447 END;
448
449
450 PROCEDURE testTrimChars_CharsInside;
451 VAR
452 tmpResult : String;
453 BEGIN
454 tmpResult := StrTrimChars('bxabxvvx', ['b', 'x']);
455
456 assertEqualsString('testTrimChars_CharsInside', 'abxvv', tmpResult);
457 END;
458
459
460 PROCEDURE testTrimChars_Nothing;
461 VAR
462 tmpResult : String;
463 BEGIN
464 tmpResult := StrTrimChars('acdef', ['b', 'x']);
465
466 assertEqualsString('testTrimChars_Nothing', 'acdef', tmpResult);
467 END;
468
469
470 PROCEDURE testTrim;
471 VAR
472 tmpResult : String;
473 BEGIN
474 tmpResult := StrTrim(' a bc ');
475
476 assertEqualsString('testTrim', 'a bc', tmpResult);
477 END;
478
479
480 PROCEDURE testStrEndsWith_BothEmpty;
481 VAR
482 tmpResult : Boolean;
483 BEGIN
484 tmpResult := StrEndsWith('', '');
485
486 assertTrue('testStrEndsWith_BothEmpty', tmpResult);
487 END;
488
489
490 PROCEDURE testStrEndsWith_StringEmpty;
491 VAR
492 tmpResult : Boolean;
493 BEGIN
494 tmpResult := StrEndsWith('', 'end');
495
496 assertFalse('testStrEndsWith_StringEmpty', tmpResult);
497 END;
498
499
500 PROCEDURE testStrEndsWith_MatchEmpty;
501 VAR
502 tmpResult : Boolean;
503 BEGIN
504 tmpResult := StrEndsWith('test', '');
505
506 assertTrue('testStrEndsWith_MatchEmpty', tmpResult);
507 END;
508
509
510 PROCEDURE testStrEndsWith_StringToShort;
511 VAR
512 tmpResult : Boolean;
513 BEGIN
514 tmpResult := StrEndsWith('test', 'test1');
515
516 assertFalse('testStrEndsWith_StringToShort', tmpResult);
517 END;
518
519
520 PROCEDURE testStrEndsWith_StringEqualLength;
521 VAR
522 tmpResult : Boolean;
523 BEGIN
524 tmpResult := StrEndsWith('test', 'best');
525
526 assertFalse('testStrEndsWith_StringEqualLength', tmpResult);
527 END;
528
529
530 PROCEDURE testStrEndsWith_StringEqualLengthMatch;
531 VAR
532 tmpResult : Boolean;
533 BEGIN
534 tmpResult := StrEndsWith('test', 'test');
535
536 assertTrue('testStrEndsWith_StringEqualLengthMatch', tmpResult);
537 END;
538
539
540 PROCEDURE testStrEndsWith_StringMatch;
541 VAR
542 tmpResult : Boolean;
543 BEGIN
544 tmpResult := StrEndsWith('a simple test', 'test');
545
546 assertTrue('testStrEndsWith_StringMatch', tmpResult);
547 END;
548
549
550 PROCEDURE testStrEndsWith_StringMatchCaseSensitive;
551 VAR
552 tmpResult : Boolean;
553 BEGIN
554 tmpResult := StrEndsWith('a simple tEst', 'test');
555
556 assertFalse('testStrEndsWith_StringMatchCaseSensitive', tmpResult);
557 END;
558
559
560 PROCEDURE testStrEndsWithIgnoringCase_BothEmpty;
561 VAR
562 tmpResult : Boolean;
563 BEGIN
564 tmpResult := StrEndsWithIgnoringCase('', '');
565
566 assertTrue('testStrEndsWithIgnoringCase_BothEmpty', tmpResult);
567 END;
568
569
570 PROCEDURE testStrEndsWithIgnoringCase_StringEmpty;
571 VAR
572 tmpResult : Boolean;
573 BEGIN
574 tmpResult := StrEndsWithIgnoringCase('', 'end');
575
576 assertFalse('testStrEndsWithIgnoringCase_StringEmpty', tmpResult);
577 END;
578
579
580 PROCEDURE testStrEndsWithIgnoringCase_MatchEmpty;
581 VAR
582 tmpResult : Boolean;
583 BEGIN
584 tmpResult := StrEndsWithIgnoringCase('test', '');
585
586 assertTrue('testStrEndsWithIgnoringCase_MatchEmpty', tmpResult);
587 END;
588
589
590 PROCEDURE testStrEndsWithIgnoringCase_StringToShort;
591 VAR
592 tmpResult : Boolean;
593 BEGIN
594 tmpResult := StrEndsWithIgnoringCase('test', 'test1');
595
596 assertFalse('testStrEndsWithIgnoringCase_StringToShort', tmpResult);
597 END;
598
599
600 PROCEDURE testStrEndsWithIgnoringCase_StringEqualLength;
601 VAR
602 tmpResult : Boolean;
603 BEGIN
604 tmpResult := StrEndsWithIgnoringCase('test', 'best');
605
606 assertFalse('testStrEndsWithIgnoringCase_StringEqualLength', tmpResult);
607 END;
608
609
610 PROCEDURE testStrEndsWithIgnoringCase_StringEqualLengthMatch;
611 VAR
612 tmpResult : Boolean;
613 BEGIN
614 tmpResult := StrEndsWithIgnoringCase('test', 'test');
615
616 assertTrue('testStrEndsWithIgnoringCase_StringEqualLengthMatch', tmpResult);
617 END;
618
619
620 PROCEDURE testStrEndsWithIgnoringCase_StringMatch;
621 VAR
622 tmpResult : Boolean;
623 BEGIN
624 tmpResult := StrEndsWithIgnoringCase('a simple test', 'test');
625
626 assertTrue('testStrEndsWithIgnoringCase_StringMatch', tmpResult);
627 END;
628
629
630 PROCEDURE testStrEndsWithIgnoringCase_StringMatchCaseInSensitive;
631 VAR
632 tmpResult : Boolean;
633 BEGIN
634 tmpResult := StrEndsWithIgnoringCase('a simple tEst', 'test');
635
636 assertTrue('testStrEndsWithIgnoringCase_StringMatchCaseSensitive', tmpResult);
637 END;
638
639
640 PROCEDURE testLongWordToStr_Zero;
641 VAR
642 tmpResult : String;
643 BEGIN
644 tmpResult := LongWordToStr(0);
645
646 assertEqualsString('testLongWordToStr_Zero', '0', tmpResult);
647 END;
648
649
650 PROCEDURE testLongWordToStr_Four;
651 VAR
652 tmpResult : String;
653 BEGIN
654 tmpResult := LongWordToStr(4);
655
656 assertEqualsString('testLongWordToStr_Four', '4', tmpResult);
657 END;
658
659 PROCEDURE testLongWordToStr_Max;
660 VAR
661 tmpResult : String;
662 BEGIN
663 tmpResult := LongWordToStr(4294967295);
664
665 assertEqualsString('testLongWordToStr_Max', '4294967295', tmpResult);
666 END;
667
668
669
670 PROCEDURE testBoolToStr_true;
671 VAR
672 tmpResult : String;
673 BEGIN
674 tmpResult := BoolToStr(true);
675
676 assertEqualsString('testBoolToStr_true', 'True', tmpResult);
677 END;
678
679
680 PROCEDURE testBoolToStr_false;
681 VAR
682 tmpResult : String;
683 BEGIN
684 tmpResult := BoolToStr(false);
685
686 assertEqualsString('testBoolToStr_false', 'False', tmpResult);
687 END;
688
689 // ----------------------------------------------------------
690
691
692 FUNCTION getStringUtilsUnitTests : TList;
693 BEGIN
694 result := TList.Create;
695
696 result.add(@testTSerializableStringList_Construction);
697 result.add(@testTSerializableStringList_Add);
698 result.add(@testTSerializableStringList_Get_Empty);
699 result.add(@testTSerializableStringList_Get);
700 result.add(@testTSerializableStringList_getSerializedString_Empty);
701 result.add(@testTSerializableStringList_getSerializedString);
702 result.add(@testTSerializableStringList_getSerializedString);
703 result.add(@testTSerializableStringList_getSerializedString_WithBlanks);
704 result.add(@testTSerializableStringList_getSerializedString_Escaping);
705 result.add(@testTSerializableStringList_readValuesFromSerializedString);
706 result.add(@testTSerializableStringList_readValuesFromSerializedString_quoted);
707 result.add(@testTSerializableStringList_readValuesFromSerializedString_empty);
708 result.add(@testTSerializableStringList_readValuesFromSerializedString_firstempty);
709 result.add(@testTSerializableStringList_readValuesFromSerializedString_2);
710
711 result.add(@testEscapeAllCharsBy);
712 result.add(@testEscapeAllCharsBy_Empty);
713 result.add(@testEscapeAllCharsBy_EmptyChars);
714 result.add(@testEscapeAllCharsBy_EscapeEscape);
715
716 result.add(@testStrExtractStrings_EmptyReceiver);
717 result.add(@testStrExtractStrings_OnlyOnePart);
718 result.add(@testStrExtractStrings_ManyParts);
719 result.add(@testStrExtractStrings_StartWithDelimiter);
720 result.add(@testStrExtractStrings_EndWithDelimiter);
721 result.add(@testStrExtractStrings_EmptyPartInside);
722 result.add(@testStrExtractStrings_NoDelimiter);
723 result.add(@testStrExtractStrings_EscapedDelimiter);
724 result.add(@testStrExtractStrings_EscapedEscapeChar);
725
726 result.add(@testTrimChars_Empty);
727 result.add(@testTrimChars_RemoveAll);
728 result.add(@testTrimChars_LeftOnly);
729 result.add(@testTrimChars_RightOnly);
730 result.add(@testTrimChars_CharsInside);
731 result.add(@testTrimChars_Nothing);
732 result.add(@testTrim);
733
734 result.add(@testStrEndsWith_BothEmpty);
735 result.add(@testStrEndsWith_StringEmpty);
736 result.add(@testStrEndsWith_MatchEmpty);
737 result.add(@testStrEndsWith_StringToShort);
738 result.add(@testStrEndsWith_StringEqualLength);
739 result.add(@testStrEndsWith_StringEqualLengthMatch);
740 result.add(@testStrEndsWith_StringMatch);
741 result.add(@testStrEndsWith_StringMatchCaseSensitive);
742
743 result.add(@testStrEndsWithIgnoringCase_BothEmpty);
744 result.add(@testStrEndsWithIgnoringCase_StringEmpty);
745 result.add(@testStrEndsWithIgnoringCase_MatchEmpty);
746 result.add(@testStrEndsWithIgnoringCase_StringToShort);
747 result.add(@testStrEndsWithIgnoringCase_StringEqualLength);
748 result.add(@testStrEndsWithIgnoringCase_StringEqualLengthMatch);
749 result.add(@testStrEndsWithIgnoringCase_StringMatch);
750 result.add(@testStrEndsWithIgnoringCase_StringMatchCaseInSensitive);
751
752 result.add(@testLongWordToStr_Zero);
753 result.add(@testLongWordToStr_Four);
754 result.add(@testLongWordToStr_Max);
755
756 result.add(@testBoolToStr_true);
757 result.add(@testBoolToStr_false);
758 END;
759
760END.
Note: See TracBrowser for help on using the repository browser.