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

* fixed typo in diagnostic output

Browse Source 
git-svn-id: trunk@9470 -
This commit is contained in:
Jonas Maebe 2007-12-16 10:10:41 +00:00
parent 4987542446
commit 72f6ec3c8f
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

@ -83,7 +83,7 @@ end;
procedure testAnsiStrLComp;
begin
teststr:='AnsiStrIComp';
teststr:='AnsiStrLComp';
check (ansistrlcomp ('', '', 99) = 0, 1); { Trivial case. }
check (ansistrlcomp ('a', 'a', 99) = 0, 2); { Identity. }
check (ansistrlcomp ('abc', 'abc', 99) = 0, 3); { Multicharacter. }
@ -164,4 +164,4 @@ begin
testAnsiStrLIComp;
if goterror then
halt(1);
end.
end.