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 |
- |
|
|