View | Details | Raw Unified | Return to bug 13084
Collapse All | Expand All

(-)a/t/db_dependent/Members.t (-2 / +15 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 56;
20
use Test::More tests => 58;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Data::Dumper;
22
use Data::Dumper;
23
use C4::Context;
23
use C4::Context;
Lines 85-90 my %data = ( Link Here
85
my $addmem=AddMember(%data);
85
my $addmem=AddMember(%data);
86
ok($addmem, "AddMember()");
86
ok($addmem, "AddMember()");
87
87
88
# It's not really a Move, it's a Copy.
89
my $result = MoveMemberToDeleted($addmem);
90
ok($result,"MoveMemberToDeleted()");
91
92
my $sth = $dbh->prepare("SELECT * from borrowers WHERE borrowernumber=?");
93
$sth->execute($addmem);
94
my $MemberAdded = $sth->fetchrow_hashref;
95
96
$sth = $dbh->prepare("SELECT * from deletedborrowers WHERE borrowernumber=?");
97
$sth->execute($addmem);
98
my $MemberMoved = $sth->fetchrow_hashref;
99
100
is_deeply($MemberMoved,$MemberAdded,"Confirm MoveMemberToDeleted.");
101
88
my $member=GetMemberDetails("",$CARDNUMBER)
102
my $member=GetMemberDetails("",$CARDNUMBER)
89
  or BAIL_OUT("Cannot read member with card $CARDNUMBER");
103
  or BAIL_OUT("Cannot read member with card $CARDNUMBER");
90
104
91
- 

Return to bug 13084