diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-11-12 21:25:27 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-11-12 21:25:27 +0000 |
| commit | 44df34ea48bda50495214d939fc92be6312e600c (patch) | |
| tree | 064ae36b7e1bf75c330c02d9f5b9cf495b56fd3e /tests/test | |
| parent | 52f70e4852e615df5d5f2641f5ab80315accae25 (diff) | |
| download | fpc-44df34ea48bda50495214d939fc92be6312e600c.tar.gz | |
* fixed test (comparechar0 is defined as returning values <, =, > 0, not
just -1, 0, 1)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9220 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/test')
| -rw-r--r-- | tests/test/tcmp0.pp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/test/tcmp0.pp b/tests/test/tcmp0.pp index 5f1759d764..7378bdea07 100644 --- a/tests/test/tcmp0.pp +++ b/tests/test/tcmp0.pp @@ -10,13 +10,13 @@ begin if res<>0 then halt(1); res:=CompareChar0(str1[0],str3[0],maxint); - if res<>-1 then + if res>=0 then halt(1); res:=CompareChar0(str4[0],str1[0],maxint); - if res<>-1 then + if res>=0 then halt(1); res:=CompareChar0(str1[0],str4[0],maxint); - if res<>1 then + if res<=0 then halt(1); writeln('ok'); |