mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-28 15:42:36 +02:00
740e7ca6b5
tests
o currently not yet integrated in the makefile system, use testall.sh/
testall.bat to run the tests
git-svn-id: branches/jvmbackend@18777 -
140 lines
2.1 KiB
ObjectPascal
140 lines
2.1 KiB
ObjectPascal
program tintstr;
|
|
|
|
{$ifdef cpujvm}
|
|
uses
|
|
jdk15;
|
|
|
|
{$macro on}
|
|
{$define writeln:=jlsystem.fout.println}
|
|
{$define write:=jlsystem.fout.println}
|
|
{$endif}
|
|
|
|
var
|
|
l: longint;
|
|
c: cardinal;
|
|
i: int64;
|
|
q: qword;
|
|
|
|
type
|
|
tr1 = packed record
|
|
s: string[1];
|
|
b1,b2,b3,b4: byte;
|
|
end;
|
|
procedure ts1(const res1, res2, res3, res4: string);
|
|
var
|
|
r: tr1;
|
|
begin
|
|
with r do
|
|
begin
|
|
b1:=0;
|
|
b2:=0;
|
|
b3:=0;
|
|
b4:=0;
|
|
str(l,s);
|
|
if (res1<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(1);
|
|
|
|
str(c,s);
|
|
if (res2<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(2);
|
|
|
|
str(i,s);
|
|
if (res3<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(3);
|
|
|
|
str(q,s);
|
|
if (res4<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(4);
|
|
end;
|
|
end;
|
|
|
|
|
|
type
|
|
tr2 = packed record
|
|
s: string[3];
|
|
b1,b2,b3,b4: byte;
|
|
end;
|
|
|
|
procedure ts3(const res1, res2, res3, res4: string);
|
|
var
|
|
r: tr2;
|
|
begin
|
|
with r do
|
|
begin
|
|
b1:=0;
|
|
b2:=0;
|
|
b3:=0;
|
|
b4:=0;
|
|
str(l,s);
|
|
if (res1<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(1);
|
|
|
|
str(c,s);
|
|
if (res2<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(2);
|
|
|
|
str(i,s);
|
|
if (res3<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(3);
|
|
|
|
str(q,s);
|
|
if (res4<>s) or
|
|
(b1<>0) or
|
|
(b2<>0) or
|
|
(b3<>0) or
|
|
(b4<>0) then
|
|
halt(4);
|
|
end;
|
|
end;
|
|
|
|
var
|
|
a: ansistring;
|
|
u: unicodestring;
|
|
xl: longint;
|
|
begin
|
|
l:=high(longint);
|
|
c:=high(cardinal);
|
|
i:=high(int64);
|
|
q:=high(qword);
|
|
ts1('2','4','9','1');
|
|
ts3('214','429','922','184');
|
|
l:=low(longint)+1;
|
|
c:=high(cardinal)-1;
|
|
i:=low(int64)+1;
|
|
q:=high(qword)-1;
|
|
ts1('-','4','-','1');
|
|
ts3('-21','429','-92','184');
|
|
(*
|
|
str(1,a);
|
|
str(2,u);
|
|
*)
|
|
end.
|