Bug 15896 [QA Followup] - Supress warn when running unit tests

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Kyle M Hall 2016-12-09 12:56:49 -05:00
parent 4b0f08e0e1
commit 2fcceb7f40
1 changed files with 2 additions and 1 deletions

View File

@ -1,4 +1,5 @@
#!/usr/bin/perl
use Carp::Always;
# Copyright 2015 BibLibre
#
@ -252,7 +253,7 @@ subtest "Koha::Account::pay tests" => sub {
$note = $sth->fetchrow_array;
is($note,'$200.00 payment note', '$200.00 payment note is registered');
my $line3 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 42 })->store();
my $line3 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 42, accounttype => 'TEST' })->store();
my $payment_id = $account->pay( { accountlines_id => $line3->id, amount => 42 } );
my $payment = Koha::Account::Lines->find( $payment_id );
is( $payment->amount(), '-42.000000', "Payment paid the specified fine" );