paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 07:50:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix wrong index error

Browse Source
This commit is contained in:
Pierre Muller 2023-09-07 22:54:55 +02:00
parent fbec954de9
commit 0210254b2d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/units/strutils/tstruth2b.pp
View File

@ -134,7 +134,7 @@ begin
if BinValueBytes[0] <> 154 then halt(10);
if BinValueBytes[1] <> 188 then halt(10);
if BinValueBytes[2] <> 222 then halt(10);
if BinValueBytes[4] <> 0 then halt(10);
if BinValueBytes[3] <> 0 then halt(10);
SetLength(BinValueBytes, HexInLen);
FillChar(BinValueBytes[0], Length(BinValueBytes), 0);
@ -144,7 +144,7 @@ begin
if BinValueBytes[0] <> 154 then halt(11);
if BinValueBytes[1] <> 188 then halt(11);
if BinValueBytes[2] <> 222 then halt(11);
if BinValueBytes[4] <> 0 then halt(11);
if BinValueBytes[3] <> 0 then halt(11);
SetLength(BinValueBytes, HexInLen);
FillChar(BinValueBytes[0], Length(BinValueBytes), 0);
@ -154,7 +154,7 @@ begin
if BinValueBytes[0] <> 154 then halt(12);
if BinValueBytes[1] <> 188 then halt(12);
if BinValueBytes[2] <> 222 then halt(12);
if BinValueBytes[4] <> 0 then halt(12);
if BinValueBytes[3] <> 0 then halt(12);
{* test complex offset methods *}
// ansistring