diff options
| -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 |