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