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

(-)a/t/db_dependent/Members.t (-2 / +20 lines)
Lines 6-18 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 23;
9
use Test::More tests => 25;
10
use Data::Dumper;
10
use Data::Dumper;
11
11
12
BEGIN {
12
BEGIN {
13
        use_ok('C4::Members');
13
        use_ok('C4::Members');
14
}
14
}
15
15
16
my $dbh = C4::Context->dbh;
17
18
# Start transaction
19
$dbh->{AutoCommit} = 0;
20
$dbh->{RaiseError} = 1;
16
21
17
my $CARDNUMBER   = 'TESTCARD01';
22
my $CARDNUMBER   = 'TESTCARD01';
18
my $FIRSTNAME    = 'Marie';
23
my $FIRSTNAME    = 'Marie';
Lines 65-70 my %data = ( Link Here
65
my $addmem=AddMember(%data);
70
my $addmem=AddMember(%data);
66
ok($addmem, "AddMember()");
71
ok($addmem, "AddMember()");
67
72
73
# It's not really a Move, it's a Copy.
74
my $result = MoveMemberToDeleted($addmem);
75
ok($result,"MoveMemberToDeleted()");
76
77
my $sth = $dbh->prepare("SELECT * from borrowers WHERE borrowernumber=?");
78
$sth->execute($addmem);
79
my $MemberAdded = $sth->fetchrow_hashref;
80
81
$sth = $dbh->prepare("SELECT * from deletedborrowers WHERE borrowernumber=?");
82
$sth->execute($addmem);
83
my $MemberMoved = $sth->fetchrow_hashref;
84
85
is_deeply($MemberMoved,$MemberAdded,"Confirm MoveMemberToDeleted.");
86
68
my $member=GetMemberDetails("",$CARDNUMBER)
87
my $member=GetMemberDetails("",$CARDNUMBER)
69
  or BAIL_OUT("Cannot read member with card $CARDNUMBER");
88
  or BAIL_OUT("Cannot read member with card $CARDNUMBER");
70
89
71
- 

Return to bug 13084