@@ -, +, @@ --------- -- all should pass. --- t/db_dependent/Members.t | 21 ++++++++++++++++++++- 1 files changed, 20 insertions(+), 1 deletions(-) --- a/t/db_dependent/Members.t +++ a/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"); --