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

Merge revision: r43294

Browse Source 
Author: ondrej
Date: Montag, 21. Oktober 2019 19:28:27
Message:
fcl-image: make test compile
----
Modified : /trunk/packages/fcl-image/test/tcbarcodes.pp
Modified : /trunk/packages/fcl-image/test/testfpimage.lpr

git-svn-id: branches/fixes_3_2@44390 -
This commit is contained in:
ondrej 2020-03-29 06:34:44 +00:00
parent a77f220a51
commit 6b3a22efb5
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-image/test/tcbarcodes.pp
View File

@ -739,17 +739,17 @@ procedure TTestBarcodes.CheckParamsType;
begin
AssertParams(0, bcWhite, bw100, bhFull);
AssertParams(1, bcWhite, bw100w, bhFull);
AssertParams(2, bcWhite, bw150w, bhFull);
AssertParams(3, bcWhite, bw200w, bhFull);
AssertParams(1, bcWhite, bwWeighted, bhFull);
AssertParams(2, bcWhite, bw150, bhFull);
AssertParams(3, bcWhite, bw200, bhFull);
AssertParams(4, bcBlack, bw100, bhFull);
AssertParams(5, bcBlack, bw100w, bhFull);
AssertParams(6, bcBlack, bw150w, bhFull);
AssertParams(7, bcBlack, bw200w, bhFull);
AssertParams(5, bcBlack, bwWeighted, bhFull);
AssertParams(6, bcBlack, bw150, bhFull);
AssertParams(7, bcBlack, bw200, bhFull);
AssertParams(8, bcBlack, bw100, bhTwoFifth);
AssertParams(9, bcBlack, bw100w, bhTwoFifth);
AssertParams(10, bcBlack, bw150w, bhTwoFifth);
AssertParams(11, bcBlack, bw200w, bhTwoFifth);
AssertParams(9, bcBlack, bwWeighted, bhTwoFifth);
AssertParams(10, bcBlack, bw150, bhTwoFifth);
AssertParams(11, bcBlack, bw200, bhTwoFifth);
end;
procedure TTestBarcodes.CheckNumerictypes;

2
packages/fcl-image/test/testfpimage.lpr
View File

@ -3,7 +3,7 @@ program testfpimage;
{$mode objfpc}{$H+}
uses
sysutils,Classes, consoletestrunner, tcbarcodes, fpbarcode, barcode;
sysutils,Classes, consoletestrunner, tcbarcodes, fpbarcode;
type