blob: 0d8aed02ec6ae48bedd4fa990770e3763e7d324f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
program TestStrIComp;
uses
SysUtils;
var l: longint;
begin
l := StrIComp('abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');
if (l <> 0) then
begin
writeln('error: expected 0, got ',l);
halt(1);
end;
l := StrIComp('ABCDEFGHIJKLMNOPQRSTUVWXYZ','abcdefghijklmnopqrstuvwxyz');
if (l <> 0) then
begin
writeln('error: expected 0, got ',l);
halt(1);
end;
end.
|