paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:06:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add test for case of pointer and size

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-10-22 11:01:14 +02:00
parent ac9973490e
commit 1b6219823b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/vcl-compat/tests/tcnetencoding.pp
View File

@ -26,6 +26,7 @@ type
published published
procedure TestHookUp; procedure TestHookUp;
procedure TestBytesToString; procedure TestBytesToString;
procedure TestPointerLengthToString;
procedure TestBytesToBytes; procedure TestBytesToBytes;
procedure TestStringToString; procedure TestStringToString;
end; end;
@ -210,6 +211,12 @@ begin
AssertBytes(EncDefBytes,Enc.Encode(DefBytes)); AssertBytes(EncDefBytes,Enc.Encode(DefBytes));
end; end;
procedure TTestBase64Encoding.TestPointerLengthToString;
begin
AssertEquals('Encoding',SDefBytes,Enc.EncodeBytesToString(Pointer(DefBytes),Length(DefBytes)));
end;
procedure TTestBase64Encoding.TestStringToString; procedure TTestBase64Encoding.TestStringToString;
begin begin
AssertEquals('Encoding', SDefLetters,Enc.Encode('ABCDE')); AssertEquals('Encoding', SDefLetters,Enc.Encode('ABCDE'));