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

Last change on this file since 63 was 41, checked in by RBRi, 19 years ago

% updated commandlineparser test
% updated test framework
  • Property svn:eol-style set to native
File size: 19.1 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('');
219
220 tmpSerialized := tmpResult.getSerializedString;
221
222 tmpResult.readValuesFromSerializedString(tmpSerialized);
223
224 assertEqualsInt('testTSerializableStringList_readValuesFromSerializedString_2', 5, tmpResult.getCount);
225 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '&test&', tmpResult.get(0));
226 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '"test"', tmpResult.get(1));
227 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(2));
228 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', 'abc\&', tmpResult.get(3));
229 assertEqualsString('testTSerializableStringList_readValuesFromSerializedString_2', '', tmpResult.get(4));
230
231 tmpResult.Destroy;
232 END;
233
234
235 // ------------------------------------------------------
236
237
238 PROCEDURE testEscapeAllCharsBy_Empty;
239 VAR
240 tmpResult : String;
241 BEGIN
242 tmpResult := StrEscapeAllCharsBy('', ['b'], '\');
243
244 assertEqualsString('testEscapeAllCharsBy_Empty', '', tmpResult);
245 END;
246
247
248 PROCEDURE testEscapeAllCharsBy_EmptyChars;
249 VAR
250 tmpResult : String;
251 BEGIN
252 tmpResult := StrEscapeAllCharsBy('abcd', [], '\');
253
254 assertEqualsString('testEscapeAllCharsBy_EmptyChars', 'abcd', tmpResult);
255 END;
256
257
258 PROCEDURE testEscapeAllCharsBy;
259 VAR
260 tmpResult : String;
261 BEGIN
262 tmpResult := StrEscapeAllCharsBy('abc', ['b'], '\');
263
264 assertEqualsString('testEscapeAllCharsBy', 'a\bc', tmpResult);
265 END;
266
267
268 PROCEDURE testEscapeAllCharsBy_EscapeEscape;
269 VAR
270 tmpResult : String;
271 BEGIN
272 tmpResult := StrEscapeAllCharsBy('a\bc', ['b'], '\');
273
274 assertEqualsString('testEscapeAllCharsBy_EscapeEscape', 'a\\\bc', tmpResult);
275 END;
276
277
278 PROCEDURE testStrExtractStrings_EmptyReceiver;
279 VAR
280 tmpResult : TStringList;
281 BEGIN
282 tmpResult := TStringList.Create;
283 StrExtractStrings(tmpResult, '', ['x'], '\');
284
285 assertEqualsInt('testStrExtractStrings_EmptyReceiver', 0, tmpResult.count);
286 tmpResult.Destroy;
287 END;
288
289
290 PROCEDURE testStrExtractStrings_OnlyOnePart;
291 VAR
292 tmpResult : TStringList;
293 BEGIN
294 tmpResult := TStringList.Create;
295 StrExtractStrings(tmpResult, 'abcd', ['x'], '\');
296
297 assertEqualsInt('testStrExtractStrings_OnlyOnePart', 1, tmpResult.count);
298 assertEqualsString('testStrExtractStrings_OnlyOnePart', 'abcd', tmpResult[0]);
299
300 tmpResult.Destroy;
301 END;
302
303
304 PROCEDURE testStrExtractStrings_ManyParts;
305 VAR
306 tmpResult : TStringList;
307 BEGIN
308 tmpResult := TStringList.Create;
309 StrExtractStrings(tmpResult, 'abxcd', ['x'], '\');
310
311 assertEqualsInt('testStrExtractStrings_ManyParts', 2, tmpResult.count);
312 assertEqualsString('testStrExtractStrings_ManyParts', 'ab', tmpResult[0]);
313 assertEqualsString('testStrExtractStrings_ManyParts', 'cd', tmpResult[1]);
314
315 tmpResult.Destroy;
316 END;
317
318
319 PROCEDURE testStrExtractStrings_StartWithDelimiter;
320 VAR
321 tmpResult : TStringList;
322 BEGIN
323 tmpResult := TStringList.Create;
324 StrExtractStrings(tmpResult, 'xab', ['x'], '\');
325
326 assertEqualsInt('testStrExtractStrings_StartWithDelimiter', 2, tmpResult.count);
327 assertEqualsString('testStrExtractStrings_StartWithDelimiter', '', tmpResult[0]);
328 assertEqualsString('testStrExtractStrings_StartWithDelimiter', 'ab', tmpResult[1]);
329
330 tmpResult.Destroy;
331 END;
332
333
334 PROCEDURE testStrExtractStrings_EndWithDelimiter;
335 VAR
336 tmpResult : TStringList;
337 BEGIN
338 tmpResult := TStringList.Create;
339 StrExtractStrings(tmpResult, 'abx', ['x'], '\');
340
341 assertEqualsInt('testStrExtractStrings_EndWithDelimiter', 2, tmpResult.count);
342 assertEqualsString('testStrExtractStrings_EndWithDelimiter', 'ab', tmpResult[0]);
343 assertEqualsString('testStrExtractStrings_EndWithDelimiter', '', tmpResult[1]);
344
345 tmpResult.Destroy;
346 END;
347
348
349 PROCEDURE testStrExtractStrings_EmptyPartInside;
350 VAR
351 tmpResult : TStringList;
352 BEGIN
353 tmpResult := TStringList.Create;
354 StrExtractStrings(tmpResult, 'axxb', ['x'], '\');
355
356 assertEqualsInt('testStrExtractStrings_EmptyPartInside', 3, tmpResult.count);
357 assertEqualsString('testStrExtractStrings_EmptyPartInside', 'a', tmpResult[0]);
358 assertEqualsString('testStrExtractStrings_EmptyPartInside', '', tmpResult[1]);
359 assertEqualsString('testStrExtractStrings_EmptyPartInside', 'b', tmpResult[2]);
360
361 tmpResult.Destroy;
362 END;
363
364
365 PROCEDURE testStrExtractStrings_NoDelimiter;
366 VAR
367 tmpResult : TStringList;
368 BEGIN
369 tmpResult := TStringList.Create;
370 StrExtractStrings(tmpResult, 'axxb', [], '\');
371
372 assertEqualsInt('testStrExtractStrings_NoDelimiter', 1, tmpResult.count);
373 assertEqualsString('testStrExtractStrings_NoDelimiter', 'axxb', tmpResult[0]);
374
375 tmpResult.Destroy;
376 END;
377
378
379 PROCEDURE testStrExtractStrings_EscapedDelimiter;
380 VAR
381 tmpResult : TStringList;
382 BEGIN
383 tmpResult := TStringList.Create;
384 StrExtractStrings(tmpResult, 'a\xb', ['x'], '\');
385
386 assertEqualsInt('testStrExtractStrings_EscapedDelimiter', 1, tmpResult.count);
387 assertEqualsString('testStrExtractStrings_EscapedDelimiter', 'axb', tmpResult[0]);
388
389 tmpResult.Destroy;
390 END;
391
392 PROCEDURE testStrExtractStrings_EscapedEscapeChar;
393 VAR
394 tmpResult : TStringList;
395 BEGIN
396 tmpResult := TStringList.Create;
397 StrExtractStrings(tmpResult, 'a\\xb', ['x'], '\');
398
399 assertEqualsInt('testStrExtractStrings_EscapedEscapeChar', 2, tmpResult.count);
400 assertEqualsString('testStrExtractStrings_EscapedEscapeChar', 'a\', tmpResult[0]);
401 assertEqualsString('testStrExtractStrings_EscapedEscapeChar', 'b', tmpResult[1]);
402
403 tmpResult.Destroy;
404 END;
405
406
407 PROCEDURE testTrimChars_Empty;
408 VAR
409 tmpResult : String;
410 BEGIN
411 tmpResult := StrTrimChars('', ['b', 'x']);
412
413 assertEqualsString('testTrimChars_Empty', '', tmpResult);
414 END;
415
416
417 PROCEDURE testTrimChars_RemoveAll;
418 VAR
419 tmpResult : String;
420 BEGIN
421 tmpResult := StrTrimChars('bxxxbx', ['b', 'x']);
422
423 assertEqualsString('testTrimChars_RemoveAll', '', tmpResult);
424 END;
425
426
427 PROCEDURE testTrimChars_LeftOnly;
428 VAR
429 tmpResult : String;
430 BEGIN
431 tmpResult := StrTrimChars('bxbxxay', ['b', 'x']);
432
433 assertEqualsString('testTrimChars_LeftOnly', 'ay', tmpResult);
434 END;
435
436
437 PROCEDURE testTrimChars_RightOnly;
438 VAR
439 tmpResult : String;
440 BEGIN
441 tmpResult := StrTrimChars('aybxbxx', ['b', 'x']);
442
443 assertEqualsString('testTrimChars_LeftOnly', 'ay', tmpResult);
444 END;
445
446
447 PROCEDURE testTrimChars_CharsInside;
448 VAR
449 tmpResult : String;
450 BEGIN
451 tmpResult := StrTrimChars('bxabxvvx', ['b', 'x']);
452
453 assertEqualsString('testTrimChars_CharsInside', 'abxvv', tmpResult);
454 END;
455
456
457 PROCEDURE testTrimChars_Nothing;
458 VAR
459 tmpResult : String;
460 BEGIN
461 tmpResult := StrTrimChars('acdef', ['b', 'x']);
462
463 assertEqualsString('testTrimChars_Nothing', 'acdef', tmpResult);
464 END;
465
466
467 PROCEDURE testTrim;
468 VAR
469 tmpResult : String;
470 BEGIN
471 tmpResult := StrTrim(' a bc ');
472
473 assertEqualsString('testTrim', 'a bc', tmpResult);
474 END;
475
476
477 PROCEDURE testStrEndsWith_BothEmpty;
478 VAR
479 tmpResult : Boolean;
480 BEGIN
481 tmpResult := StrEndsWith('', '');
482
483 assertTrue('testStrEndsWith_BothEmpty', tmpResult);
484 END;
485
486
487 PROCEDURE testStrEndsWith_StringEmpty;
488 VAR
489 tmpResult : Boolean;
490 BEGIN
491 tmpResult := StrEndsWith('', 'end');
492
493 assertFalse('testStrEndsWith_StringEmpty', tmpResult);
494 END;
495
496
497 PROCEDURE testStrEndsWith_MatchEmpty;
498 VAR
499 tmpResult : Boolean;
500 BEGIN
501 tmpResult := StrEndsWith('test', '');
502
503 assertTrue('testStrEndsWith_MatchEmpty', tmpResult);
504 END;
505
506
507 PROCEDURE testStrEndsWith_StringToShort;
508 VAR
509 tmpResult : Boolean;
510 BEGIN
511 tmpResult := StrEndsWith('test', 'test1');
512
513 assertFalse('testStrEndsWith_StringToShort', tmpResult);
514 END;
515
516
517 PROCEDURE testStrEndsWith_StringEqualLength;
518 VAR
519 tmpResult : Boolean;
520 BEGIN
521 tmpResult := StrEndsWith('test', 'best');
522
523 assertFalse('testStrEndsWith_StringEqualLength', tmpResult);
524 END;
525
526
527 PROCEDURE testStrEndsWith_StringEqualLengthMatch;
528 VAR
529 tmpResult : Boolean;
530 BEGIN
531 tmpResult := StrEndsWith('test', 'test');
532
533 assertTrue('testStrEndsWith_StringEqualLengthMatch', tmpResult);
534 END;
535
536
537 PROCEDURE testStrEndsWith_StringMatch;
538 VAR
539 tmpResult : Boolean;
540 BEGIN
541 tmpResult := StrEndsWith('a simple test', 'test');
542
543 assertTrue('testStrEndsWith_StringMatch', tmpResult);
544 END;
545
546
547 PROCEDURE testStrEndsWith_StringMatchCaseSensitive;
548 VAR
549 tmpResult : Boolean;
550 BEGIN
551 tmpResult := StrEndsWith('a simple tEst', 'test');
552
553 assertFalse('testStrEndsWith_StringMatchCaseSensitive', tmpResult);
554 END;
555
556
557 PROCEDURE testStrEndsWithIgnoringCase_BothEmpty;
558 VAR
559 tmpResult : Boolean;
560 BEGIN
561 tmpResult := StrEndsWithIgnoringCase('', '');
562
563 assertTrue('testStrEndsWithIgnoringCase_BothEmpty', tmpResult);
564 END;
565
566
567 PROCEDURE testStrEndsWithIgnoringCase_StringEmpty;
568 VAR
569 tmpResult : Boolean;
570 BEGIN
571 tmpResult := StrEndsWithIgnoringCase('', 'end');
572
573 assertFalse('testStrEndsWithIgnoringCase_StringEmpty', tmpResult);
574 END;
575
576
577 PROCEDURE testStrEndsWithIgnoringCase_MatchEmpty;
578 VAR
579 tmpResult : Boolean;
580 BEGIN
581 tmpResult := StrEndsWithIgnoringCase('test', '');
582
583 assertTrue('testStrEndsWithIgnoringCase_MatchEmpty', tmpResult);
584 END;
585
586
587 PROCEDURE testStrEndsWithIgnoringCase_StringToShort;
588 VAR
589 tmpResult : Boolean;
590 BEGIN
591 tmpResult := StrEndsWithIgnoringCase('test', 'test1');
592
593 assertFalse('testStrEndsWithIgnoringCase_StringToShort', tmpResult);
594 END;
595
596
597 PROCEDURE testStrEndsWithIgnoringCase_StringEqualLength;
598 VAR
599 tmpResult : Boolean;
600 BEGIN
601 tmpResult := StrEndsWithIgnoringCase('test', 'best');
602
603 assertFalse('testStrEndsWithIgnoringCase_StringEqualLength', tmpResult);
604 END;
605
606
607 PROCEDURE testStrEndsWithIgnoringCase_StringEqualLengthMatch;
608 VAR
609 tmpResult : Boolean;
610 BEGIN
611 tmpResult := StrEndsWithIgnoringCase('test', 'test');
612
613 assertTrue('testStrEndsWithIgnoringCase_StringEqualLengthMatch', tmpResult);
614 END;
615
616
617 PROCEDURE testStrEndsWithIgnoringCase_StringMatch;
618 VAR
619 tmpResult : Boolean;
620 BEGIN
621 tmpResult := StrEndsWithIgnoringCase('a simple test', 'test');
622
623 assertTrue('testStrEndsWithIgnoringCase_StringMatch', tmpResult);
624 END;
625
626
627 PROCEDURE testStrEndsWithIgnoringCase_StringMatchCaseInSensitive;
628 VAR
629 tmpResult : Boolean;
630 BEGIN
631 tmpResult := StrEndsWithIgnoringCase('a simple tEst', 'test');
632
633 assertTrue('testStrEndsWithIgnoringCase_StringMatchCaseSensitive', tmpResult);
634 END;
635
636
637 // ----------------------------------------------------------
638
639
640 FUNCTION getStringUtilsUnitTests : TList;
641 BEGIN
642 result := TList.Create;
643
644 result.add(@testTSerializableStringList_Construction);
645 result.add(@testTSerializableStringList_Add);
646 result.add(@testTSerializableStringList_Get_Empty);
647 result.add(@testTSerializableStringList_Get);
648 result.add(@testTSerializableStringList_getSerializedString_Empty);
649 result.add(@testTSerializableStringList_getSerializedString);
650 result.add(@testTSerializableStringList_getSerializedString);
651 result.add(@testTSerializableStringList_getSerializedString_WithBlanks);
652 result.add(@testTSerializableStringList_getSerializedString_Escaping);
653 result.add(@testTSerializableStringList_readValuesFromSerializedString);
654 result.add(@testTSerializableStringList_readValuesFromSerializedString_quoted);
655 result.add(@testTSerializableStringList_readValuesFromSerializedString_empty);
656 result.add(@testTSerializableStringList_readValuesFromSerializedString_firstempty);
657 result.add(@testTSerializableStringList_readValuesFromSerializedString_2);
658
659 result.add(@testEscapeAllCharsBy);
660 result.add(@testEscapeAllCharsBy_Empty);
661 result.add(@testEscapeAllCharsBy_EmptyChars);
662 result.add(@testEscapeAllCharsBy_EscapeEscape);
663
664 result.add(@testStrExtractStrings_EmptyReceiver);
665 result.add(@testStrExtractStrings_OnlyOnePart);
666 result.add(@testStrExtractStrings_ManyParts);
667 result.add(@testStrExtractStrings_StartWithDelimiter);
668 result.add(@testStrExtractStrings_EndWithDelimiter);
669 result.add(@testStrExtractStrings_EmptyPartInside);
670 result.add(@testStrExtractStrings_NoDelimiter);
671 result.add(@testStrExtractStrings_EscapedDelimiter);
672 result.add(@testStrExtractStrings_EscapedEscapeChar);
673
674 result.add(@testTrimChars_Empty);
675 result.add(@testTrimChars_RemoveAll);
676 result.add(@testTrimChars_LeftOnly);
677 result.add(@testTrimChars_RightOnly);
678 result.add(@testTrimChars_CharsInside);
679 result.add(@testTrimChars_Nothing);
680 result.add(@testTrim);
681
682 result.add(@testStrEndsWith_BothEmpty);
683 result.add(@testStrEndsWith_StringEmpty);
684 result.add(@testStrEndsWith_MatchEmpty);
685 result.add(@testStrEndsWith_StringToShort);
686 result.add(@testStrEndsWith_StringEqualLength);
687 result.add(@testStrEndsWith_StringEqualLengthMatch);
688 result.add(@testStrEndsWith_StringMatch);
689 result.add(@testStrEndsWith_StringMatchCaseSensitive);
690
691 result.add(@testStrEndsWithIgnoringCase_BothEmpty);
692 result.add(@testStrEndsWithIgnoringCase_StringEmpty);
693 result.add(@testStrEndsWithIgnoringCase_MatchEmpty);
694 result.add(@testStrEndsWithIgnoringCase_StringToShort);
695 result.add(@testStrEndsWithIgnoringCase_StringEqualLength);
696 result.add(@testStrEndsWithIgnoringCase_StringEqualLengthMatch);
697 result.add(@testStrEndsWithIgnoringCase_StringMatch);
698 result.add(@testStrEndsWithIgnoringCase_StringMatchCaseInSensitive);
699
700 END;
701
702END.
Note: See TracBrowser for help on using the repository browser.