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

fcl-image: make test compile

Browse Source 
git-svn-id: trunk@43294 -
This commit is contained in:
ondrej 2019-10-21 17:28:27 +00:00
parent e265a8a2d6
commit 179819ebab
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 begin
AssertParams(0, bcWhite, bw100, bhFull); AssertParams(0, bcWhite, bw100, bhFull);
AssertParams(1, bcWhite, bw100w, bhFull); AssertParams(1, bcWhite, bwWeighted, bhFull);
AssertParams(2, bcWhite, bw150w, bhFull); AssertParams(2, bcWhite, bw150, bhFull);
AssertParams(3, bcWhite, bw200w, bhFull); AssertParams(3, bcWhite, bw200, bhFull);
AssertParams(4, bcBlack, bw100, bhFull); AssertParams(4, bcBlack, bw100, bhFull);
AssertParams(5, bcBlack, bw100w, bhFull); AssertParams(5, bcBlack, bwWeighted, bhFull);
AssertParams(6, bcBlack, bw150w, bhFull); AssertParams(6, bcBlack, bw150, bhFull);
AssertParams(7, bcBlack, bw200w, bhFull); AssertParams(7, bcBlack, bw200, bhFull);
AssertParams(8, bcBlack, bw100, bhTwoFifth); AssertParams(8, bcBlack, bw100, bhTwoFifth);
AssertParams(9, bcBlack, bw100w, bhTwoFifth); AssertParams(9, bcBlack, bwWeighted, bhTwoFifth);
AssertParams(10, bcBlack, bw150w, bhTwoFifth); AssertParams(10, bcBlack, bw150, bhTwoFifth);
AssertParams(11, bcBlack, bw200w, bhTwoFifth); AssertParams(11, bcBlack, bw200, bhTwoFifth);
end; end;
procedure TTestBarcodes.CheckNumerictypes; procedure TTestBarcodes.CheckNumerictypes;

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

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