From 1d8744afce1d4baa7c64a194df1f1db5305e0bd1 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Wed, 15 Oct 2014 18:32:32 -0400 Subject: [PATCH] Bug 13084 - Improve t/db_dependent/Members.t test coverage (3.14 Version) 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 | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index 6904190..632b7ca 100755 --- a/t/db_dependent/Members.t +++ b/t/db_dependent/Members.t @@ -6,13 +6,18 @@ use strict; use warnings; -use Test::More tests => 23; +use Test::More tests => 25; use Data::Dumper; BEGIN { use_ok('C4::Members'); } +my $dbh = C4::Context->dbh; + +# Start transaction +$dbh->{AutoCommit} = 0; +$dbh->{RaiseError} = 1; my $CARDNUMBER = 'TESTCARD01'; my $FIRSTNAME = 'Marie'; @@ -65,6 +70,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