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