From 179819ebabf888754cf763564ad466d201f7cbbf Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@idefix.freepascal.org>
Date: Mon, 21 Oct 2019 17:28:27 +0000
Subject: [PATCH] fcl-image: make test compile
git-svn-id: trunk@43294 -
---
packages/fcl-image/test/tcbarcodes.pp | 18 +++++++++---------
packages/fcl-image/test/testfpimage.lpr | 2 +-
2 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/packages/fcl-image/test/tcbarcodes.pp b/packages/fcl-image/test/tcbarcodes.pp
index c18d871b4c..941c360201 100644
--- a/packages/fcl-image/test/tcbarcodes.pp
+++ b/packages/fcl-image/test/tcbarcodes.pp
@@ -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;
diff --git a/packages/fcl-image/test/testfpimage.lpr b/packages/fcl-image/test/testfpimage.lpr
index 3f81a78279..2e74e1202f 100644
--- a/packages/fcl-image/test/testfpimage.lpr
+++ b/packages/fcl-image/test/testfpimage.lpr
@@ -3,7 +3,7 @@ program testfpimage;
{$mode objfpc}{$H+}
uses
- sysutils,Classes, consoletestrunner, tcbarcodes, fpbarcode, barcode;
+ sysutils,Classes, consoletestrunner, tcbarcodes, fpbarcode;
type