| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 |  | 19 |  | 
          
            
              | 20 | use Test::More tests => 13; | 20 | use Test::More tests => 16; | 
        
          | 21 | use Test::Warn; | 21 | use Test::Warn; | 
        
          | 22 |  | 22 |  | 
        
          | 23 | use Koha::Database; | 23 | use Koha::Database; | 
  
    | Lines 46-56
          ok( ref($ret) eq 'Koha::Borrower', "Set returns object on success" );
      
      
        Link Here | 
        
          | 46 | is( $object2->surname(), "Test Borrower Surname 3", "Set sets first field correctly" ); | 46 | is( $object2->surname(), "Test Borrower Surname 3", "Set sets first field correctly" ); | 
        
          | 47 | is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" ); | 47 | is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" ); | 
        
          | 48 |  | 48 |  | 
          
            
              | 49 | $ret = $object->set({ surname => "Test Borrower Surname 4", bork => "bork" }); | 49 | warning_is { $ret = $object->set({ surname => "Test Borrower Surname 4", bork => "bork" }) } "No property bork!", "Expected 'No property bork!' caught"; | 
        
          | 50 | is( $object2->surname(), "Test Borrower Surname 3", "Bad Set does not set field" ); | 50 | is( $object2->surname(), "Test Borrower Surname 3", "Bad Set does not set field" ); | 
        
          | 51 | is( $ret, 0, "Set returns 0 when passed a bad property" ); | 51 | is( $ret, 0, "Set returns 0 when passed a bad property" ); | 
        
          | 52 |  | 52 |  | 
          
            
              | 53 | ok( ! defined $object->bork(), 'Bad getter returns undef' ); | 53 | warning_is { $ret = $object->bork() } 'No method bork!', "Expected 'No method bork!' caught for getter."; | 
            
              | 54 | ok( ! defined $object->bork('bork'), 'Bad setter returns undef' ); | 54 | ok( ! defined $ret, 'Bad getter returns undef' ); | 
            
              |  |  | 55 | warning_is { $ret = $object->bork('bork') } 'No method bork!', "Expected 'No method bork!' caught for setter."; | 
            
              | 56 | ok( ! defined $ret, 'Bad setter returns undef' ); | 
        
          | 55 |  | 57 |  | 
        
          | 56 | 1; | 58 | 1; | 
            
              | 57 | -  |  |  |