From 9de085c89b0afc723d184636d295b2a8f61b248e Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Wed, 15 Oct 2014 18:18:46 -0400 Subject: [PATCH] Bug 13084 - Improve t/db_dependent/Members.t test coverage Added a MoveMemberToDeleted set of tests. TEST PLAN --------- 1) prove -v t/db_dependent/Members.t -- all should pass. 2) Run koha QA tests. --- t/db_dependent/Members.t | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index 592c463..998320b 100755 --- a/t/db_dependent/Members.t +++ b/t/db_dependent/Members.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 56; +use Test::More tests => 58; use Test::MockModule; use Data::Dumper; use C4::Context; @@ -85,6 +85,20 @@ my %data = ( my $addmem=AddMember(%data); ok($addmem, "AddMember()"); +# It's not really a Move, it's a Copy. +my $result = MoveMemberToDeleted($addmem); +ok($result,"MoveMemberToDeleted()"); + +my $sth = $dbh->prepare("SELECT * from borrowers WHERE borrowernumber=?"); +$sth->execute($addmem); +my $MemberAdded = $sth->fetchrow_hashref; + +$sth = $dbh->prepare("SELECT * from deletedborrowers WHERE borrowernumber=?"); +$sth->execute($addmem); +my $MemberMoved = $sth->fetchrow_hashref; + +is_deeply($MemberMoved,$MemberAdded,"Confirm MoveMemberToDeleted."); + my $member=GetMemberDetails("",$CARDNUMBER) or BAIL_OUT("Cannot read member with card $CARDNUMBER"); -- 1.7.9.5