paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 05:59:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't rely on #32 (space, which replaces #0 in strings when comparing)

Browse Source 
being considered as smaller than any other character

git-svn-id: trunk@9487 -
This commit is contained in:
Jonas Maebe 2007-12-17 15:36:11 +00:00
parent 0bf43d223b
commit 91aa85ab4e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/units/sysutils/tastrcmp.pp
View File

@ -137,8 +137,8 @@ begin
check(ansistrlicomp('c', 'b', 1) > 0, 5);
check(ansistrlicomp('abc', 'AbC', 3) = 0, 6);
check(ansistrlicomp('0123456789', '0123456789', 10) = 0, 7);
check(ansistrlicomp(#0'123456789', '0123456789', 10) < 0, 8);
check(ansistrlicomp('AbC', #0'bC', 3) > 0, 9);
check(ansistrlicomp(#0'123456789', #0'123456799', 10) < 0, 8);
check(ansistrlicomp(#0'bD', #0'bC', 3) > 0, 9);
check(ansistrlicomp('AbC', 'A'#0#0,3) > 0, 10);
check(ansistrlicomp('AbC', 'Ab'#0, 3) > 0, 11);
check(ansistrlicomp('AbC', 'ab'#0, 3) > 0, 12);