paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test (comparechar0 is defined as returning values <, =, > 0, not

Browse Source 
just -1, 0, 1)

git-svn-id: trunk@9220 -
This commit is contained in:
Jonas Maebe 2007-11-12 21:25:27 +00:00
parent c64ab62bdf
commit a68581efef
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/tcmp0.pp
View File

@ -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');