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

* test for bin2hex

Browse Source 
git-svn-id: trunk@48968 -
This commit is contained in:
michael 2021-03-14 15:31:52 +00:00
parent 62b486a427
commit f5389cbc28
2 changed files with 95 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -16211,6 +16211,7 @@ tests/test/units/strings/tstrcopy.pp svneol=native#text/plain
tests/test/units/strings/tstrings1.pp svneol=native#text/plain tests/test/units/strings/tstrings1.pp svneol=native#text/plain
tests/test/units/strutils/taddchar.pp svneol=native#text/plain tests/test/units/strutils/taddchar.pp svneol=native#text/plain
tests/test/units/strutils/taddcharr.pp svneol=native#text/plain tests/test/units/strutils/taddcharr.pp svneol=native#text/plain
tests/test/units/strutils/tbin2hex.pp svneol=native#text/plain
tests/test/units/strutils/tbintohex.pp svneol=native#text/plain tests/test/units/strutils/tbintohex.pp svneol=native#text/plain
tests/test/units/strutils/tboyer.pp svneol=native#text/pascal tests/test/units/strutils/tboyer.pp svneol=native#text/pascal
tests/test/units/strutils/tdec2numb.pp svneol=native#text/plain tests/test/units/strutils/tdec2numb.pp svneol=native#text/plain

94
tests/test/units/strutils/tbin2hex.pp Normal file
View File

@ -0,0 +1,94 @@
program BinToHex_tests;
{$IFDEF FPC}
{$mode Delphi}
{$ENDIF}
uses
SysUtils, Strutils;
var
BinByteArray: array[0..10] of Byte = (0, 2, 3, 7, 8, 10, 11, 12, 13, 14, 15);
HexText: String;
HexTextA: AnsiString;
HexTextW: WideString;
BinBytes, HexBytes: TBytes;
begin
{ mode dependent char }
SetLength(HexText, Length(BinByteArray) * 2);
BinToHex(@BinByteArray[0], PChar(HexText), Length(BinByteArray));
if HexText <> '00020307080A0B0C0D0E0F' then halt(1);
SetLength(HexText, Length(BinByteArray) * 2);
BinToHex(Pointer(@BinByteArray[0]), PChar(HexText), Length(BinByteArray));
if HexText <> '00020307080A0B0C0D0E0F' then halt(2);
SetLength(HexText, Length(BinByteArray) * 2);
BinToHex(@BinByteArray, PChar(HexText), Length(BinByteArray));
if HexText <> '00020307080A0B0C0D0E0F' then halt(3);
{ ansichar variants }
SetLength(HexTextA, Length(BinByteArray) * 2);
BinToHex(@BinByteArray[0], PAnsiChar(HexTextA), Length(BinByteArray));
if HexTextA <> '00020307080A0B0C0D0E0F' then halt(4);
SetLength(HexTextA, Length(BinByteArray) * 2);
BinToHex(Pointer(@BinByteArray[0]), PAnsiChar(HexTextA), Length(BinByteArray));
if HexTextA <> '00020307080A0B0C0D0E0F' then halt(5);
SetLength(HexTextA, Length(BinByteArray) * 2);
BinToHex(@BinByteArray, PAnsiChar(HexTextA), Length(BinByteArray));
if HexTextA <> '00020307080A0B0C0D0E0F' then halt(6);
{ widechar variants }
SetLength(HexTextW, Length(BinByteArray) * 2);
BinToHex(@BinByteArray[0], PWideChar(HexTextW), Length(BinByteArray));
if HexTextW <> '00020307080A0B0C0D0E0F' then halt(7);
SetLength(HexTextW, Length(BinByteArray) * 2);
BinToHex(Pointer(@BinByteArray[0]), PWideChar(HexTextW), Length(BinByteArray));
if HexTextW <> '00020307080A0B0C0D0E0F' then halt(8);
SetLength(HexTextW, Length(BinByteArray) * 2);
BinToHex(@BinByteArray, PWideChar(HexTextW), Length(BinByteArray));
if HexTextW <> '00020307080A0B0C0D0E0F' then halt(9);
{ two char pointer variants }
SetLength(HexTextA, Length(BinByteArray) * 2);
BinToHex(PAnsiChar(@BinByteArray[0]), PAnsiChar(HexTextA), Length(BinByteArray));
if HexTextA <> '00020307080A0B0C0D0E0F' then halt(10);
SetLength(HexTextW, Length(BinByteArray) * 2);
BinToHex(PAnsiChar(@BinByteArray), PWideChar(HexTextW), Length(BinByteArray));
if HexTextW <> '00020307080A0B0C0D0E0F' then halt(11);
{ TBytes variants }
BinBytes := TBytes.Create(1, 4, 5, 9, 10, 11, 12, 13, 14, 15);
try
SetLength(HexBytes, Length(BinBytes) * 2);
FillByte(HexBytes[0], Length(HexBytes), 0);
BinToHex(BinBytes, 0, HexBytes, 0, Length(BinBytes));
if TEncoding.ANSI.GetString(HexBytes) <> '010405090A0B0C0D0E0F' then halt(12);
SetLength(HexBytes, Length(BinBytes) * 2);
FillByte(HexBytes[0], Length(HexBytes), Ord('a'));
BinToHex(BinBytes, 2, HexBytes, 0, Length(BinBytes) - 2);
if TEncoding.Default.GetString(HexBytes) <> '05090A0B0C0D0E0Faaaa' then halt(13);
SetLength(HexBytes, Length(BinBytes) * 2);
FillByte(HexBytes[0], Length(HexBytes), Ord('a'));
BinToHex(BinBytes, 4, HexBytes, 2, Length(BinBytes) - 4);
if TEncoding.Default.GetString(HexBytes) <> 'aa0A0B0C0D0E0Faaaaaa' then halt(14);
SetLength(HexBytes, Length(BinBytes) * 2);
FillByte(HexBytes[0], Length(HexBytes), Ord('a'));
BinToHex(BinBytes, 0, HexBytes, 4, Length(BinBytes) - 2);
if TEncoding.Default.GetString(HexBytes) <> 'aaaa010405090A0B0C0D' then halt(15);
finally
SetLength(HexBytes, 0);
SetLength(BinBytes, 0);
end;
writeln('everything passed');
end.