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

* prepared test to be used as regression test

Browse Source
This commit is contained in:
florian 2023-09-08 22:47:12 +02:00
parent 3b455c1cf2
commit 1c100f0b13
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/hash/examples/crctest.pas
View File

@ -21,7 +21,7 @@ const
function IntToStr128(v: u128): RawByteString; function IntToStr128(v: u128): RawByteString;
begin begin
result := 'todo'; result := '$'+hexstr(v.hi,16)+hexstr(v.lo,16);
end; end;
@ -36,7 +36,10 @@ begin
if crc=result then if crc=result then
writeln('passed') writeln('passed')
else else
writeln('failed (got=',crc,',expected=',result,')'); begin
writeln('failed (got=',crc,',expected=',result,')');
halt(1);
end;
end; end;
procedure perform_crc64(const name, testcase: RawByteString; result: qword); procedure perform_crc64(const name, testcase: RawByteString; result: qword);
@ -50,7 +53,10 @@ begin
if crc=result then if crc=result then
writeln('passed') writeln('passed')
else else
writeln('failed (got=',crc,',expected=',result,')'); begin
writeln('failed (got=',crc,',expected=',result,')');
halt(1);
end;
end; end;
procedure perform_crc128(const name, testcase: RawByteString; result: u128); procedure perform_crc128(const name, testcase: RawByteString; result: u128);
@ -64,7 +70,10 @@ begin
if crc=result then if crc=result then
writeln('passed') writeln('passed')
else else
writeln('failed (got=',IntToStr128(crc),',expected=',IntToStr128(result),')'); begin
writeln('failed (got=',IntToStr128(crc),',expected=',IntToStr128(result),')');
halt(1);
end;
end; end;