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