From 2601da14237b1502644d94d91b6794e3151fcb57 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 1 Sep 2015 14:19:34 +0100 Subject: [PATCH] Bug 12768: qa follow-up --- t/db_dependent/Circulation/Chargelostitem.t | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/t/db_dependent/Circulation/Chargelostitem.t b/t/db_dependent/Circulation/Chargelostitem.t index 06770c9..b19386a 100644 --- a/t/db_dependent/Circulation/Chargelostitem.t +++ b/t/db_dependent/Circulation/Chargelostitem.t @@ -1,10 +1,5 @@ #!/usr/bin/perl -# -# This Koha test module is a stub! -# Add more tests here!!! -use strict; -use warnings; use Modern::Perl; use Test::MockModule; @@ -56,7 +51,7 @@ if (@categories) { $categorycode = $categories[0]->{categorycode} } else { $categorycode = 'C'; - C4::Context->dbh->do( + $dbh->do( "INSERT INTO categories(categorycode) VALUES(?)", undef, $categorycode); $category_created = 1; } @@ -83,7 +78,7 @@ my @accountline = C4::Accounts::getcharges($borrowernumber); is( scalar(@accountline), 1, 'accountline should have 1 row' ); is( int($accountline[0]->{amount}), $processfee, "The accountline amount should be precessfee value " ); is( $accountline[0]->{accounttype}, 'PF', "The accountline accounttype should be PF " ); -is( $accountline[0]->{borrowernumber}, $borrowernumber, "The accountline borrowernumber should be the exemple borrownumber" ); +is( $accountline[0]->{borrowernumber}, $borrowernumber, "The accountline borrowernumber should be the example borrowernumber" ); my $itemnumber = C4::Items::GetItemnumberFromBarcode('0101'); is( $accountline[0]->{itemnumber}, $itemnumber, "The accountline itemnumber should the linked with barcode '0101'" ); is( $accountline[0]->{description}, 'test ' . $issue->{itemnumber}, "The accountline description should be 'test'" ); -- 2.1.0