diff options
| author | ondrej <ondrej@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-10-21 17:28:27 +0000 |
|---|---|---|
| committer | ondrej <ondrej@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-10-21 17:28:27 +0000 |
| commit | 0cfc9b79fad86104f6e859c669c3f09f47a98563 (patch) | |
| tree | 4ceee96e8c63d116631c34b1c03663cad386e784 /packages/fcl-image | |
| parent | fc48a12b30ee486212645a519dcf5001e79a6f69 (diff) | |
| download | fpc-0cfc9b79fad86104f6e859c669c3f09f47a98563.tar.gz | |
fcl-image: make test compile
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43294 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-image')
| -rw-r--r-- | packages/fcl-image/test/tcbarcodes.pp | 18 | ||||
| -rw-r--r-- | 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 |