* fixed typo in diagnostic output

git-svn-id: trunk@9470 -

tests/test/units/sysutils/tastrcmp.pp

@@ -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.