From bf4d17ff275e49360f48915c6f020d917a95846d Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 9 Sep 2016 10:21:33 +0000
Subject: [PATCH] Bug 16851 [QA Followup] - Fix Unit Tests

---
 t/db_dependent/Koha/Patrons.t | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/t/db_dependent/Koha/Patrons.t b/t/db_dependent/Koha/Patrons.t
index 345f530..e11244b 100644
--- a/t/db_dependent/Koha/Patrons.t
+++ b/t/db_dependent/Koha/Patrons.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use Carp::Always;
 
 # Copyright 2015 Koha Development team
 #
@@ -19,7 +20,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 use Test::Warn;
 
 use C4::Circulation;
@@ -128,14 +129,14 @@ subtest 'has_overdues' => sub {
     is( $retrieved_patron->has_overdues, 0, );
 
     my $tomorrow = DateTime->today( time_zone => C4::Context->tz() )->add( days => 1 );
-    my $issue = AddIssue( $new_patron_1->unblessed, $item_1->{barcode} );
+    my $issue = Koha::Issue->new({ borrowernumber => $new_patron_1->id, itemnumber => $item_1->{itemnumber}, date_due => $tomorrow, branchcode => $library->{branchcode} })->store();
     is( $retrieved_patron->has_overdues, 0, );
-    AddReturn( $item_1->{barcode} );
+    $issue->delete();
     my $yesterday = DateTime->today(time_zone => C4::Context->tz())->add( days => -1 );
-    $issue = AddIssue( $new_patron_1->unblessed, $item_1->{barcode}, $yesterday );
+    $issue = Koha::Issue->new({ borrowernumber => $new_patron_1->id, itemnumber => $item_1->{itemnumber}, date_due => $yesterday, branchcode => $library->{branchcode} })->store();
     $retrieved_patron = Koha::Patrons->find( $new_patron_1->borrowernumber );
     is( $retrieved_patron->has_overdues, 1, );
-    AddReturn( $item_1->{barcode} );
+    $issue->delete();
 };
 
 subtest 'update_password' => sub {
-- 
2.1.4