@@ -, +, @@ --- t/db_dependent/Accounts.t | 4 ++-- t/db_dependent/Bookseller.t | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) --- a/t/db_dependent/Accounts.t +++ a/t/db_dependent/Accounts.t @@ -395,7 +395,7 @@ subtest "More Koha::Account::pay tests" => sub { is( $stat->type, 'payment', "Correct statistic type" ); is( $stat->branch, $branch, "Correct branch logged to statistics" ); is( $stat->borrowernumber, $borrowernumber, "Correct borrowernumber logged to statistics" ); - is( $stat->value, "$amount" . "\.0000", "Correct amount logged to statistics" ); + is( 0 + $stat->value, $amount, "Correct amount logged to statistics" ); } }; @@ -449,7 +449,7 @@ subtest "Even more Koha::Account::pay tests" => sub { is( $stat->type, 'payment', "Correct statistic type" ); is( $stat->branch, $branch, "Correct branch logged to statistics" ); is( $stat->borrowernumber, $borrowernumber, "Correct borrowernumber logged to statistics" ); - is( $stat->value, "$partialamount" . "\.0000", "Correct amount logged to statistics" ); + is( 0 + $stat->value, $partialamount, "Correct amount logged to statistics" ); } }; --- a/t/db_dependent/Bookseller.t +++ a/t/db_dependent/Bookseller.t @@ -67,7 +67,7 @@ my $sample_supplier1 = { listincgst => 1, invoiceincgst => 1, tax_rate => '1.0000', - discount => '1.0000', + discount => 1.0000, notes => 'notes1', deliverytime => undef }; @@ -87,7 +87,7 @@ my $sample_supplier2 = { listincgst => 1, invoiceincgst => 1, tax_rate => '2.0000', - discount => '2.0000', + discount => 2.0000, notes => 'notes2', deliverytime => 2 }; --